ping不到的服务器vbscript

strMachines = "lipcsipdc2;10.176.1.14;lipcish2dc1;lipcscdc1"
aMachines = split(strMachines, ";")
For Each machine in aMachines
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
        ExecQuery("select * from Win32_PingStatus where address = '"_
            & machine & "'")
    For Each objStatus in objPing
        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
            WScript.Echo("machine " & machine & " is not reachable")  
        End If
    Next
Next

欧玩