| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 217 人关注过本帖
标题:vbs 怎么编辑交换机ssh端口号
只看楼主 加入收藏
tsy306534201
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2022-11-8
收藏
 问题点数:0 回复次数:4 
vbs 怎么编辑交换机ssh端口号
现在,在网上找了一个vbs可以批量备份交换机配置,现在就是端口没有做好,请问下面代码怎么添加端口。

#$language = "VBScript"
# $interface = "1.0"  
'本脚本示范:从一个文件里面自动读取设备IP地址,密码等,自动将设备配置备份
Sub Main
'打开保存设备管理地址、名称以及密码的文件
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("E:\备份配置脚本\list.txt",Forreading, False)
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
'读出每行
line = file1.ReadLine
'分离每行的参数 IP地址 密码 En密码
params = Split (line)
crt.session.LogFileName = "E:\配置备份\九月份\" & params(1) & " " & params(0) & ".txt"
crt.session.Log(true)
'SSH到这个设备上
crt.Session.Connect("/SSH2 2099 /PASSWORD "& params(3) & " " & params(2) & "@" & params(0))
'备份配置
str2 = "sc 0 t"
crt.screen.Send str2 & vbcr
str1 = "Disp cur"
crt.Screen.Send str1 & vbcr
Do Until crt.Screen.WaitForString ("---- More ----",3) = False
crt.Screen.Send " "
loop

'备份完成后退出         

crt.Session.Disconnect

loop

crt.Screen.Synchronous = False

End Sub

搜索更多相关主题的帖子: crt 配置 备份 Screen 端口 
2022-11-08 11:21
tsy306534201
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2022-11-8
收藏
得分:0 
有大佬 能个解答下吗?
2022-12-30 10:27
apull
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:三体星系
等 级:版主
威 望:174
帖 子:1355
专家分:8138
注 册:2010-3-16
收藏
得分:0 
你上面的2099应该就是端口号。ssh默认端口号是22
2022-12-30 10:41
tsy306534201
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2022-11-8
收藏
得分:0 
回复 3楼 apull
大佬那个2099是我添加上去的,但是登不上ssh,但是,我吧端口改成默认的就可以登陆上。
2023-01-04 11:07
tsy306534201
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2022-11-8
收藏
得分:0 
crt.Session.Connect("/SSH2 2099 /PASSWORD "& params(3) & " " & params(2) & "@" & params(0))
这条语句添加的2099命令是否正确
50 分钟前
快速回复:vbs 怎么编辑交换机ssh端口号
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028351 second(s), 8 queries.
Copyright©2004-2023, BCCN.NET, All Rights Reserved