@echo off
for /f "tokens=*" %%a in (command.txt) do %%a
echo;所有命令执行完成了
goto :eof
复制代码

Sub Main
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim arrcmd,Element,waitStrs,result,fso,tsr,commandsFile,waitStr
xsh.Screen.Synchronous = true
commandsFile = "C:\Users\flashercs\Documents\NetSarang Computer\7\Xshell\Scripts\commands.txt" '命令列表文件
waitStr = "username@hostname" 'waitfor text, ex: root@localhost
Set fso = CreateObject("Scripting.FileSystemObject")
Set tsr = fso.OpenTextFile(commandsFile,ForReading,False,vbUseDefault)
Do Until tsr.AtEndOfStream
  xsh.Screen.Send tsr.ReadLine
  xsh.Screen.Send vbCr
  xsh.Screen.WaitForString waitStr
Loop
Set tsr = Nothing
Set fso = Nothing
xsh.Screen.Synchronous = false

End Sub
复制代码