Here is another one you can try out. It has a function I was using with my
VB Scripting, but it should work in this scenario as well.
Just change the URL in the function call to whatever you think necessary for
an Internet connection type check.
Sub test2()
If IsAlive("
www.google.com") = True Then ' change URL
as needed
MsgBox "You are connected to the Internet"
ElseIf IsAlive("
www.google.com") = False Then ' change URL as
needed
MsgBox "You are NOT connected to the Internet"
End If
End Sub
Function IsAlive(strHost)
'---------- Test to see if host or url alive through ping -----------------
' Returns True if Host responds to ping '
' Function is compliments of Phil Gordemer, ARH Associates
' Found @
http://www.tek-tips.com/viewthread.cfm?qid=1279504&page=3
'
' Though there are other ways to ping a computer, Win2K,
' XP and different versions of PING return different error
' codes. So the only reliable way to see if the ping
' was sucessful is to read the output of the ping
' command and look for "TTL="
'
' strHost is a hostname or IP
Const OpenAsASCII = 0
Const FailIfNotExist = 0
Const ForReading = 1
Dim objShell, objFSO, sTempFile, fFile
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
sTempFile = objFSO.GetSpecialFolder(2).ShortPath & "\" &
objFSO.GetTempName
objShell.Run "%comspec% /c ping.exe -n 2 -w 500 " & strHost & ">" &
sTempFile, 0, True
Set fFile = objFSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist,
OpenAsASCII)
Select Case InStr(fFile.ReadAll, "TTL=")
Case 0
IsAlive = False
Case Else
IsAlive = True
End Select
fFile.Close
objFSO.DeleteFile (sTempFile)
Set objFSO = Nothing
Set objShell = Nothing
End Function
