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


      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31  

プロフィール

1020@管理人

都内を彷徨っているインフラエンジニアとかいう雑用係。いつだって眠い…。

最近のつぶやき

@umkn1020 (12/07-22:58)
そういえば今のiPhone SEも使い始めてから2年以上経っているのか。どおりで最近はバッテリー消耗が速くなっている気がする。
@umkn1020 (12/07-21:31)
昨日より帰りは遅くなるけど徒労感はないな。昨日はトラブル対応が酷すぎて消耗してた。
@umkn1020 (12/06-23:12)
そういえば今日の帰りの経路はなぜか通勤定期とは違う経路を使ってしまった。理由は自分でもよく分からんw
@umkn1020 (12/01-22:13)
今日は無駄に頑張ってしまった…
@umkn1020 (12/01-21:23)
今年もこの時期かぁ : [ITmedia News] 一太郎って誰が使っているの? 38年目、「一太郎2023」がデビュー https://t.co/C3QDmGVls9

エントリーリスト

カテゴリーリスト

タグ