Se você estiver usando o XP / 2003 + (isso inclui o Vista / 2008/7), então você pode usar o Win32_PingStatus . As máquinas em que está executando o código de script é o único sistema que precisa ser o XP / 2003 +, e funciona da mesma forma que o Ping.exe, mas não está usando o ping.exe, portanto deve ser uma brecha na sua configuração de segurança. não permite a execução do ping.exe.
strComputer = "192.168.1.1"
Set objWMIService = GetObject("winmgmts:\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Address = '" & strComputer & "'")
For Each objItem in colItems
If objItem.StatusCode = 0 Then
WScript.Echo "Reply received."
End If
Next
Consulte o artigo "Equipe de scripts" para mais informações sobre como usar o Win32_PingStatus: