[HellWolf06]

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

А если тебе просто узнать, есть ли интернет, то просто в командной строке введи ping http://www.google.com/xx-hacker