您好，欢迎来到微智科技网。
科技 教育 生活 旅游 时尚 美容 美食 健康 体育 游戏 汽车 家电
搜索
您的当前位置：首页SecureCRT结合VB脚本设备巡检命令

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_SecureCRT\\ip.txt\"

'path3 = \"D:\\Log_Collected_SecureCRT\\error.txt\"

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--\

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--\

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--\

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--\

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--\

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--\

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString \"#\"

crt.Screen.Send \"show processes memory \" & vbcr

While crt.Screen.WaitForString (\"--More--\

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--\

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

if 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_SecureCRT\\ip.txt\"

'path3 = \"D:\\Log_Collected_SecureCRT\\error.txt\"

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 \"/telnet \" & 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

\" & 23 & 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--\

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--\

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--\

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--\

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--\

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--\

crt.Screen.Send chr(32)

WEnd

crt.Screen.Send chr(13)

crt.Screen.WaitForString \"#\"

crt.Screen.Send \"show processes memory \" & vbcr

While crt.Screen.WaitForString (\"--More--\

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--\

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

if 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

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

Copyright © 2019- 7swz.com 版权所有 赣ICP备2024042798号-8

违法及侵权请联系：TEL:199 18 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务