AutoItScriptForSwitchingISP

#include <ie.au3>

;Script executes the following steps below to update routers ISP
;1. Enter router IP address in browser
;2. Assumes default admin account used and updates router password only
;3. Sends enter Key
;4. Accesses the "Internet Setup" link via hyperlink
;5. Enables the checkbox under WAN Setup
;6. Clicks the "Edit" button
;7. Updates Username
;8. Updates Password
;9. Clicks "Next" button
;10. Clicks "Apply" button
;11. Clicks "Logout" link
;12. Closes browser session

$routerIpAddress = "http://10.0.0.2/login.html"
$routerAdminPassword="routerPassword"
$pppUserName="[email protected]"
$pppPassword="ispPassword"

$oIE = _IECreate ($routerIpAddress)

_IELoadWait($oIE,0)
Sleep(1000)

$HWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($HWND, "", @SW_MAXIMIZE)

_IELoadWait($oIE,0)
Sleep(100)

$oIECollection = _IEFormGetCollection($oIE, 0)

$oPasswordField = _IEFormElementGetObjByName($oIECollection, 'password')
_IEFormElementSetValue($oPasswordField, $routerAdminPassword)

_IELoadWait($oIE,0)
Sleep(100)

Send("{ENTER}")

_IELoadWait($oIE,0)
Sleep(500)

_IENavigate($oIE, "http://10.0.0.2/setup_wancfg.html")

Sleep(500)

$oForm = _IEFormGetObjByName($oIE, 0)
$oCheckbox = _IEFormElementGetObjByName($oForm, "rml");
$oCheckbox.checked = True

_IELoadWait($oIE,0)
Sleep(100)

$oEditButton = _IEGetObjById($oIE, "editWancfg")
_IEAction($oEditButton, "click")

_IELoadWait($oIE,0)
Sleep(500)

;Updates the username field. Update code with your ISP Username
$oPPPUsername = _IEGetObjByName($oIE, "pppUserName")
_IEFormElementSetValue($oPPPUsername, $pppUserName)

_IELoadWait($oIE,0)
Sleep(100)

;Updates the password field. Update code with your ISP Password
$oPPPUsername = _IEGetObjByName($oIE, "pppPassword")
_IEFormElementSetValue($oPPPUsername, $pppPassword)

;Updates the password Confirm field. Update code with your ISP Password
$oPPPUsername = _IEGetObjByName($oIE, "conpppPass")
_IEFormElementSetValue($oPPPUsername, $pppPassword)

_IELoadWait($oIE,0)
Sleep(1000)

$oNextButton = _IEGetObjById($oIE, "btnNext")
_IEAction($oNextButton, "click")

_IELoadWait($oIE,0)
Sleep(1000)

$oApplyButton = _IEGetObjByName($oIE, "btnSave")
_IEAction($oApplyButton, "click")

_IELoadWait($oIE,0)
Sleep(10000)

Local $sMyString = "Logout"
Local $oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
    Local $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
        _IEAction($oLink, "click")
        ExitLoop
    EndIf
Next

_IELoadWait($oIE,0)
Sleep(5000)


_IEQuit($oIE)