SecureCRT脚本-批量记录交换机设备名称

# $language = "VBScript"
# $interface = "1.0"
'获取交换机名称
Sub Main
Set fso = CreateObject("Scripting.Filesystemobject")
Set tf = fso.CreateTextFile("C:\Users\Administrator\Desktop\111.txt",2,true)
'tf.WriteLine(parm(0))
Set file1 = fso.OpenTextFile("C:\Users\Administrator\Desktop\test.txt",1, False)
DO While file1.AtEndOfStream <> True
line = file1.ReadLine
params = Split (line," ")
crt.Screen.Synchronous = True
crt.Session.Connect "/TELNET " & params(0)
if crt.Session.Connected then
crt.Screen.Synchronous = True '同步显示
crt.Screen.Send params(2) & chr(13)
crt.Screen.WaitForString ">"
if params(1) = 1 then
type1 = 1
crt.Screen.Send "en" & chr(13)
else
type1 = 2
crt.Screen.Send "su" & chr(13)
end if
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(3) & chr(13)
'cisco交换机操作
if type1 = 1 then
crt.Screen.WaitForString "#"
screenrow = crt.screen.CurrentRow
readline = crt.Screen.Get(screenrow, 1, screenrow, 40)
tf.WriteLine(readline)
else
'h3c 交换机操作
crt.Screen.WaitForString ">"
screenrow = crt.screen.CurrentRow
readline = crt.Screen.Get(screenrow, 1, screenrow, 40)
tf.WriteLine(readline &" "& line)
end if
end if
crt.Session.disConnect
loop
set fso = nothing
tf.close
file1.close
end sub