Option Explicit
' ******************************************************************************* '
' *  Script to log my IP address.						* '
' *						- Scott Crevier, 20-Dec-2000	* '
' ******************************************************************************* '
sub main()
	' *********************************************************************** '
	' *  Declare some variables.						* '
	' *********************************************************************** '
	Dim results, lines

	' *********************************************************************** '
	' *  Log my current IP address at www.x10.crevier.org.			* '
	' *********************************************************************** '
	results	= hs.GetURL("www.x10.crevier.org","/ip/logip.cgi?user=your_userid_here",0,80)

	If results = "" Then
		hs.WriteLog "IP Log","Unable to log IP address."
		Exit Sub
	End If

	' *********************************************************************** '
	' *  Log the results. This section is here to show you what kind of	* '
	' *  info you get back from the GetURL. You can of course do what you	* '
	' *  want with it. For example, you might want to send yourself an	* '
	' *  e-mail telling you what your IP address is; the IP address can be	* '
	' *  found in lines(1).							* '
	' *********************************************************************** '
	lines = Split(results,vblf)

	hs.WriteLog "IP Log","User: "	+ lines(0)
	hs.WriteLog "IP Log","IPAddr: "	+ lines(1)
	hs.WriteLog "IP Log","Host: "	+ lines(2)
	hs.WriteLog "IP Log","Date: "	+ lines(3)
	hs.WriteLog "IP Log","Time: "	+ lines(4)
End Sub