updatedns

Update DNS
A Windows shell script for updating dynamic dns.

Home
›
Code snippets
›
Misc
›
Update DNS

By Jonah R. Goldberg.

Updates dynamic dns pointers.

'*******************************
'*	UPDATE DNS.VBS
'*	Jonah R. Goldberg 
'*	Feb 2002 
'*  Distribute Freely... I recommend DYNODNS for reliable free service...
'*  I'm not affiliated with them in any way.. Just a user for a couple years now..
'*  I also registered a domain name and use a cname record to alias to my dynodns name.
'*******************************
'*	UPDATE DNS is how I keep my web server always connected... It acts as a heartbeat
'*	for network infrastructure keep-alive as well as 
'*
'*	You want to change the user name and password obviously...
'*
'*******************************

On Error Resume Next

CONST USER_NAME = "YourDNSEntry.Dynodns.net"
CONST PASSWORD = ""
CONST TARGETURL = "www.dynodns.net/pr/updatens.cgi"
CONST SLEEP_INTERVAL = 360000

Dim oIE
Dim sRequestURL
sRequestURL = "HTTP://" & USER_NAME & ":" & PASSWORD & "@" & TARGETURL

Wscript.echo "Welcome to DYNODNS UPDATER.  JRG 2002"
Set oIE = CreateIE(sRequestURL, 60,100, 470,170)
Wscript.echo "Broswer Opened"

'Infinate Loop.. And that's a good thing for once!
While True
	WScript.Sleep(SLEEP_INTERVAL)
	Wscript.echo oIE.Refresh
	If Err.Number <> 0 Then
		Wscript.Echo "Err: " & Err.Description
		Err.Clear
	Else
		Wscript.echo "Refreshed " & Now()
	End if
Wend

Function CreateIE(sOpenPage, pLeft,pTop, pWidth,pHeight)
 
  Set CreateIE = CreateObject("InternetExplorer.Application")
  CreateIE.left      = pLeft
  CreateIE.top       = pTop
  CreateIE.height    = pHeight
  CreateIE.width     = pWidth
  CreateIE.menubar   = 0
  CreateIE.toolbar   = 0
  CreateIE.statusbar = 0
  CreateIE.navigate sOpenPage  
  CreateIE.visible=1
  ' wait for page to load
  while CreateIE.Busy:  WScript.Sleep(50):  wend
End Function