常用语句：

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) Loop until bCursorMoved = False ‘判定是否已经连接到设备 if crt.Session.Connected = true then ‘断开连接 crt.session.disConnect ‘激活窗口 用于多tab页面 crt.Activate ‘连接到指定设备 crt.session.Connect(“/telnet ” & b(n)) ‘延时1秒 crt.Sleep 1000

2.vbScript语句

a.文件操作 Set fso = CreateObject(“Scripting.FileSystemObject”) ‘创建文件对象 Set file1 = 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.Close ‘关闭文件

b.系统文档操作 ‘创建shell对象，对系统特殊文档操作 Set objShell = CreateObject(“WScript.Shell”)

‘返回”我的文档”的路径给变量szMyDocs,可以动态的返回”我的文档”的路径 szMyDocs = objShell.SpecialFolders(“MyDocuments”)

‘设置文件路径到变量中 szSessionsFile = szMyDocs & “\SessionList.txt”

3.知识点