Save the code below as checkdomain.vbs. Double click on the saved file to execute.

The program sends a CheckDomain request to the test registry system, and displays the received response.

-----------------------------------------------------------------------
set doc = WScript.CreateObject("Msxml.DOMDocument")

vDomain = InputBox("Enter domain (do not include extension)")
MsgBox vDomain

' assemble xml sent to the dotph registry system
XML = "<?xml version=""1.0""?>"
XML= XML & " <SOAP:Envelope xmlns:SOAP=""http://schemas.xmlsoap.org/soap/envelope/"""
XML= XML & " SOAP:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">"
XML= XML & " <SOAP:Header>"
XML= XML & " <T:Tran xmlns:T=""http://dotph.com"">"
XML= XML & " <T:ID></T:ID>"
XML= XML & " <T:UserID>testpartner</T:UserID>"
XML= XML & " <T:Password>testpartner</T:Password>"
XML= XML & " </T:Tran>"
XML= XML & " </SOAP:Header>"
XML= XML & " <SOAP:Body>"
XML= XML & " <RegCheckDomain>"
XML= XML & "<domain>"
XML= XML & vDomain
XML= XML & "</domain>"
XML= XML & " </RegCheckDomain>"
XML= XML & " </SOAP:Body>"
XML= XML & " </SOAP:Envelope>"

doc.loadXML XML
MsgBox xml
set http = WScript.CreateObject("Microsoft.XMLHTTP")

' post the assembled xml (XML) to the test system
url = "http://phlnx.dot.ph/cgi-bin/testsrs/phbackend.pl"
http.open "POST", url, false,"",""
http.send doc

' display the test system response
msgbox http.ResponseText
-----------------------------------------------------------------------