Windows Server DNS Update with external internet IP

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 469 fois - Téléchargée 7 fois

Contenu du snippet

strDomain = "bar.net"
 strRecord = "foo.bar.net"
 
strGetIP = "http://myip.dnsdynamic.org/"
 strLogFile = "C:\DynDNS.log"
 
 'Getting external IP
 
Set oHTML = CreateObject("MSXML2.XMLhttp")
 oHTML.Open "GET", strGetIP, False
 oHTML.Send
 strIPAddress = oHTML.ResponseText
 Set oHTML = Nothing
 
 
' Connect to the WMI Service
 Set objWMIService = GetObject("winmgmts:\\.\root\MicrosoftDNS")
 ' Run a query to get the record we want to change
 Set colItems = objWMIService.ExecQuery("SELECT * FROM MicrosoftDNS_AType" & _
  " WHERE ContainerName='" & strDomain & "' AND OwnerName='" & strRecord & "'",,48)
 
For Each objItem in colItems
  ' Modify the record if needed
  If(objItem.IPAddress <> strIPAddress) Then
   Wscript.Echo "IP Changed from " & objItem.IPAddress & " to " & strIPAddress
   Set fso = CreateObject("Scripting.FileSystemObject")
      Set f = fso.OpenTextFile(strLogFile, 8, true)
      f.write("IP Changed from " & objItem.IPAddress & " to " & strIPAddress & vbCrLf)
   objItem.Modify vbNull, strIPAddress
  End if
 Next


Compatibilité : VBScript

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.