[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
[code]
@echo off
setlocal EnableDelayedExpansion
  :wait
  set a=
  set/p a=输入S开始配置:
  if %a%==s goto :startconf
  if %a%==q goto :end
  goto :wait
  :startconf
  echo 交换机配置结果:>>配置结果.txt
  for /f %%i in (ip.txt) do echo 正在扫描 %%i && echo 请等待........&& ping -n 1 -w 2 %%i -n 2|find "TTL">nul && echo 扫描%%i完成,正在执行配置工作... && echo set sh=WScript.CreateObject("WScript.Shell") >telnet_tmp.vbs && echo WScript.Sleep 300 >>telnet_tmp.vbs && echo sh.SendKeys "open %%i" >>telnet_tmp.vbs && echo WScript.Sleep 1000 …… && echo sh.SendKeys "{ENTER}">>telnet_tmp.vbs && echo WScript.Sleep 1000 ……&& start telnet&& set /a count+=1  && cscript //nologo telnet_tmp.vbs && cscript //nologo !count!.vbs && del telnet_tmp.vbs && echo %%i配置成功 && echo %%i配置成功>>配置结果.txt
  
  echo ----------------结果说明---------------
  echo 配置完毕!
  echo 共配置可以联通的交换机:%count%台。
  echo 配置的结果保存在当前目录的“配置结果.txt”中。
  echo ---------------------------------------
  echo 按任意键返回主菜单
  pause>nul
  goto :wait
  :end

TOP

没试过,如果不能。那只有用call调用了。
set a=!count!.vbs
call :csc !a!
exit /b 0

:csc
cscript //nologo %1
exit /b 0

如果还不行,没法了。

TOP

返回列表