crt一括バックアップネットワークデバイススクリプト


vbsスクリプトによるsecureCRTリモートログインによるネットワークデバイススクリプトの一括バックアップ
使用:secureCRTを開いてスクリプトを選択し、このスクリプトを実行します.
このスクリプトはe:/デバイスバックアップ/ipを呼び出す.txtファイル、このファイル内のフォーマット:ipアドレスユーザー名パスワードデバイス名
#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
Sub Main
Const ForReading = 1
ForWriting = 2
ForAppending = 8
Dim wordkey
Dim fso
Dim file1
Dim line
Dim params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1=fso.OpenTextFile("e:\ \ip.txt",ForReading,False)
' :ip      
While file1.AtEndOfStream <> True
' 
line = file1.ReadLine
params = Split (line)
crt.Session.Connect "/telnet" & " " & params(0)
'  telnet ip  23
crt.Session.LogFileName = "e:/ /" + params(3) + Replace(Replace(Replace(date, ":", ""), "/", ""), " ", "") + "_log.txt"
crt.Session.Log True
wordkey = crt.Screen.WaitForStrings ("username:","login:","Username:",3)  '3  
Select case wordkey
case 1
crt.Screen.Send params(1) & chr(13)
crt.Screen.WaitForString "PASSCODE:"
crt.Screen.Send params(2) & chr(13)
crt.Screen.WaitForString "#"
crt.Screen.Send "show run" & chr(13)
While (crt.Screen.WaitForString("--More--",3)= true)
crt.Screen.Send " "
wend
case 2
crt.Screen.Send params(1) & chr(13)
crt.Screen.WaitForString "Password: "
crt.Screen.Send params(2) & chr(13)
crt.Screen.WaitForString ">"
crt.Screen.Send "dis cu" & chr(13)
While (crt.Screen.WaitForString("---- More ----",3)= true)
crt.Screen.Send " " 
wend
case 3
crt.Screen.Send params(1) & chr(13)
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(2) & chr(13)
crt.Screen.WaitForString ">"
crt.Screen.Send "dis cu" & chr(13)
While (crt.Screen.WaitForString("---- More ----",3)= true)
crt.Screen.Send " "
wend
End Select
crt.Session.Disconnect
wend
crt.Screen.Synchronous = False
End Sub