华为交换机自动透传vbs脚本1

《华为交换机自动透传vbs脚本1》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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到这个设备上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)&