找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 15810|回复: 2

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

  [复制链接]
发表于 2022-1-6 14:01:56 | 显示全部楼层 |阅读模式
本帖最后由 星尘 于 2022-1-6 21:06 编辑

几千条命令,我一次性复制命令粘贴到xshell执行会出现错误,所以需要一个方法自动执行,先存好要运行的命令,自动执行命令,确定上一个命令执行完毕之后再执行下一个命令,直到跑完。
QQ:874380156
【已解决】
发表于 2022-1-6 18:25:00 | 显示全部楼层
把所有命令存在一个文件,如:
command.txt

把以下代码存为:callcom.bat
登录服务器后运行:
callcom.bat

  1. @echo off
  2. for /f "tokens=*" %%a in (command.txt) do %%a
  3. echo;所有命令执行完成了
  4. goto :eof
复制代码
发表于 2022-1-6 19:37:55 | 显示全部楼层
  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中.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 23:14 , Processed in 0.018548 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表