COREGA　NSC4500GT　の自動電源OFFプログラム

メモ帳などで新規作成をし、以下をコピペ、
IP、ログインID、パスワードをそれぞれ入力し、拡張子の「.txt」を「.vbs」に変更する。

ダブルクリックでファイルサーバーが終了する。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
strIP = “” ‘←IPアドレス　
strLogin = “” ←ログインID
strPwd = “” ‘←パスワード
Set objIE = CreateObject(“InternetExplorer.Application”)
objIE.Visible = False
objIE.Navigate “https://” & strIP
While objIE.Busy = true:WScript.sleep(250):Wend:WScript.sleep(500)
objIE.Document.Forms(0).login.value = strLogin
objIE.Document.Forms(0).password.value = strPwd
objIE.Document.Forms(0).submit.click
While objIE.Busy = true:WScript.sleep(250):Wend:WScript.sleep(500)
objIE.Navigate “https://” & strIP & “/shutdown.php”
While objIE.Busy = true:WScript.sleep(250):Wend:WScript.sleep(500)
objIE.Document.Main.Radiosubmit(1).checked = true
objIE.Document.Main.submit.Onclick = “return true”
objIE.Document.Main.Submit.Click
While objIE.Busy = true:WScript.sleep(250):Wend:WScript.sleep(500)
objIE.Quit
Set objIE = Nothing