[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

【已解决】微信30元,批处理或vbs,或其他方式,登录linux服务器并执行大量命令

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

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

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

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

TOP

  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中.
微信:flashercs
QQ:49908356

TOP

返回列表