Novahq.net Forum - Help please...

Novahq.net Forum (https://novahq.net/forum/index.php)

- Web design and Programming (https://novahq.net/forum/forumdisplay.php?f=32)

- - Help please... (https://novahq.net/forum/showthread.php?t=31415)

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 :confused:. 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?

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:

Code:

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

Ok never mind :p I figured out how to make the task scheduler in windows run that script every 10 minutes :D. 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 :p

you lost me in your first sentence

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

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