更新网络设备巡检脚本，各位大神可以看看，如有不足，请指正！

CC_Zu

这是最近刚刚更新的vbs网络设备巡检脚本，可以在crt远程终端里面跑命令，各位可以测试一下，目前上传的是思科接入层交换机的巡检命令，各位可以根据自己的需要进行修改，亲测大大提升了工作效率。

zqq200808

学习一下，给你贴一部分 我写的

[Visual Basic] 纯文本查看 复制代码

params=str.split(" ");
objTab.Session.Connect("/telnet " + params[0]);
objTab.Screen.WaitForString( "Password:");
objTab.Screen.Send(params[1] + "\r");
objTab.Screen.WaitForString( ">");
objTab.Screen.Send("super"+"\r");
objTab.Screen.WaitForString( "Password:");
objTab.Screen.Send(params[2] + "\r");
objTab.Screen.WaitForString( ">");
objTab.Screen.Send("sys"+"\r");
objTab.Screen.WaitForString( "]");
objTab.Session.LogFileName = "d:\\Config-BACKUP\\log\\"+params[3]+".log";
objTab.Session.Log(true);
//配置信息
objTab.Screen.Send("display current-configuration"+"\r");
objTab.Screen.Send("               ");
objTab.Screen.WaitForString( "]");
//版本信息
objTab.Screen.Send("display version"+"\r");
objTab.Screen.Send("   ");
objTab.Screen.WaitForString( "]");
//接口信息
objTab.Screen.Send("display interface brief "+"\r");
objTab.Screen.Send("           ");
objTab.Screen.WaitForString( "]");
//CPU信息
objTab.Screen.Send("display cpu"+"\r");
objTab.Screen.Send("           ");
objTab.Screen.WaitForString( "]");
//内存信息
objTab.Screen.Send("display memory"+"\r");
objTab.Screen.Send("     ");
objTab.Screen.WaitForString( "]");
//风扇信息
objTab.Screen.Send("display fan"+"\r");
objTab.Screen.Send("     ");
objTab.Screen.WaitForString( "]");
//硬件信息
objTab.Screen.Send("display device manuinfo"+"\r");
objTab.Screen.Send("     ");
objTab.Screen.WaitForString( "]");
objTab.Screen.Send("quit"+"\r");
objTab.Screen.WaitForString( ">");
//objTab.Session.LogFileName = "d:\\Config-BACKUP\\log\\"+params[0]+".log";
objTab.Session.Log(false);
objTab.Screen.Send("quit"+"\r");
objTab.Session.Disconnect();

loa123

zqq200808 发表于 2018-9-30 22:12
学习一下，给你贴一部分 我写的
[mw_shl_code=vb,true]params=str.split(" ");
objTab.Session.Connect(" ...

这个可以做出一个网页监控系统么？
把读取出来的东西都显示在网页里，更加直观。。

Ocean老班长

用心讨论  共获提升   吾爱有你更美好

mengsiyiren

有华为的么？公司用的是华为的

wulanzhongxue

mengsiyiren 发表于 2018-6-6 15:34
有华为的么？公司用的是华为的

你把里面思科的命令改成华为的应该就可以。
我猜的，我不是专业的，错了勿喷

leesincool6

我都是自己录制，执行一次命令 然后保存修改，下次直接用。华为的设备

leeqng

下载了，改下试试

mengsiyiren

wulanzhongxue 发表于 2018-6-6 15:37
你把里面思科的命令改成华为的应该就可以。
我猜的，我不是专业的，错了勿喷

好的，谢谢哈

pholy

看着好高端哈！~

CC_Zu

zqq200808 发表于 2018-9-30 22:12
学习一下，给你贴一部分 我写的
[mw_shl_code=vb,true]params=str.split(" ");
objTab.Session.Connect(" ...

还是大神写的6