'Этот скрипт проверяет наличие интернета.
'(C)Alex.Devil.LX 2011
Set WshShell = CreateObject ("WScript.Shell")
TestResult = WshShell.Run ("ping " & "www.google.com", 0, True)
If TestResult = 0 Then
MsgBox "Интернет работает! :)"
Else
MsgBox "Интернет не работает! :("
End If
