谁能给一个SecureCRT的vbs脚本函数使用说明_百度知道
谁能给一个SecureCRT的vbs脚本函数使用说明
我有更好的答案
谁能给一个SecureCRT的vbs脚本函数使用说明 果真去写VBS的话其实是比较累的，对于这种自动登录自动配置的操作建议使用脚本录制和脚本执行来实现，简单明了。 春满人间百花吐艳 福临小院四季常安 欢度春节
采纳率：94%
为您推荐：
其他类似问题
您可能关注的内容
vbs脚本的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。securecrt写了段vbs，报错，求大神解答！_百度知道
securecrt写了段vbs，报错，求大神解答！
用途，从一张excel表里读出参数，写telnet的ini文件。代码：
# $language = &VBScript&
# $interface = &1.0&
sConfigFilePath
=&d:\crt_cfg\&
Set oExcel=CreateObject(&Excel.Application&)
Set oWorkbooks=oExcel.Workbooks.Open...
我有更好的答案
我用vbs文件测试可以写入内容不过需要满足以下条件：sConfigFilePath &=&d:\crt_cfg\& 此文件夹存在d:\crt_cfg\equip.xls 文件存在d:\crt_cfg\equip.xls 1至3列有内容d:\crt_cfg\TelnetModule.ini 文件存在d:\crt_cfg\sessions\ 文件夹存在另外有一点需要注意 读取和写入的文件编码格式要一致
采纳率：62%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。SecureCRT 运行vbs脚本问题_百度知道
SecureCRT 运行vbs脚本问题
我有更好的答案
脚本代码内容贴出来。这个只能看代码才能知道问题。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。SecureCRT脚本 VBS_天涯博客_有见识的人都在此_天涯社区
博主：& 栏目分类
访问：148738 次
今日访问：4次
日志: -40篇
评论: 1 个
留言: 0 个
SecureCRT脚本 VBS
请问有没有什么小程序或者脚本能够轮训N个分区，执行相同命令的？我的工作是每天要巡检N个分区每个分区都要手动telnet上去，执行一些巡检命令请问各位大大有没有这样一个程序或者脚本可以用于减少我的重复工作的？谢谢yddll ( 15:12:57)在windows下可以使用VBscript网上搜了搜，就可以找到如下解决方案：首先，我们建立一个名字叫做tel.vbs的脚本，这里有一个例子，相关内容大家可以修改。'建立Shell对象set sh=WScript.CreateObject("WScript.Shell")WScript.Sleep 1000'向telnet发送我们平时录入的命令sh.SendKeys "open 192.168.1.1"WScript.Sleep 1000sh.SendKeys "{ENTER}"WScript.Sleep 1000sh.SendKeys "password{ENTER}"WScript.Sleep 1000sh.SendKeys "en{ENTER}"WScript.Sleep 1000sh.SendKeys "passord{ENTER}"WScript.Sleep 1000'运行命令sh.SendKeys "ls{ENTER}"然后，建立一个batch.bat的批处理文件：rem 启动telnetstart telnet.exerem batch telnetcscript //nologo tel.vbs最后，我们只需要运行batch.bat就可以轻松搞定telnet的工作了。cinord ( 15:24:02)其实用CRT的脚本功能也挺好使用的，以前每天检查200多台设备的时候就是这么干的。下面是一个脚本的例子，保存后.vbs文件，直接在CRT的执行中运行'用户名、密码设定Const BEDHOST = "ip"Const BEDUSER = "admin"Const BEDPWD&&= "passwrod"Const VPUUSER = "username"Const VPUPWD&&= "password"Const VPURPWD = "password"Const SIUPORT = "8100"Const MDBUSER = "admin"Const MDBPWD&&= "password"Sub Main& & crt.Screen.Synchronous = True& & Dim logfile& && &logfile = "C:\channel.txt"& && && && &crt.Session.LogFileName = logfile&&' Enable logging& && &&&crt.Session.Log True& & 'login TestBed& & If LoginTestBed = False Then& && &&&Exit Sub& & End If& & & & '以VPU为单元& & chkVPUChannels& & & & 'logout TestBed& & LogoutTestBed& &&&' crt.session.Log(false)& &&&' Set file = fso.OpenTextFile(crt.Session.LogFileName, 8, True)& &&&' file.WriteLine "crt.session.logfilename"& &&&' file.Close& &&&'crt.session.Log(true)& &&&'file.Close& & crt.Screen.Synchronous = False& & crt.Session.Log False& & crt.Session.Disconnect& & End Sub'login testbedFunction LoginTestBed& & & & 'connect& & cmd = "/telnet " & BEDHOST& & crt.Session.Connect cmd& & If crt.Screen.WaitForString("ogin:", 220) = False Then& && &&&MsgBox "Failed to connect to TestBed!"& && &&&LoginTestBed = False& && &&&Exit Function& & End If& & & & 'login& & crt.Screen.Send BEDUSER & Chr(13)& & crt.Screen.WaitForString "assword:"& & crt.Screen.Send BEDPWD & Chr(13)& & & & 'print date& & crt.Screen.WaitForString "%"&&& & 'crt.Screen.WaitForString "&"& & crt.Screen.Send "date" & Chr(13)& & & & 'login crbtif#02& & If Login("crbtif#02", "192.168.9.13", "username", "password") = False Then& && &&&MsgBox ("connect to crbtif#2 fail!")& && &&&LoginTestBed = False& && &&&Exit Function& & End If& & LoginTestBed = True& &End Function'logout testbedSub LogoutTestBed& & & & crt.Screen.Send "exit" & Chr(13)& & crt.Screen.WaitForString "$"& & 'crt.Screen.WaitForString "&"& & crt.Screen.Send "exit" & Chr(13)& & crt.Session.Log FalseEnd Sub'以VPU为单元Sub chkVPUChannels& & 'IVR& & chkVPU "IVR VPU01", "192.168.x.xx", 1& & chkVPU "IVR VPU02", "192.168.x.xx", 0& & chkVPU "IVR VPU03", "192.168.x.xx", 1& & chkVPU "IVR VPU04", "192.168.x.xx", 0& && &&&End Sub'''''''''''''''''''''''''''''''''''''''''''''''''''''''''check&&VPUSub chkVPU(host, ip, isFirst)& & 'isFirst not used& & 'para& & If ip = Empty Then& && &&&Exit Sub& & End If& & & & 'login& & If Login(host, ip, VPUUSER, VPUPWD) = False Then& && &&&MsgBox("chkVPU fail!")& && &&&Exit Sub& & End If&&& & & & 'print out date& & 'crt.Screen.WaitForString("$")& & 'crt.Screen.Send("date") & Chr(13)& & crt.Screen.WaitForString("$")& & & & 'crt.Screen.WaitForString "adgz&"& & 'check channel rate& &' crt.Screen.Send("IP/run/show 2") & Chr(13)& &&&crt.Screen.Send("IP/run/show") & Chr(13)& && &&&& & crt.Screen.WaitForString "!@#$", 1 'we wait for 1 second& & crt.Screen.Send Chr(3)'send ^C& & crt.Screen.WaitForString("$") & && && && && & 'logout& & 'crt.Screen.Send "exit" & Chr(13)& & 'crt.Screen.WaitForString("$")& & crt.Screen.Send "logout" & Chr(13)& & crt.Screen.WaitForString("%")& & End Sub Function Login(host, ip, user, pwd)& & crt.Screen.Send "telnet " & ip & Chr(13)& & If crt.Screen.WaitForString ("ogin:", 50) = False Then& && &&&MsgBox "Failed to connect to " & host& && &&&Login = False& && &&&Exit Function& & End If& & 'login& & crt.Screen.Send user & Chr(13)& & crt.Screen.WaitForString "assword:"& & crt.Screen.Send pwd & Chr(13)& & crt.Screen.WaitForCursor& & Login = True End Function[ 本帖最后由 cinord 于
15:32 编辑 ]czp ( 16:07:44)QUOTE:原帖由 yddll 于
15:12 发表 在windows下可以使用VBscript网上搜了搜，就可以找到如下解决方案：首先，我们建立一个名字叫做tel.vbs的脚本，这里有一个例子，相关内容大家可以修改。'建立Shell对象set sh=WScript.CreateObject("WS ... 之前也按照这个方法试过，不成今天严格按照yddll大大的方法成了 感谢感谢，等我进一步测试一下，再稍微成熟点了，我就发上来share给大家。beginner-bj ( 21:28:38)用VBscript应该是最简单的办法。用expect、SSH也可以，但是要安装比较麻烦。yddll 不愧是技术专家，啥都懂啊。yddll ( 22:47:52)QUOTE:原帖由 beginner-bj 于
21:28 发表 用VBscript应该是最简单的办法。用expect、SSH也可以，但是要安装比较麻烦。yddll 不愧是技术专家，啥都懂啊。 取之于internet，用之于internet而已，算不上啥本事beginner-bj ( 23:33:59)能从INTERNET上找到答案也算本事啦。几乎所有的问题都能从网上找到答案，但论坛里还不是一样充斥着各种各样GOOGLE就能解决的问题吗？czp ( 14:30:57)我现在是这么用的：xunjian.bat文件内容： QUOTE:rem 启动telnetstart telnet.exerem batch telnetcscript //nologo xunjian.vbsxunjian.vbs文件内容： QUOTE:set sh=WScript.CreateObject("WScript.Shell")WScript.Sleep 3000sh.SendKeys "open 192.168.1.1{ENTER}"WScript.Sleep 3000sh.SendKeys "user1{ENTER}"WScript.Sleep 3000sh.SendKeys "userpassword{ENTER}"WScript.Sleep 3000sh.SendKeys "vmstat & A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "df -g && A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "lsps -a && A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "iostat && A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "echo | errpt|pg && A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "ftp 192.168.1.200{ENTER}"WScript.Sleep 3000sh.SendKeys "administrator{ENTER}"WScript.Sleep 3000sh.SendKeys "password{ENTER}"WScript.Sleep 3000sh.SendKeys "bin{ENTER}"WScript.Sleep 3000sh.SendKeys "cd aix_xunjian{ENTER}"WScript.Sleep 3000sh.SendKeys "del A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "put A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "bye{ENTER}"WScript.Sleep 3000sh.SendKeys "rm ./A1.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "exit{ENTER}"WScript.Sleep 3000sh.SendKeys " {ENTER}"WScript.Sleep 3000sh.SendKeys "open 192.168.1.2{ENTER}"WScript.Sleep 3000sh.SendKeys "user2{ENTER}"WScript.Sleep 3000sh.SendKeys "userpassword{ENTER}"WScript.Sleep 3000sh.SendKeys "vmstat & A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "df -g && A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "lsps -a && A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "iostat && A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "echo | errpt|pg && A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "ftp 192.168.1.200{ENTER}"WScript.Sleep 3000sh.SendKeys "administrator{ENTER}"WScript.Sleep 3000sh.SendKeys "password{ENTER}"WScript.Sleep 3000sh.SendKeys "bin{ENTER}"WScript.Sleep 3000sh.SendKeys "cd aix_xunjian{ENTER}"WScript.Sleep 3000sh.SendKeys "del A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "put A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "bye{ENTER}"WScript.Sleep 3000sh.SendKeys "rm ./A2.txt{ENTER}"WScript.Sleep 3000sh.SendKeys "exit{ENTER}"WScript.Sleep 3000sh.SendKeys " {ENTER}"WScript.Sleep 3000sh.SendKeys "quit{ENTER}"WScript.Sleep 3000用起来还是局限性很大的，保证当前窗口的激活状态；时间延迟根据网络和主机的反应速度决定；....[ 本帖最后由 czp 于
14:32 编辑 ]yddll ( 14:50:37)推荐去PC服务器版下载我上传的关于“windows下的脚本”的文档 jiangxh ( 15:59:26)你的unix配置了mail没有，如果有的话，我觉得还不如从分区段用crontab得到数据，由问题的系统定时给你mail到你的邮箱，每天定期看看有没有错误的邮件就可以了老农 ( 23:11:12)恩，缺省都有mail的，配好地址解析，发mail 也方便beginner-bj ( 07:50:02)QUOTE:原帖由 czp 于
14:30 发表 我现在是这么用的：xunjian.bat文件内容：xunjian.vbs文件内容：用起来还是局限性很大的，保证当前窗口的激活状态；时间延迟根据网络和主机的反应速度决定；.... VBS的确有这两个问题。那还是用expect吧，并不比VBS难写。
本文所属博客：
引用地址：没有更多推荐了，
不良信息举报
举报内容：
Vbscript 编写SecureCRT脚本
举报原因：
原文地址：
原因补充：
最多只允许输入30个字
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！}