strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery("Select * from Win32_PerfRawData_PerfDisk_LogicalDisk where Name <> '_Total'")
For Each objDiskDrive in colDiskDrives
'Wscript.Echo "Drive Name: " & objDiskDrive.Name
'Wscript.Echo "Free Space: " & objDiskDrive.FreeMegabytes
If (objDiskDrive.Name = "C:" and objDiskDrive.FreeMegabytes < 200) Then
vcheck = true
WScript.Echo "C: 용량 200M 이하"
elseIf (objDiskDrive.Name = "D:" and objDiskDrive.FreeMegabytes < 200) Then
vcheck = true
WScript.Echo "D: 용량 200M 이하"
elseIf (objDiskDrive.Name = "E:" and objDiskDrive.FreeMegabytes < 200) Then
vcheck = true
WScript.Echo "E: 용량 200M 이하"
Else
End if
Next
