DNS state tester

'Этот скрипт проверяет наличие интернета.
'(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