'
'Dieses Skript stellt eine Verbindung zur domainfriends.de API her und
'aktualisiert eine angegebene Domain im DNS
' 
'(c)2009 domainfriends.de
'support@domainfriends.de
'
'Eine DNS-PIN erstellen Sie in der Domainverwaltung.
'weitere Informationen zur DNS-PIN:
'http://www.domainfriends.de/service/start.html
'

''''''''''''''''''''''''''''''''''''''''''''''''''''
'Einstellungen für dieses Skript, bitte anpassen
''''''''''''''''''''''''''''''''''''''''''''''''''''

'die zu aktualisierende Domain
domain = "demo.2ya.de"

'geben Sie hier die DNS-PIN an
pin    = "XXXXXXXXX"

'geben Sie hier die IP-Adresse an (leer = eigene IP)
ip     = ""


''''''''''''''''''''''''''''''''''''''''''''''''''''
'Ab hier bitte nichts verändern
''''''''''''''''''''''''''''''''''''''''''''''''''''

'Fehlerausgabe deaktivieren
On Error Resume Next

'Variablen deklarieren
Dim objRequest
Dim URL

'Die Update-URL
URL = "http://dns.domainfriends.de/api/?domain=" & domain & "&pin=" & pin & "&ip=" & ip

'Objekt erstellen
Set objRequest = CreateObject("Microsoft.XMLHTTP")

'HTTP Verbindung öffnen und URL übergeben
objRequest.open "GET", URL , false

'Anfrage abschicken
objRequest.Send

'Objekt zerstören
Set objRequest = Nothing