teraterm使用ttl文件连接服务器

平常工作中直接打开ttermpro.exe在gui中连接linux服务器，最近接触到用excel控制teraterm的marco，学习了一下。留作记录。

vba代码

读取excel文件里配置的信息，拼接成一个命令（字符串），在windows的cmd里执行。
命令类似C:\work\teraterm\ttpmacro.exe /V C:\work\bin\slq.ttl 192.168.1.10 yourpassword"

Dim executeSheet As Worksheet
Dim configSheet As Worksheet
Dim HOSTADDR, PASSWORD, ttpmacro, ttl, result As String
Dim wsh As ObjectPrivate Function init()Set executeSheet = ThisWorkbook.Worksheets("実行")Set configSheet = ThisWorkbook.Worksheets("設定")'HOSTADDR = executeSheet.Range("B4").ValueHOSTADDR = "192.168.**.**"PASSWORD = "*******"'ttpmacroはteratermにインストールPATHであり,ttpmacro.exeの格納PATHでもありttpmacro = configSheet.Range("C2").Valuettpmacro = ttpmacro & "\ttpmacro.exe" Set wsh = CreateObject("WScript.Shell")
End FunctionSub test1()Call initcommand1 = ttpmacro & " /V C:\works\bin\slq.ttl"command1 = command1 & Space(1) & HOSTADDR & Space(1) & PASSWORDresult = wsh.Run(Command:=command1, WaitOnReturn:=True)MsgBox "result:" & result
End Sub

ttl文件(slq.ttl)

ttl文件里记录了一些登录的信息，要在远程服务器执行的脚本，log相关。
param2，param3用来读取windows cmd执行的命令的参数。
sendln 'ls’会在服务器输入ls并回车
连续的sendln可能会有sendln被跳过，所以每个sendln前加个wait '#'或者wait ‘$’
LOGOPEN方法参考https://ttssh2.osdn.jp/manual/4/ja/macro/command/logopen.html，第一个1表示写入所有内容，第二个1表示追加写log。

binary flag の値が0のとき、受信した漢字、改行文字は変換されてファイルに書き込まれ、エスケープシーケンスは書き込まれない。
binary flag の値が0以外のとき、受信した文字をすべてそのままファイルに書き込む。

append flag の値が0以外で、ファイルがすでに存在する場合、そのファイルに追加して書き込む。
append flag の値が0で、ファイルがすでに存在する場合、そのファイルは上書きされる。

;;C:\**\ttpmacro.exe /V C:\**\slq.ttl 192.168.**.** yourpassword;===========================================================
; 接続情報
;HOSTADDR = '192.168.**.**'
;USERNAME = 'teratermのlogin　Username'
;PASSWORD = 'teratermのlogin　Password';windows shellでのコマンドが "**\\ttpmacro.exe /V **\**.ttl 192.168.**.** your**password"ので、
;param2は192.168.**.**、param3はyour**password
HOSTADDR = param2
USERNAME = 'teratermのlogin　Username'
PASSWORD = param3; 接続オプション
COMMAND = HOSTADDR
strconcat COMMAND ':22 /ssh /2 /auth=password /user='
strconcat COMMAND USERNAME
strconcat COMMAND ' /passwd='
strconcat COMMAND PASSWORD; 接続
connect COMMAND;timeout=3          ;timeoutの使用方法が　わからないwait '#';write log
getenv 'USERNAME' username
gettime timestr "%Y%m%d-%H%M%S"
getdir mdir
sprintf2 filename '%s\log_%s_%s.log' mdir username timestrlogopen filename 1 1
logwrite 'Log start'#13#10
logwrite '*******************************************'#13#10
logclosewait '#'
sendln 'echo Start 'wait '#'
testdir='a'
;foldersearch folderが存在するかどうか調べる。
;存在する場合は、システム変数 result に1が返る。存在しない場合は、result に0が返る。
;filesearch fileが存在するかどうか調べる。
foldersearch testdir
;result:    0:ng    1:ok
messagebox result 'result'
if result=0 then
;フォルダを作成する。 parent path need existingfoldercreate testdir
endif
messagebox result 'result'
foldercreate "a/b"
messagebox result 'create a/b result'

