пятница, 30 августа 2013 г.

Удаленная перезагрузка ADSL modem, точки доступа, роутера.

Есть роутер, модем, точка доступа не важно и стоит оно) далеко(в подвале, коридоре) и при этом глючит пару раз в день из-за плохой связи, приходится подымать зад и идти выключать включать, что бы никуда не ходить решил написать скрипт который будет перезагружать это "оно". По аналогии можно написать скрипт для любого девайся с веб-мордой. Если будут сложности пишите помогу.

  1. URL1="http://192.168.0.1/cgi-bin/webcm?getpage=../html/utilities_reboot.html"
  2.  
  3. Set objIE = WScript.CreateObject("InternetExplorer.Application","objIE_")
  4. objIE.Navigate URL1
  5. objIE.Visible = false
  6. Do
  7. Wscript.Sleep 5000
  8. Loop While objIE.Busy
  9. 'objIE.Document.Script.doReboot()
  10. objIE.document.frmReboot.submit()
  11. wscript.Sleep 7000
  12. objIE.Quit
  13. MsgBox "Modem is reset!"