pcl_test

回复 15# kuishilova
把1.vbs、2.vbs……以相应的ip重命名

@echo off
setlocal enabledelayedexpansion
color a
:wait
cls
echo 1、进行配置
echo 2、退出
set a=0
set/p a=请选择:
if %a%==1 goto :startconf
if %a%==2 exit
goto :wait
:startconf
echo 交换机配置结果:>>配置结果.txt
set count=0
for /f "delims=" %%i in (ip.txt) do (
set temp=0
echo 正在扫描 %%i
echo 请等待........
ping -n 1 -w 2 %%i|find "TTL" >nul&&set temp=1
if "!temp!" equ "1" (
echo 扫描%%i完成，正在执行配置工作...
>telnet_tmp.vbs 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
>>telnet_tmp.vbs echo sh.SendKeys "{ENTER}"
>>telnet_tmp.vbs echo WScript.Sleep 1000
start telnet
ping -n 2 127.1 >nul
cscript //nologo telnet_tmp.vbs
ping -n 2 127.1 >nul
cscript //nologo %%i.vbs
del telnet_tmp.vbs
set /a count+=1
echo %%i配置成功
echo %%i配置成功>>配置结果.txt
) else (
echo %%i无法ping通！
echo %%i配置失败>>配置结果.txt
)
)
echo ----------------结果说明---------------
echo 配置完毕!
echo 共配置可以联通的交换机：%count%台。
echo 配置的结果保存在当前目录的“配置结果.txt”中。
echo ---------------------------------------
echo 按任意键返回主菜单
pause>nul
goto :wait
复制代码

kuishilova

回复 16# pcl_test
多谢了！
可是，能否做到不使用相应的IP命名？或者再给我一个按顺序提取ip地址出来给vbs重命名的脚本？因为我有至少60ip地址在ip.txt文档内，也就是说我事先已经做好了60组vbs脚本命令，按照1.va、2.vbs、3.vbs。。。。。一直到60.vbs已经命名完成了。那么，如果要使用你之前帮我写出来的代码，那么我就必须要按顺序提取ip.txt文档里面的六十个ip地址作为文件名，一一对应地把六十个vbs文件重命名。

kuishilova

回复 16# pcl_test


    或者创建一个命令组的文本文档，内容为：
命令组1-----------------
第1行命令组1的内容
第2行命令组1的内容
。。。。
第n行命令组1的内容

命令组2-------------
第1行命令组2的内容
第2行命令组2的内容
。。。。
第n行命令组2的内容
。。。。。。

命令组x-------------
第1行命令组x的内容
第2行命令组x的内容
。。。。
第n行命令组x的内容

在批处理内增加一个计数器，每循环一次，就从命令组文档内提取对应的命令组的所有行，追加进入telnet_tmp.vbs，这样telnet_tmp.vbs就完成了所有的命令，它运行完成以后删除telnet_tmp.vbs，计数器接着就加一、进入下一次循环。我不知道这样做和之前的思路相比，是否跟更复杂？

yiwuyun

[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

pcl_test

回复 17# kuishilova
重命名什么的很容易的，自己试着把重命名批处理写出来，不要总想着吃现成的

terse

回复 19# yiwuyun

开启延迟变量  这样能运行吗

 set /a count+=1 
 cscript //nologo !count!.vbs 
复制代码

yiwuyun

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

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

如果还不行，没法了。

kuishilova

重命名代码

@echo on
setlocal enabledelayedexpansion
set n=0
for /f "delims=" %%a in ('dir /b *.vbs') do (
    if !n! equ 0 (
        set skip=
    ) else (
        set "skip=skip=!n!"
    )
    call :ChangeName "%%a" "!skip!"
    set /a n+=1
)
goto :eof

:ChangeName
for /f "%~2 delims=" %%b in (ip.txt) do (
    ren %1 "%%b.vbs"
    goto :eof
)
复制代码

回复 20# pcl_test

kuishilova

回复 19# yiwuyun
多谢！你这个延迟变量的代码，刚才试了一下，成功了一次，失败了一次，暂时没搞明白是哪里出了问题

kuishilova

回复 19# yiwuyun

昨天运行成功了，可是今天无论如何不行了，运行都第二个的时候就无法调用VBS