Thecus N4100ProにVBSスクリプトで自動ログインする
NASとして活躍中のThecus N4100Proですが、毎回、WEB画面からログインするのが面倒です。
管理者としてログインするときと、単なるユーザーとしてログインするときと・・・ユーザー名をタイプしてパスを入れてボタンを押すという、何気ない、しかし毎度毎度めんどくさい作業を自動化することにしました。
実は自宅用PCはノートンのIDセーフというプログラムでIDとPASSを自動入力もできるのですが、職場用はそんなわけにもいきません。それに、ノートン先生もID欄とパスワード欄に値を自動記入はしてくれますが、ログインするためのボタンは手動で押さなければなりません。
また、管理者と一般ユーザーの二種類のログインを使い分けることもできませんので、IDセーフはN4100Proに対してはあまり使い勝手がよくありません。
今回は、VBSのスクリプトで自動ログインすることを考えてみました。
'//Copyright chameleon ---GhostWriter Ver.0.0.1 for Thecus--- Const READYSTATE_COMPLETE = 4 Const URL = "http://xxx.xxx.xxx" 'N4100ProログインページへのURLを入れる Const ID = "admin" '管理者用アカウント '一般ユーザー用のスクリプトにするならここにN4100Proに登録してある任意のユーザー名を入れておく Const PASS = "pass" '自分で設定したログインパスワードを入れる Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate URL While objIE.ReadyState <> READYSTATE_COMPLETE While objIE.Busy = True WScript.Sleep 10 Wend Wend objIE.Document.Forms(0).Item("username").value = ID objIE.Document.Forms(0).Item("pwd").value = PASS objIE.document.forms(0).Submit While objIE.ReadyState <> READYSTATE_COMPLETE While objIE.Busy = True WScript.Sleep 10 Wend Wend Set objIE = Nothing
IDとPASSの部分を変更するだけで管理者用と一般ユーザー用の二種類のVBSスクリプトが作成できますから、その二つをデスクトップにでも置いておけば、ユーザーを使い分けてNASにログインできます。
もちろんファイルは拡張子、vbsで保存してください。
Thecus 4ベイ エントリーNASキット Webサーバー機能 DLNA対応 N4100PRO |
|
 |
Thecus 売り上げランキング : 21421 by G-Tools |
VBSファイルをダブルクリックするだけでログイン完了まで自動化できますから、結構便利です。
ただし、VBSスクリプトは単なるテキストファイルで、中にログイン用のパスフレーズが平文で書かれていますから、その点だけは注意が必要です。
このブログで関連すると思われる他の投稿
