반응형
이번에는 WMI로 디스크 사이즈를 알아 보기로 하겠습니다.
각설하고 바로 코드 들어 갑니다.
[ Disk_Size.vbs ]
..... 보시다 시피.. 아주 기초적인 정보와 디스크 크기, 남은 공간을 보여 줍니다.
이걸 어디 써먹어!! 이러신다면.... 아마도 맞는 말 일듯 -_-;;;
어쨋거나 저쨋거나 이런거도 된다구여 ㅠㅠ;
각설하고 바로 코드 들어 갑니다.
[ 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
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
..... 보시다 시피.. 아주 기초적인 정보와 디스크 크기, 남은 공간을 보여 줍니다.
이걸 어디 써먹어!! 이러신다면.... 아마도 맞는 말 일듯 -_-;;;
어쨋거나 저쨋거나 이런거도 된다구여 ㅠㅠ;
반응형
댓글