Testing Internet Connection

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Testing Internet Connection

Logged in as: Guest

arrSession:exec spGetSession 2,2,54

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Testing Internet Connection
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Testing Internet Connection - 5/24/2001 5:09:39 AM

Daimaju

Posts: 4
Score: 0
Joined: 5/24/2001
From: Aruba
Status: offline

How can I test, wether my computer is connected to the Internet at the moment?

Post #: 1

Re: Testing Internet Connection - 4/21/2005 4:26:43 AM

davidmhodgey

Posts: 1
Score: 0
Joined: 4/21/2005
From: United Kingdom
Status: offline

open a command prompt and use ping to ping something like google
eg:

ping www.google.co.uk

i found that ping packets were thrown away when using 3G to connect. if you have a similar problem there are other ways to test an internet connection. ping is best though

(in reply to Daimaju)

Post #: 2

Re: Testing Internet Connection - 4/21/2005 4:13:49 PM

token

Posts: 1917
Score: 0
Joined: 1/14/2005
From:
Status: offline

You can do something like this:

======================================================================================
host = "google.com"
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set exec = wmi.ExecQuery("Select * from Win32_PingStatus Where Address='" & host & "'")
For Each item in exec
If item.StatusCode = 0 Then
WScript.echo "Connected"
Else
wscript.echo "Disonnected"
End If
Next

(in reply to Daimaju)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Testing Internet Connection

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts