2006년 2월 14일 화요일

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

 


댓글 없음:

댓글 쓰기

2019년 11월 MS 취약점 패치 주요 사항

CVE-2019-0712 | Windows Hyper-V 서비스 거부 취약성 https://portal.msrc.microsoft.com/ko-KR/security-guidance/advisory/CVE-2019-0712 CVE-2019-0719...