(VBScript) Check Internet Connectivity

Demonstrates an efficient way to test for Internet connectivity.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set socket = CreateObject("Chilkat.Socket")
' 1. Use a reliable Anycast IP. 
'    8.8.8.8 (Google) or 1.1.1.1 (Cloudflare) are the industry standards.
targetIp = "8.8.8.8"

' 2. Use Port 53 (DNS). 
'    DNS servers typically listen on TCP Port 53 as well as UDP. 
'    (Alternatively, use port 443 if you suspect port 53 is blocked).
port = 53

' 3. Disable SSL (0). 
'    We are not doing a handshake, just a TCP connection.
ssl = 0

' 4. Short Timeout (1500ms).
'    If you can't reach Google in 1.5 seconds, the connection is 
'    likely too poor for practical use anyway.
timeoutMs = 1500

' Connect
success = socket.Connect(targetIp,port,ssl,timeoutMs)
If (success = 0) Then
    outFile.WriteLine(socket.LastErrorText)
    WScript.Quit
End If

success = socket.Close(10)

outFile.WriteLine("We have Internet connectivity.")

outFile.Close