;消息框，输入框
;inputbox <message> <title> [<default> [<special>]]
inputbox 'Password:' 'Login' 'zhang3'
messagebox inputstr 'input'strdim msg 3
msg[0] = 'banana'
msg[1] = 'apple'
msg[2] = 'orange'
listbox 'select fruit' 'test2' msg
sprintf2 var "%d" result
messagebox var "result2"
; result
;   -1: Cancel
;    0: banana
;    1: apple
;    2: orangetimes=-1
:retry
times=times+1
sprintf2 title 'retied %d times' times
yesnobox 'もう一回やりますか?' title
if result goto retry
end;transfer file, it can be stoped before files are transfered,so maybe need to check,
;such as https://qiita.com/KurokoSin/items/b4d2d0a81c8d05f110ef
;scprecv '/remote/bad/1.log' 'C:\work1\111.log'
;ng:  scprecv '/remote/bad/a.log' "C:\work1\11\"
;scprecv '/remote/bad/a.log' "C:\work1\111\1.log";scpsend 'C:work2\1.log' '/remote/bad/'
;scpsend 'C:work2\2.log' '/remote/bad/'
;scpsend 'C:work2\bin.txt' '/remote/bad/'
;scpsend 'C:work2\1.log' '/remote/bad/a.log'

teraterm使用ttl文件连接服务器相关推荐

ios13文件连接服务器教程,iOS 13/iPad OS迈向生产力的一大步，SMB文件共享视频图文教程...
▲点一直接播放视频曾经有诗人感叹:"世界上最遥远的距离不是生与死,而是我电脑里那个爱的文件,传不进你的iPhone."虽说苹果总是想让iPad成为生产力工具,但iOS要死不活的文 ...
苹果app文件连接服务器有什么用,苹果曾经最鸡肋的功能，终于更新了！
以下文章来源于艾橙科技 ,作者艾橙君从 iOS 11 系统开始,苹果为 iOS 系统加入了文件 App.通过文件 App 进行,我们可以更好的存储.浏览各种文件. 经过几年的更新,文件 App 越来 ...
ipados 文件连接服务器,如何管理iPad文件 iPadOS14使用教程
使用 iPad 文件管理,就必须了解一个 iPadOS 系统自带应用--「文件」.它就像是 Windows 上的「文件资源管理器」,或者是 macOS 上的「访达」. 「iCloud Drive」顾名 ...
ipados 文件连接服务器,iPadOS 14 教程：如何管理 iPad 中的文件？
使用 iPad 文件管理,就必须了解一个 iPadOS 系统自带应用--「文件」.它就像是 Windows 上的「文件资源管理器」,或者是 macOS 上的「访达」. 「iCloud Drive」顾名 ...
服务器连接文件,连接服务器文件
连接服务器文件内容精选换一换 Atlas 200 DK开发者板支持通过USB端口或者网线与Ubuntu服务器进行连接,连接示例图如图1所示.Atlas 200 DK连接Ubuntu服务器有以下场景 ...
ipad的文件连接服务器,iOS 13/iPad OS迈向生产力的一大步，SMB文件共享教程
▲点一直接播放视频曾经有诗人感叹:"世界上最遥远的距离不是生与死,而是我电脑里那个爱的文件,传不进你的iPhone."虽说苹果总是想让iPad成为生产力工具,但iOS要死不活的文 ...
putty使用.pem文件连接服务器
下载putty https://www.puttygen.com/download-putty 步骤一:使用puttygen将.pem文件转成.ppk文件 puttygen.exe和putty.exe ...
ipad的文件连接服务器,使用Termius从iPad连接到Linux服务器
借助Termius,iPad用户可以连接到Linux服务器并获得良好的远程体验,包括终端访问.文件访问支持等.本文的内容包括设置SSH服务器.安装Termius.注册Termius帐户.在Termiu ...
ipados 文件连接服务器,iPadOS更新指南，总有一个功能是你需要的
近期,苹果向部分ipad用户推送了iPadOS系统,据系统介绍,这是一款强大的操作系统,更能体现iPad的独特之处.iPadOS与IOS同源,针对iPad的大显示屏和多功能增加了全新和直观的强大功能. ...

teraterm使用ttl文件连接服务器

vba代码

ttl文件(slq.ttl)

teraterm使用ttl文件连接服务器相关推荐

最新文章

热门文章