中兴9806h单个端口自动调速.doc

9806自动调速运行工具：secureCRT 6.7 作者：鲍继川程序语言:vbs邮箱:1. 原理1,通过9806 表找到 svlan，telnet进去2通过cvlan找到端口3输入带宽，激活，保存即完成2 9806.xls文件987 988 3运行效果图4实际运行效果：5实际运行脚本# # Welcome to ZTE 9806H # # Press Return to get started # # Copyright 2005-2010 , ZTE Co.,Ltd. # #Login:adminPassword:_9806enPlease input password:_9806# config_9806(config)# show vlan 154VLANID : 154VLANName : VLAN154EncapType : allMember-limit : disableSLOT PVC Egress/UnTag PORTLIST-1 1 Egress 3 UnTag 3-5 Egress 1 UnTag -_9806(config)# interface adsl 1/_9806(cfg-if-adsl-1/3)# adsl profile 8M.PRF_9806(cfg-if-adsl-1/3)# exit_9806(config)# exit_9806# save 6程序代码# $language = VBScript# $interface = 1.0Sub mainConst ForReading = 1, ForWriting = 2, ForAppending = 8strx=et.exeKillProc(strx) crt.screen.synchronous = true Dim app, wb, ws Set app = CreateObject(et.Application) Set wb = app.Workbooks.Open (C:9806.xls,1,false) Set ws = wb.Sheets(宽带) 选择指定Sheet1iRowCount = ws.usedRange.Rows.Count app.Visible = falsewb.Savewb.Closeapp.Quitdim svlandim cvlandim banddim profilesvlan=inputbox(请输入svlan,第一个端口值：,911)cvlan=inputbox(请输入cvlan,第二个端口值：,154)band=inputbox(请输入带宽 M,带宽：,8)Select case bandcase 2 profile=E2.PRFcase 4 profile=4M.PRFcase 4.5 profile=ITV.PRFcase 6.5 profile=NEW6-5M.PRFcase 7 profile=7.PRFcase 8 Profile=8M.PRFcase 8.5 Profile=8-5.PRFcase 9 Profile=9.PRFcase else exit subend selectDim objTabFor iLoop = 1 To iRowCountexs = Trim(ws.Cells(iLoop,3) 取Cells中的值if(exs=svlan) thenexc =Trim(ws.Cells(iLoop,4)ex=Split(exc)ic=UBound(ex)msgbox(iLoop)select case iccase 0c=Split(ex(0),-)if cvlan=c(0) and cvlanobjTab.Screen.Send en & chr(13)objTab.Screen.Send admin & chr(13)objTab.Screen.WaitForString #objTab.Screen.Send config & chr(13)objTab.Screen.WaitForString (config)#objTab.Screen.Send show vlan &cvlan&chr(13)objTab.Screen.WaitForString (config)#nrow=objTab.Screen.CurrentRowmsgbox(nrow)str2=objTab.Screen.Get(nrow-7,0,nrow-7,60)l=Left(Trim(str2),2)r=Right(Trim(str2),2)objTab.Screen.Send interface adsl &Trim(l)&/&Trim(r)&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send adsl profile &profile&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send copr r s &chr(13)objTab.Screen.WaitForString #objTab.Screen.Send save &chr(13)objTab.Screen.WaitForString #, 3Call objTab.Session.Log(False) objTab.Screen.Synchronous = False objTab.Session.Disconnect exit subend ifcase 1c=Split(ex(0),-)e=Split(ex(1),-)if (cvlan=c(0) and cvlan=e(0) and cvlan=objTab.Screen.Send en & chr(13)objTab.Screen.Send admin & chr(13)objTab.Screen.WaitForString #objTab.Screen.Send config & chr(13)objTab.Screen.WaitForString (config)#objTab.Screen.Send show vlan &cvlan&chr(13)objTab.Screen.WaitForString (config)#nrow=objTab.Screen.CurrentRowmsgbox(nrow)str2=objTab.Screen.Get(nrow-7,0,nrow-7,60)l=Left(Trim(str2),2)r=Right(Trim(str2),2)objTab.Screen.Send interface adsl &Trim(l)&/&Trim(r)&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send adsl profile &profile&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send copr r s &chr(13)objTab.Screen.WaitForString #objTab.Screen.Send save &chr(13)objTab.Screen.WaitForString #, 3Call objTab.Session.Log(False) objTab.Screen.Synchronous = False objTab.Session.Disconnect end ifcase 2c=Split(ex(0),-)e=Split(ex(1),-)f=Split(ex(2),-)if(cvlan=c(0) and cvlan=e(0) and cvlan=f(0) and cvlan=objTab.Screen.Send en & chr(13)objTab.Screen.Send admin & chr(13)objTab.Screen.WaitForString #objTab.Screen.Send config & chr(13)objTab.Screen.WaitForString (config)#objTab.Screen.Send show vlan &cvlan&chr(13)objTab.Screen.WaitForString (config)#nrow=objTab.Screen.CurrentRowmsgbox(nrow)str2=objTab.Screen.Get(nrow-7,0,nrow-7,60)l=Left(Trim(str2),2)r=Right(Trim(str2),2)objTab.Screen.Send interface adsl &Trim(l)&/&Trim(r)&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send adsl profile &profile&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send copr r s &chr(13)objTab.Screen.WaitForString #objTab.Screen.Send save &chr(13)objTab.Screen.WaitForString #, 3Call objTab.Session.Log(False) objTab.Screen.Synchronous = False objTab.Session.Disconnect end ifcase 3c=Split(ex(0),-)e=Split(ex(1),-)f=Split(ex(2),-)g=Split(ex(3),-)if(cvlan=c(0) and cvlan=e(0) and cvlan=f(0) and cvlan=g(0) and cvlan=objTab.Screen.Send en & chr(13)objTab.Screen.Send admin & chr(13)objTab.Screen.WaitForString #objTab.Screen.Send config & chr(13)objTab.Screen.WaitForString (config)#objTab.Screen.Send show vlan &cvlan&chr(13)objTab.Screen.WaitForString (config)#nrow=objTab.Screen.CurrentRowmsgbox(nrow)str2=objTab.Screen.Get(nrow-7,0,nrow-7,60)l=Left(Trim(str2),2)r=Right(Trim(str2),2)objTab.Screen.Send interface adsl &Trim(l)&/&Trim(r)&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send adsl profile &profile&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send exit&chr(13)objTab.Screen.WaitForString #objTab.Screen.Send copr r s &chr(13)objTab.Screen.WaitForString #objTab.Screen.Send save &chr(13)objTab.Screen.WaitForString #, 2Call objTab.Session.Log(False) objTab.Screen.Synchronous = False objTab.Session.Disconnect end ifcase elseend selectend ifNextwb.CloseSet wb=NothingSet ws=NothingSet app=Nothing app.Quit crt.screen.synchronous = falseEnd SubFunction