WMI : Ping 체크를 통한 서버 모니터링 Vbscript

다음 스크립트는, WMI를 통해서 특정 호스트에 대해서 ping 모니터링을 하는 코드이다.

Windows Server 2003 및 XP 에서만 지원하는 코드이다.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus Where Address = '192.168.1.37'")

For Each objComputer in colPingedComputers
    If objComputer.StatusCode = 0 Then
        Wscript.Echo "Remote computer responded."
    Else
        Wscript.Echo "Remote computer did not respond."
   End If
Next