hta 디스크 공간의 스 크 립 트 보기

디스크 공간 보기 스 크 립 트 window.resizeTo 500, 420 ileft=(window.screen.width-500)/2 itop=(window.screen.height-420)/2 window.moveTo ileft,itop Sub Window_onLoad GetDiskSpace End Sub Sub GetDiskSpace Const HARD_DISK = 3 Const Size = 1048576 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "") strHTML = "" strHTML = strHTML & "" strHTML = strHTML & "" & "파 티 션" & "" strHTML = strHTML & "" & "용량 & "" strHTML = strHTML & "" & "이미 사용" & "" strHTML = strHTML & "" & "사용 하지 않 음" & "" strHTML = strHTML & "" & "한가 하 다" & "" For Each objDisk In colDisks intFreeSpace = objDisk.FreeSpace/Size intTotalSpace = objDisk.Size/Size pctFreeSpace = intFreeSpace/Size/ intTotalSpace/Size infFuLin = intTotalSpace-intFreeSpace DeviceID = objDisk.DeviceID strHTML = strHTML & "" strHTML = strHTML & "" & DeviceID & "" strHTML = strHTML & "" & FormatNumber(intTotalSpace,2,-1,-1,0) & "" strHTML = strHTML & "" & FormatNumber(infFuLin,2,-1,-1,0) & "" strHTML = strHTML & "" & FormatNumber(intFreeSpace,2,-1,-1,0) & "" strHTML = strHTML & "" & FormatPercent(intFreeSpace/intTotalSpace) & "" Next strHTML = strHTML & "" DataArea.InnerHTML = strHTML End Sub 디스크 공간 보기 스 크 립 트
디스크 파 티 션 별 사용 현황 표시(/MB） hta 파일 로 저장 합 니 다.

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

hta 디스크 공간의 스 크 립 트 보기

좋은 웹페이지 즐겨찾기