Help please...

[Scott]

Can anyone help me here? What I want to do:

Get a program that will ping a website like google or yahoo or something and if it cannot ping it for 5 minutes run a bat file to shutdown & restart the computer?

shutdown /r /t 20 /m \\[name] /c "Computer is shutting down" /f


For some reason if my cable connection goes down my computer will not automatically renew (since it's a static ip) & it looses the dns servers which cause it to think it's connected, but not actually be connected . AN easy way to fix it is to repair it from network connections but that seems more complcated for a script then to just ping somewhere and run a script if it fails..

Any programmers wanna have a go at this?

[Scott]

Well I found a ping script that will ping a host, but I need something that will run it every 5 minutes, even if I am logged off the computer, so it should be able to be installed as a Local System Service.. Anyone got any suggestions:


ping-reboot.vbs:

strTarget = "google.com"

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ping -n 4 -w 1000 " & strTarget)
strPingResults = LCase(objExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
'WScript.Echo strTarget & " responded to ping."
  Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strTarget & "\root\cimv2")
  Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM " & _
"Win32_ComputerSystem")
  For Each objCompSystem In colCompSystems
    WScript.Echo "Host Name: " & LCase(objCompSystem.Name)
  Next
Else

'WScript.Echo strTarget & " did not respond to ping."

Set objShell2 = CreateObject("WScript.Shell")
Set objExec = objShell2.Exec("shutdown /r /t 30 /f")

End If

[Scott]

Ok never mind I figured out how to make the task scheduler in windows run that script every 10 minutes . That should help keep the server going.. should do more research before I ask but there is one prob..

There is an error in the code somewhere.. it works ok, but about 3 minutes after I run it I get an error on line 8, char 3 with the GetObject("winmgmts:" not being an object or something? Anyone know? I don't know vb yet

[VooDoo-]

you lost me in your first sentence

[Scott]

weird. i didn't know a single line of vb before today

[Hellfighter]

i am clueless i say try it without the ts or s in it, it could be wrong wording like a miscoding double check "winmgmts:"

only a guess