[AlexPebody]

ФУХ...................... Ыыы, все сам разрыл!

Код:

Option Explicit
Dim objSWbemServicesEx, collSWbemObjectSet, objSWbemObjectEx, strAddress
strAddress = "192.168.0.1"
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'")
For Each objSWbemObjectEx In collSWbemObjectSet
If IsNull(objSWbemObjectEx.StatusCode) Or objSWbemObjectEx.StatusCode <> 0 Then
WScript.CreateObject("Wscript.Shell").Run "http://yandex.ru/", 1, vbTrue
Else
WScript.CreateObject("Wscript.Shell").Run "http://ngs.ru/", 1, vbTrue
End If
Next
Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0