| Works
VBSでMyDNS.jpのアドレスを更新する
MyDNS.jpには自宅サーバでお世話になっていました。
現在ではLinuxサーバはVPS等の自宅外がメインなので別のDNSサービスを使用していますが、Windows PCへのリモートアクセスでは手軽に使えるDDNSとして重宝しています。
Windowsを起動した時とか定期的にIPアドレスを通知するようにしておき、リモートアクセスするときにはMyDNS.jpに設定したホスト名を使用します(実際にはNATとかがあるのでVPNと組み合わせています)。DDNSなので稀にIPアドレスが変わったのに気づかないのは仕方ありませんが、日常的にPCを使っていれば通知を忘れることがないようにしておきます。
MyDNS.jpへのIPアドレス通知方法としては、こちらにある通りPOP、IMAP、FTP、HTTPが使えますが、この用途ならHTTPがよいと思います。
以下のようなスクリプトを作成し、タスクスケジューラから実行することにしました。
Option Explicit
On Error Resume Next
Const strURL = "http://www.mydns.jp/login.html"
Const strUser = "MyDNSのユーザーID"
Const strPasswd = "MyDNSのパスワード"
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)
用途は限られると思いますが、いざという時にIPアドレスが分からなくてアクセスできないという事態を減らしたかったのです。だいたいアクセスしたいときはトラブったときなので…。