Onlininetest

Hallo ihr ich hätte da eine Frage und zwar
gibt es die möglichkeit einen Online test durchzuführen ?
also es sollte geprüft werden ob google erreichbar ist wenn ja dann soll das script weiter machen wenn nein sollte ein Hinweisfenster mit eine meldung kommen
und
gibt es eine möglichkeit beim befehl
die ausgeführte anwendung zu schliessen

Hindergrund
WshShell.Run "http:\\123.de\123.html soll aufgerufen werden da die entsprechende seite einen reboot ausführt, anschliessend sollte
die seite wieder geschlossen werden wie macht man den so etwas?
bzw gibt es die möglichkeit ohne den seitenaufruf eine html seite ausführen zu lassen ?

If Not Connected("http://www.google.de/") Then  
  MsgBox "Google ist nicht erreichbar.", vbCritical, "Verbindungsfehler"  
  WScript.Quit
End If

WScript.Echo "Google ist erreichbar. Hier kann es weiter gehen."  


Function Connected(URL)
  Set objWebReq = CreateObject("Msxml2.XMLHTTP.3.0")  
  On Error Resume Next
  objWebReq.open "GET", URL, False  
  objWebReq.send()
  Connected = CBool(objWebReq.status = 200)
  On Error Goto 0
End Function

WshShell.Run "http:\\123.de\123.html