secureCRT VBS脚本语法.doc

《secureCRT VBS脚本语法.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、常用语句：1.CRT命令 ‘发送命令 crt.Screen.Send“whyy@dsl-vty”&chr(13) ‘等待字符串出现 crt.Screen.WaitForString“Password:” ‘等待字符串出现，等待1秒钟 crt.Screen.WaitForString(“Password:”,1) ‘开启同步 crt.Screen.Synchronous=True ‘判断指针1秒内不移动，用于确定安全连接可以进行后续代码输入操作 Do bCursorMoved=crt.Screen.WaitForCursor(1) 

2、LoopuntilbCursorMoved=False ‘判定是否已经连接到设备 ifcrt.Session.Connected=truethen ‘断开连接 crt.session.disConnect ‘激活窗口用于多tab页面 crt.Activate ‘连接到指定设备 crt.session.Connect(“/telnet”&b(n)) ‘延时1秒 crt.Sleep10002.vbScript语句a.文件操作 Setfso=CreateObject(“Scripting.FileSystemObject”)‘创建文件对

3、象 Setfile1=fso.OpenTextFile(“c:test.txt”,1,False)‘设置文件对象1只读模式;2写模式;8在文件末尾进行写操作 objFso.FileExists(“文件路径”)‘判定文件是否存在，存在返回trus，否则返回false file1.AtEndOfStream<>True‘如果文件末尾无数据返回true，否则返回false line=file1.ReadLine‘读取第一行文本数据，并将读取位移动到下一行 params=Split(line)‘分割读取的行数据，用空格符分割 file1

4、.Close‘关闭文件b.系统文档操作 ‘创建shell对象，对系统特殊文档操作 SetobjShell=CreateObject(“WScript.Shell”)‘返回”我的文档”的路径给变量szMyDocs,可以动态的返回”我的文档”的路径 szMyDocs=objShell.SpecialFolders(“MyDocuments”)‘设置文件路径到变量中 szSessionsFile=szMyDocs&“SessionList.txt”3.知识点 （1）判断文件是否存在 ifNotobjFso.FileExists(szS

5、essionsFile)then‘如果txt文件不存在，就报错并退出sub crt.Dialog.MessageBox“Sessionlistfilenotfound:”&vbcrlf& vbcrlf&szSessionsFile&vbcrlf&vbcrlf& “Createasessionlistfileasdescribedinthedescriptionof”&“thisscriptcodeandthenrunthescriptagain.” exitsub endif（2）容错机制 OnErrorResumeNext‘后面

6、代码错误会继续执行 crt.Session.Connect“/telnet”&vSessionsArray(0) szError=Err.Description‘将错误表述信息放入变量szError中 OnErrorGoto0‘关闭容错机制（3）判断是否安全连接 ‘判断是否连接正常 ifcrt.Session.Connectedthen crt.Screen.Synchronous=True‘同步显示 ‘第一次连接时的安全检测 Do bCursorMoved=crt.Screen.WaitForCursor(1) Loopunti

7、lbCursorMoved=False ’一旦光标在一秒内停止移动，我们就认为他已经安全的连接上了远程设备 endif（4）安全关闭连接 ’断开连接 crt.session.disconnect ’等待连接关闭 Do crt.Sleep100 LoopWhilecrt.Session.Connected=True‘每100毫秒判断连接是否断开（5）说明: 1.CRT默认tab的index为1 2.要创建第二个标签页tab,必须使用函数setnewtab=objCurrentTab1.Clone()复制标签页为新的tab页面 否则报

8、错tab2超出index范围rang函数： SetobjCurrentTab1=crt.GetTab(1)‘创建标签页1 objCurrentTab1.session.disConnect‘断开标签页1的当前连接 objCurrentTab1.Ac