首页 > 学术百科

SecureCRT结合VB脚本设备巡检命令

======================SSH２=======================

#$language = "VBScript"

#$interface = "1.0"

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

Const ForReading=1,ForWriting=2,ForAppending=8

dim fso,file1,line,params,file_error

dim path1,path2,path3

path1 = "D:\Log_Collected_"

'path3 = "D:\Log_Collected_"

Set fso = CreateObject("Scripting.FileSystemObject")

set file1=fso.OpenTextFile(path1,ForReading,False)

'Set file_error = fso.OpenTextFile(path3,2,true)

DO While file1.AtEndOfStream<>True

line=file1.ReadLine

params=Split(line)

crt.Session.LogFileName ="D:\Log_Collected_SecureCRT\Zidongxunjian\%Y%M%D\"¶ms(0)&".log"

crt.Screen.Synchronous = True

Call crt.Session.Log(False)

Call crt.Session.Log(True,True)

On Error Resume Next

crt.sleep 1000

crt.Session.Connect "/SSH2 /L " ¶ms(1) & " /PASSWORD " ¶ms(2)& " /C 3DES /M MD5 " & params(0)

if crt.Session.Connected = true then

'crt.Screen.Send "ssh " & params(0) & vbcr

szError = Err.Description

On Error Goto 0

crt.sleep 1000

'crt.Screen.WaitForString "Username: "

'crt.Screen.Send params(1) & vbcr

'crt.Screen.WaitForString "Password: "

'crt.Screen.Send params(2) & vbcr

crt.Screen.WaitForString ">"

crt.Screen.Send "enable" & vbcr

crt.Screen.WaitForString "Password: "

crt.Screen.Send params(3) & vbcr

crt.Screen.WaitForString "#"

crt.Screen.Send "show version " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show inventory " & vbcr

当飞机飞越彩虹

crt.Screen.WaitForString "#"

crt.Screen.Send "show ip interface brief " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show interface description " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show running " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show boot " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show processes cpu " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

win98

crt.Screen.WaitForString "#"

孔东梅的孩子 crt.Screen.Send "show processes memory " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd 历史的选择

crt.Screen.Send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "show loggin last 200 " & vbcr

While crt.Screen.WaitForString ("--More--",3)

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.sleep 2000

crt.Screen.WaitForString "#"

crt.Screen.Send "exit" & vbcrlf

crt.Screen.Send " " & vbcrlf

'crt.Screen.WaitForString "Testswitch login"

else

g_szErrors = g_szErrors & vbcrlf

end If

crt.Sleep 1000

loop

crt.Session.Disconnect

gspif g_szErrors <> "" then

file_error.WriteLine(g_szErrors)

set oShell = CreateObject("wscript.shell")

oShell.Run path3

set oShell = nothing

end if

file1.Close

'file_error.Close

Call crt.Session.Log(False)

crt.Screen.synchronous=False

End Sub

======================Telnet========================

#$language = "VBScript"

#$interface = "1.0"

' This automatically generated script may need to be

' edited in order to work correctly.

Sub Main

Const ForReading=1,ForWriting=2,ForAppending=8

dim fso,file1,line,params,file_error

dim path1,path2,path3

path1 = "D:\Log_Collected_"

'path3 = "D:\Log_Collected_"

Set fso = CreateObject("Scripting.FileSystemObject")

set file1=fso.OpenTextFile(path1,ForReading,False)

'Set file_error = fso.OpenTextFile(path3,2,true)

DO While file1.AtEndOfStream<>True

line=file1.ReadLine

params=Split(line)金雕复仇

crt.Session.LogFileName ="D:\Log_Collected_SecureCRT\Zidongxunjian\%Y%M%D\"¶ms(0)&".log"

本文发布于:2024-09-25 05:31:27，感谢您对本站的认可！

本文链接：https://www.17tex.com/xueshu/96587.html

上一篇：《卫星通信系统》复习题

下一篇：后台自动登录网页vb脚本实例代码

标签：飞越选择金雕飞机历史复仇

留言与评论（共有 0 条评论）