External IP Address with VBScript 1

[RogerRuntings]

I wish to get my external IP addresses from remote PCs on dynamic adsl programatically, i.e., stored in a text file. Then I could email or use MSN Messenger to get the info so I can logon. There are various websites that can give you the IP address (

http://whatismyip.com/)

for example.

How do you read in a website with VBScript/WSH?

 

[dm4ever]

You can read it using the InternetExplorer.Application or XMLHTTP. I posted something that does this, but don't remember where. I'll see if I find it.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[dm4ever]

Found it...

Option Explicit

WScript.Echo GetWANIP

Function GetWANIP
	On Error Resume Next
	Const cstrShowMyIP = "[URL unfurl="true"]http://www.showmyip.com/xml/"[/URL]
	
	Dim objRemXML  :  Set objRemXML = CreateObject("Microsoft.XMLDOM")
	objRemXML.async = False
	objRemXML.load(cstrShowMyIP)
	If Err.Number <> 0 Then
		WScript.Echo "Error getting IP address from " & cstrShowMyIP
		WScript.Quit
	End If
	
	' Get our IP address
	Dim objMyIP  :  Set objMyIP = objRemXML.selectSingleNode("/ip_address/ip")
	If Err.Number <> 0 Then
	  WScript.Echo "Error getting IP address from XML data"
	  WScript.Quit
	Else
	  GetWANIP = objMyIP.text
	End If
	On Error GoTo 0
End Function

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[RogerRuntings]

You the Man! You the MAN!!