Dim ws,fso,IESet IE = WScript.createobject("InternetExplorer.Application")Set ws = WScript.CreateObject ("WSCript.shell")Set fso=CreateObject("scripting.filesystemobject")Const reboot="/content.cgi?form=M_SAV"IE.menubar=0 '顯示IE對象菜單欄IE.AddressBar=1 '顯示IE對象地址欄IE.ToolBar=0 '顯示IE對象工具欄IE.StatusBar=1 '不顯示IE對象狀態欄IE.FullScreen=0 '全屏化IE對象IE.Height=768IE.Width=1024IE.Resizable=1 '設置IE對象大小是否可以被改動IE.visible=1 '設置是否可見 'IE.Navigate "192.168.46.3"'==============讀Config配置文件=========    filepath=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Pathfile_config=filepath&"/config.ini"Set file=fso.OpenTextFile(file_config,1)    '===========取第一行數據:號碼==============OneLine=file.ReadLineOneLineStr=Split(OneLine,"=")OneLineCount=UBound(split(OneLine,"="))'MsgBox OneLineStr(1)                       '===============取第二行數據:密碼===========TwoLine=file.ReadLineTwoLineStr=Split(TwoLine,"=")TwoLineCount=UBound(split(TwoLine,"="))'MsgBox TwoLineStr(1)    '===============取第三行數據:VOIP服務地址============ThreeLine=file.ReadLineThreeLineStr=Split(ThreeLine,"=")ThreeLineCount=UBound(split(ThreeLine,"="))'MsgBox ThreeLineStr(1)    '===============取第四行數據:對講設備地址============FourLine=file.ReadLineFourLineStr=Split(FourLine,"=")FourLineCount=UBound(split(FourLine,"="))'MsgBox FourLineStr(1)    '===============取第五行數據:瀏覽器安裝目錄============FiveLine=file.ReadLineFiveLineStr=Split(FiveLine,"=")FiveLineCount=UBound(split(FiveLine,"="))'MsgBox FiveLineStr(1)    'MainWeb()Main()'==================================================Function Main()    IE.Navigate FourLineStr(1)            Do         WScript.Sleep 500            Loop Until IE.ReadyState=4            Login()    SipSetting()    InputParm()    VOIP()    RebootSys()End Function '======================================================'登錄系統Function Login()    WScript.Sleep 1000    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys "admin"    ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys "admin"    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{ENTER}"End Function '================================================'進入sipsetting菜單Function SipSetting()    If IE.ReadyState=4 Then             WScript.Sleep 1000        ws.SendKeys "{TAB 5}"        WScript.Sleep 500        ws.SendKeys "{ENTER}"        WScript.Sleep 500        ws.SendKeys "{TAB}"        WScript.Sleep 500        ws.SendKeys "{ENTER}"        WScript.Sleep 2000    Else          MsgBox "進入配置界面失敗！"         End If End Function '============================================='切換輸入界面Function InputParm()    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200        ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200            ws.SendKeys "{DOWN}"  '選擇開啟狀態    WScript.Sleep 300End Function '========================================='配置參數Function VOIP()    ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)  'display name        ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)   'user number        ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)   'auth id        ws.SendKeys "{TAB}"        WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200                ws.SendKeys TwoLineStr(1)   'password        ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys ThreeLineStr(1)   'proxy ip        ws.SendKeys "{TAB}"        'domain    WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys ThreeLineStr(1)        '=============保存===========    ws.SendKeys "{TAB 48}"    WScript.Sleep 500    ws.SendKeys "{TAB}"    WScript.Sleep 500    ws.SendKeys "{ENTER}"    WScript.Sleep 1500    End Function '========================================================'修改參數后重啟Function RebootSys()    WScript.Sleep 500    ws.SendKeys "{F4}"    WScript.Sleep 500    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys FourLineStr(1)&reboot         WScript.Sleep 500        '   Set test=IE.document.getElementsByTagName ("Button")    ws.SendKeys "{ENTER}"        WScript.Sleep 2000        Set ALL = Ie.Document.getElementsByTagName("input")  '檢測網頁元素是否標簽為input,且值等于Reboot    For Each i In ALL    If i.value="Reboot" Then       'i.Click  '點擊reboot按鈕               WScript.Sleep 1000               Ie.Document.parentwindow.execScript("top.location='content.cgi?_method_=reboot'")  '直接執行reboot確認操作        Exit For         End If    Next        WScript.Sleep 3000            MsgBox "配置已完成，設備正在重啟，請耐心等待...",,"提示"    If ws.AppActivate("來自網頁的消息") Then                 ws.SendKeys "{ENTER}"        WScript.Sleep 2000                MsgBox "配置已完成，設備正在重啟，請耐心等待...",,"提示"            Else         'MsgBox "配置未成功,請重新檢查配置!",,"提示"            End If End Function '====================================================================Function MainWeb()    '=============啟動地址====================='方式一：自定義瀏覽器啟動,需配置路徑'   Function login()        '       ws.run FiveLineStr(1)'       WScript.Sleep 3000'       ws.SendKeys "{F4}"'       WScript.Sleep 200'       ws.SendKeys "^a"'       WScript.Sleep 500'       ws.SendKeys FourLineStr(1)'       WScript.Sleep 500'       ws.SendKeys "{ENTER}"                '   End Function    '方式二：用系統默認瀏覽器啟動     ws.Run FourLineStr(1)    '===============登錄設備=====================    WScript.Sleep 5000    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys "admin"    ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys "admin"    ws.SendKeys "{ENTER}"        '============進入sip setting菜單=============    WScript.Sleep 2000    ws.SendKeys "{TAB 5}"    WScript.Sleep 500    ws.SendKeys "{ENTER}"    WScript.Sleep 500    ws.SendKeys "{TAB}"    WScript.Sleep 500    ws.SendKeys "{ENTER}"    WScript.Sleep 2000            '==============進入編輯狀態=======================    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200        ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "{TAB}"    WScript.Sleep 200                ws.SendKeys "{DOWN}"  '選擇開啟狀態    WScript.Sleep 300        '==============配置VOIP================    ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)  'display name        ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)   'user number        ws.SendKeys "{TAB}"    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys OneLineStr(1)   'auth id        ws.SendKeys "{TAB}"        WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200                ws.SendKeys TwoLineStr(1)   'password        ws.SendKeys "{TAB}"    WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys ThreeLineStr(1)   'proxy ip        ws.SendKeys "{TAB}"        'domain    WScript.Sleep 200    ws.SendKeys "^a"    WScript.Sleep 200    ws.SendKeys ThreeLineStr(1)        '=============保存===========    ws.SendKeys "{TAB 48}"    WScript.Sleep 500    ws.SendKeys "{TAB}"    WScript.Sleep 500    ws.SendKeys "{ENTER}"    WScript.Sleep 1500    '===============重啟==========        ws.SendKeys "{TAB 18}"    WScript.Sleep 1000    ws.SendKeys "{ENTER}"    WScript.Sleep 1000    ws.SendKeys "{TAB 2}"    WScript.Sleep 500    ws.SendKeys "{ENTER}"    WScript.Sleep 1000        If ws.AppActivate("來自網頁的消息") Then             ws.SendKeys "{ENTER}"        WScript.Sleep 1000                MsgBox "配置已完成，設備正在重啟，請耐心等待...",,"提示"            Else         MsgBox "配置未成功,請重新檢查配置!",,"提示"            End If End Function Set ws=Nothing Set IE=Nothing Set fso=Nothing