Support TP-LINK Archer VR900v

#

# Reconnect-Script for TP-Link Archer VR900v

#



Clear-Host



Write-Host "Creating IE-COM-Instance"

$IE = New-Object -ComObject "InternetExplorer.Application"

$IE.Visible = $false # Set visible to $true for debugging

$IE.Navigate2("192.168.1.1) # IP-Address of your router



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }



Write-Host "Entering password..."

$PWField = $IE.Document.getElementById("pcPassword")

$PWField.value = "confidential" # Change password to your password



Write-Host "Submitting password..."

$LoginButton = $IE.Document.getElementById("login-btn")

$LoginButton.Click()



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }



Write-Host "Opening advanced settings..."

$AdvancedTab = $IE.Document.getElementById("advanced")

$AdvancedTab.Click()



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }

Start-Sleep -Milliseconds 3000



Write-Host "Opening network settings..."

$NetworkListItem = $IE.Document.getElementById("internet")

$NetworkListItem.Click()



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }

Start-Sleep -Milliseconds 3000



Write-Host "Disconnecting..."

$MainBody = $IE.Document.getElementById("mainBody")

$DisconnectButtons = $MainBody.getElementsByClassName("conn-opt T_discon")

$DisconnectButton = $DisconnectButtons | Select-Object -First 1

$DisconnectButton.Click()



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }

Start-Sleep -Milliseconds 3000



Write-Host "Connecting..."

$MainBody = $IE.Document.getElementById("mainBody")

$ConnectButtons = $MainBody.getElementsByClassName("conn-opt T_conn")

$ConnectButton = $ConnectButtons | Select-Object -First 1

$ConnectButton.Click()



Write-Host "Waiting for IE..."

while ($IE.Busy -eq $true){ Start-Sleep -Milliseconds 500 }



Write-Host "Exiting IE..."

$IE.quit()





# $Answer = Read-Host "Press enter to exit" # Uncomment tihs line (remove hash tag '#') to leave the window open