Board logo

标题: 【已解决】微信30元,批处理或vbs,或其他方式,登录linux服务器并执行大量命令 [打印本页]

作者: 星尘    时间: 2022-1-6 14:01     标题: 【已解决】微信30元,批处理或vbs,或其他方式,登录linux服务器并执行大量命令

本帖最后由 星尘 于 2022-1-6 21:06 编辑

几千条命令,我一次性复制命令粘贴到xshell执行会出现错误,所以需要一个方法自动执行,先存好要运行的命令,自动执行命令,确定上一个命令执行完毕之后再执行下一个命令,直到跑完。
QQ:874380156
【已解决】
作者: netbenton    时间: 2022-1-6 18:25

把所有命令存在一个文件,如:
command.txt

把以下代码存为:callcom.bat
登录服务器后运行:
callcom.bat
  1. @echo off
  2. for /f "tokens=*" %%a in (command.txt) do %%a
  3. echo;所有命令执行完成了
  4. goto :eof
复制代码

作者: flashercs    时间: 2022-1-6 19:37

  1. Sub Main
  2. Const ForReading = 1
  3. Const ForWriting = 2
  4. Const ForAppending = 8
  5. Dim arrcmd,Element,waitStrs,result,fso,tsr,commandsFile,waitStr
  6. xsh.Screen.Synchronous = true
  7. commandsFile = "C:\Users\flashercs\Documents\NetSarang Computer\7\Xshell\Scripts\commands.txt" '命令列表文件
  8. waitStr = "username@hostname" 'waitfor text, ex: root@localhost
  9. Set fso = CreateObject("Scripting.FileSystemObject")
  10. Set tsr = fso.OpenTextFile(commandsFile,ForReading,False,vbUseDefault)
  11. Do Until tsr.AtEndOfStream
  12.   xsh.Screen.Send tsr.ReadLine
  13.   xsh.Screen.Send vbCr
  14.   xsh.Screen.WaitForString waitStr
  15. Loop
  16. Set tsr = Nothing
  17. Set fso = Nothing
  18. xsh.Screen.Synchronous = false
  19. End Sub
复制代码
保存为vbs脚本.登陆后打开菜单 工具>脚本>运行,选择脚本运行.
命令列表放到一个commands.txt中.




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2