資源描述：
《secureCRT VBS腳本語法.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、常用語句：1.CRT命令?‘發(fā)送命令?crt.Screen.Send“whyy@dsl-vty”&chr(13)?‘等待字符串出現(xiàn)?crt.Screen.WaitForString“Password:”?‘等待字符串出現(xiàn)，等待1秒鐘?crt.Screen.WaitForString(“Password:”,1)?‘開啟同步?crt.Screen.Synchronous=True?‘判斷指針1秒內(nèi)不移動，用于確定安全連接可以進行后續(xù)代碼輸入操作?Do?bCursorMoved=crt.Screen.WaitForCursor(1)?
2、LoopuntilbCursorMoved=False?‘判定是否已經(jīng)連接到設備?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”)‘創(chuàng)建文件對
3、象?Setfile1=fso.OpenTextFile(“c:test.txt”,1,False)‘設置文件對象1只讀模式;2寫模式;8在文件末尾進行寫操作?objFso.FileExists(“文件路徑”)‘判定文件是否存在，存在返回trus，否則返回false?file1.AtEndOfStream<>True‘如果文件末尾無數(shù)據(jù)返回true，否則返回false?line=file1.ReadLine‘讀取第一行文本數(shù)據(jù)，并將讀取位移動到下一行?params=Split(line)‘分割讀取的行數(shù)據(jù)，用空格符分割?file1
4、.Close‘關(guān)閉文件b.系統(tǒng)文檔操作?‘創(chuàng)建shell對象，對系統(tǒng)特殊文檔操作?SetobjShell=CreateObject(“WScript.Shell”)‘返回”我的文檔”的路徑給變量szMyDocs,可以動態(tài)的返回”我的文檔”的路徑?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、代碼錯誤會繼續(xù)執(zhí)行?crt.Session.Connect“/telnet”&vSessionsArray(0)?szError=Err.Description‘將錯誤表述信息放入變量szError中?OnErrorGoto0‘關(guān)閉容錯機制（3）判斷是否安全連接?‘判斷是否連接正常?ifcrt.Session.Connectedthen?crt.Screen.Synchronous=True‘同步顯示?‘第一次連接時的安全檢測?Do?bCursorMoved=crt.Screen.WaitForCursor(1)?Loopunti
7、lbCursorMoved=False?’一旦光標在一秒內(nèi)停止移動，我們就認為他已經(jīng)安全的連接上了遠程設備?endif（4）安全關(guān)閉連接?’斷開連接?crt.session.disconnect?’等待連接關(guān)閉?Do?crt.Sleep100?LoopWhilecrt.Session.Connected=True‘每100毫秒判斷連接是否斷開（5）說明:?1.CRT默認tab的index為1?2.要創(chuàng)建第二個標簽頁tab,必須使用函數(shù)setnewtab=objCurrentTab1.Clone()復制標簽頁為新的tab頁面?否則報
8、錯tab2超出index范圍rang函數(shù)：?SetobjCurrentTab1=crt.GetTab(1)‘創(chuàng)建標簽頁1?objCurrentTab1.session.disConnect‘斷開標簽頁1的當前連接?objCurrentTab1.Ac
