Archer C9 Reboot Script
Hi,
I wanted a script which Reboots the Archer C9 but actually i didnt find anything,
The VBS script will run and if google is not up for 2 mins, then it Reboots the Router. It is cool when you are not at home and you have RDC.
Before you blame on me its not pretty or has a best practice, pls come up with a better one.
Run VBS on start of Windows.
CODE:
===================
'Reboot TP-Link Archer C9 v5
Const P = "Your password" 'Your password
Const MaxMissing = 12 'For 2 mins there is no google
Const CheckIntervalSec = 300000 '5 minutes
Set WshShell = CreateObject("WScript.Shell")
'Infinite loop - kill wscript.exe if you want to stop this
Do
MissingCounter = 0
'Keep monitoring
Do While MissingCounter <= MaxMissing
SuccessfulPing = Not CBool(WshShell.Run("ping -n 1 googlqqqe.com",0,True))
If SuccessfulPing Then
MissingCounter = 0
Call WScript.Sleep(CheckIntervalSec)
Else
MissingCounter = MissingCounter + 1
WScript.Sleep(10000) 'Wait 10s
End If
Loop
On Error Resume Next
If Not objIEBrowser Is Nothing Then objIEBrowser.Quit
Set objIEBrowser = CreateObject("InternetExplorer.Application")
objIEBrowser.Visible = True
objIEBrowser.Top = 0
objIEBrowser.Left = 0
objIEBrowser.Width = 1920
objIEBrowser.Height = 1080
CreateObject("WScript.Shell").AppActivate "Internet Explorer"
Call WScript.Sleep(2000)
objIEBrowser.Navigate "https://192.168.0.1/webpages/login.html"
Do While objIEBrowser.Busy: Loop
Set HTMLDoc = objIEBrowser.Document
HTMLDoc.getElementById("overridelink").Click
Do While objIEBrowser.Busy: Loop
Set HTMLDoc = objIEBrowser.Document
objIEBrowser.Visible = True
Call WScript.Sleep(3000)
WshShell.SendKeys "{TAB 6}"
Call WScript.Sleep(2000)
WshShell.SendKeys P
Call WScript.Sleep(1000)
WshShell.SendKeys "{TAB 2}"
Call WScript.Sleep(1000)
HTMLDoc.getElementById("login-btn").Click
Do While objIEBrowser.Busy: Loop
Call WScript.Sleep(3000)
HTMLDoc.getElementById("txt-reboot").Click
Call WScript.Sleep(3000)
HTMLDoc.getElementsByClassName("button-button btn-msg btn-msg-ok btn-confirm")(0).Click
Call WScript.Sleep(120000)
objIEBrowser.Quit
Loop