URAMIRAIKAN

1020のなれの果て (since 2005.6.19)

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アドレスが分からなくてアクセスできないという事態を減らしたかったのです。だいたいアクセスしたいときはトラブったときなので…。