中国DOS联盟

最近用s扫局域网查看固定端口开放的主机,然后ping这些开放了固定端口的主机,于是写了个批处理器:
@echo off
:1
set /p mm=请输入IP:
cls
ping %mm% /n 2
echo.&&echo.
goto 1
可是由于s扫描后的IP段是不联系每次要ping完一个IP后又要手动输入下一个IP段非常麻烦.所以希望各位高手能写一个能导入IP段txt文本的批处理器从而实PIng不连续的IP段!

@echo off

set han_1=ip地址

set han_2=ip地址

set han_3=ip地址

......

set han_10=ip地址

setlocal enabledelayedexpansion

for /l %%i in (1 1 10) do ping !han_%%i! /n 2

pause

如果ip地址量太大，直接解析文本
在cmd下运行

for /f "delims=" %i in (X.txt) do ping %i /n 2

[ Last edited by Hanyeguxing on 2009-9-5 at 02:05 ]

谢谢Hanyeguxing提供的代码,本来想直接做个批处理运行但好像不能直接在批处理中运行这个代码,已经很久没有玩批处理了,很多东西都忘了,于是制作个vbs脚本运行这个代码,现在把代码发出来给大家:

Dim a,b
set a=wscript.CreateObject("wscript.shell")
a.run "cmd"
a.AppActivate "c:\windows\system32\cmd.exe"
wscript.Sleep 400
a.sendkeys "{@}color 3a{enter}"
a.sendkeys "for /f "&chr(34)&"delims="&chr(34)&" {%}i in {(}IP.txt{)} do ping {%}i /n 2 {enter}"
wscript.quit

只要把IP.txt放到这个教本同目录下就行了!这个程序没有对命令提示符界面进行优化
看起来有点乱,又兴趣的朋友可以对这个程序优化,把优化的程序发来大家共享一下!

刚看到上面程序变量b是多于的!

好东东，向高手们学习。