[BATCH / VBSCRIPT / JScript] Ping e spegnegnere il pc

[bedo2991]

Mi serve uno script fatto in un qualunque linguaggio che esegua un ping ad un indirizzo. Se il pc risponde non fa nulla, altrimenti spegne un certo computer col comando "shutdown -s -f -t 0 -m \\DC1"
Non riesco a gestire questa storia del ping... Qualcuno mi aiuta?

BATCH:

ping -n 1 192.168.1.3 | find "durata" > nul
if errorlevel 1 echo %errorlevel% && shutdown -s -t 60 -f

VBSCRIPT

Dim i
i=2
ECHstrMachines = "PC-Inesistente;192.168.1.110"
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("Computer " & machine & " is not reachable") 
            i=i-1
        End If
    Next
Next
WScript.Echo i
If i <= 0 Then
	Dim objShell
	Dim strShutdown
	strShutdown = "shutdown -s -t 60 -f"
        set objShell = CreateObject("WScript.Shell")
        objShell.Run strShutdown
End If
Wscript.Quit