資源描述：
《華為交換機自動透傳vbs腳本1》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、單個華為交換機自動透傳vlan工具：secureCRT語言：vbs作者：鮑繼川郵箱：bc5367@gmail.com1.Vlan.txt文件Xxxx_93062012G1/0/0G1/0/2g1/0/3第一行為交換機名稱第二行為vlan第三行為要透傳的端口2交換機信息文件交換機.txt1.1.1.1用戶名密碼super3密碼2.2.2.2用戶名密碼super3密碼———————————————————————————————————————3通過讀取vlan.txt文件的第一行，找到交換機信息文件里德信息后登陸進去，取得vlan.txt的第二行為vlan信息。取得第三行作為交
2、換機端口，準備透傳。完整代碼如下：#$language="VBScript"#$interface="1.0"SubMainConstForReading=1,ForWriting=2,ForAppending=8DimobjTab,flagonerrorgoto0flag=0SetobjTab=crt.GetScriptTabSetfso1=CreateObject("Scripting.FileSystemObject")Setfso4=CreateObject("Scripting.FileSystemObject")objTab.Screen.Synchronous=
3、Truestr1="e:/easy/vlan.txt"ifnotfso1.FileExists(str1)thencrt.Dialog.MessageBox"交換機透傳文件不存在"&vbcrlf&_vbcrlf&_str1&vbcrlf&vbcrlf&_"請重新運行腳本!"exitSubendifSetfile1=fso1.OpenTextFile(str1,1,False)line1=""line1=Trim(file1.ReadLine)ifline1=""thencrt.Dialog.MessageBox"交換機為空!"exitsubendifdimline2,line
4、3,line4str4="E:easy交換機ip.txt"Setfile4=fso4.OpenTextFile(str4,1,False)doline4=Trim(file4.ReadLine)if(line4="")thenexitsubendifparams=Split(line4)if(line1=params(1))thenflag=1'msgbox(flag)exitdoendifloopuntilfile4.AtEndOfStream=Trueifflag=0thenmsgbox("沒找到交換機")exitsubendifline2=Trim(file1.Re
5、adLine)line3=Trim(file1.ReadLine)l=Split(line3)if(line2="")thenmsgbox("vlan為空")exitSubendifif(line3="")thenmsgbox("端口為空")exitSubendifobjTab.session.LogFileName="e:easylog"&Date&""¶ms(0)&".txt"objTab.session.Log(true)'Telnet到這個設(shè)備上objTab.Session.Connect"/TELNET"¶ms(0)objTab.Screen.
6、Synchronous=TrueobjTab.Screen.WaitForString"Username:"objTab.Screen.Sendparams(1)&chr(13)objTab.Screen.WaitForString"Password:"objTab.Screen.Sendparams(2)&chr(13)objTab.Screen.WaitForString">"objTab.Screen.Send"super3"&chr(13)objTab.Screen.WaitForString"Password:"objTab.Screen.Sendparams(3)
7、&chr(13)objTab.Screen.WaitForString">"objTab.Screen.Send"sys"&chr(13)objTab.Screen.WaitForString"]"skey=InStr(params(1),5)selectcaseskeycase0crt.Screen.Send"vlanba"&line2&chr(13)fori=0toUBound(l)objTab.Screen.WaitForString"]"objTab.Screen.Send"int"&l(i)&
