Skip to content

Instantly share code, notes, and snippets.

@the-takeo

the-takeo/SyncMyDNS.vbs

Created May 6, 2017 02:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save the-takeo/6e15042eaed8e970741d694525536073 to your computer and use it in GitHub Desktop.
Save the-takeo/6e15042eaed8e970741d694525536073 to your computer and use it in GitHub Desktop.
Download ZIP
SyncMyDNS
Raw
SyncMyDNS.vbs
Option Explicit
On Error Resume Next
Const strURL = "http://www.mydns.jp/login.html"
Const strUser = "ユーザー名"
Const strPasswd = "パスワード"
Dim objXML
Dim strXMLDoc
Dim intRet
Set objXML = WScript.CreateObject("MSXML2.XMLHTTP.3.0")
intRet = 0
objXML.open "GET", strURL, False, strUser, strPasswd
objXML.send
strXMLDoc = objXML.responseText
intRet = objXML.status
Set objXML = Nothing
'WScript.Echo strXMLDoc
WScript.Quit(0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment