태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.
이번에는 WMI로 디스크 사이즈를 알아 보기로 하겠습니다.
각설하고 바로 코드 들어 갑니다.

[ Disk_Size.vbs ]

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType=3",,48)
For Each objItem in colItems  
    Wscript.Echo "DeviceID: " & objItem.DeviceID  
'   Wscript.Echo "Name: " & objItem.Name 
'   Wscript.Echo "FileSystem: " & objItem.FileSystem
    Wscript.Echo "Size: " & round(objItem.Size/1024/1024/1024,2) & "GB"  
    Wscript.Echo "FreeSpace: " & round(objItem.FreeSpace/1024/1024/1024,2) & "GB"
Next


..... 보시다 시피.. 아주 기초적인 정보와 디스크 크기, 남은 공간을 보여 줍니다.
이걸 어디 써먹어!! 이러신다면.... 아마도 맞는 말 일듯 -_-;;;
어쨋거나 저쨋거나 이런거도 된다구여 ㅠㅠ;

+ Recent posts