2006/02/14

WMI : 디스크 사용량 모니터링 Vbscript

다음 코드는 디스크 파티션의 각 사용량/여유공간을 모니터링 하는 스크립트이다.

코드내, 각 파티션 부분만 필요한대로 변경하면 되나,. 가져올수 있는 값은 상당히 많으므로 다음처럼 꼭 여유공간량이 아니더라도 % 로도 추출할 수 있다.

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

댓글 없음:

댓글 쓰기

가장 많이 본 글