中国DOS联盟

潜水这么久～～我业来发一个 看看热闹

@ECHO OFF
REM ***************环境变量初始化
SET THIRD=218
SET FIRST=192.168
SET IPMASK=255.255.255.0

REM ******************DNS
SET DNSMARY=202.97.224.69
SET DNSSEC=202.97.227.138


SET GETWAY=%FIRST%.%THIRD%.171
SET TEMPIPADDR=%FIRST%.%THIRD%.193
SET /A FLAGRUN=0


:START
TITLE 自动组建网工具
COLOR 0B
ECHO.
ECHO.
ECHO.
ECHO 请选择将要对此计算机进行的操作
ECHO ─────────────────────────
ECHO 注:运行此工具要先将内网所有电脑和HUB或者路由连接好
ECHO.
ECHO 1) 此电脑是主机 进行主机的设置
ECHO 2) 此电脑不是主机 进行非主机的设置
ECHO.
ECHO 此程序由GETSTR@MSN.COM编写 欢迎传播 修改
ECHO ─────────────────────────
ECHO.
SET /P FLAG= 请输入任务编号(1,2):
IF %FLAG%==1 (
SET /A FLAGRUN=1
CLS
ECHO.
ECHO.
ECHO 注意：
ECHO.
ECHO 您选择执行的任务是主机对应的设置
ECHO.
ECHO 一个局域网内只能有一个设置为主机
ECHO.
ECHO %DATE%
ECHO.
SET /P TEMP= 按回车键开始配置主机...
GOTO SERVER
)
IF %FLAG%==2 (
SET /A FLAGRUN=2
CLS
ECHO.
ECHO.
ECHO 注意：
ECHO.
ECHO 您选择执行的任务是非主机对应的设置
ECHO.
ECHO 一个局域网内非主机电脑可以有N台
ECHO.
ECHO %DATE%
ECHO.
SET /P TEMP= 按回车键开始配置非主机...
GOTO CLIENT
)
GOTO ERROR


REM ***************输入错误后的操作
:ERROR
CLS
START ERROR.VBS
GOTO START


REM ***************主机的IP设置
:SERVER
CLS
ECHO.
ECHO.
ECHO ┌─────────────────┐
ECHO │▉▉▉ 请等待 正在设置IP... ▉▉▉│
ECHO └─────────────────┘
netsh interface ip set address name="本地连接" static %GETWAY% %IPMASK% none >nul
GOTO SETDNS


REM ***************非主机的IP设置
:CLIENT
CLS
ECHO.
ECHO.
ECHO ┌─────────────────┐
ECHO │▉▉▉ 请等待 正在设置IP... ▉▉▉│
ECHO └─────────────────┘
netsh interface ip set address name="本地连接" static %TEMPIPADDR% %IPMASK% %GETWAY% 1 >nul
:ERRORIP
SET /A TEMPIP=%RANDOM%/300+%RANDOM%/300+%RANDOM%/300
CALL:LASTIP
SET TEMPIP=%FIRST%.%THIRD%.%TEMPIP%
CALL:TESTIP
netsh interface ip set address name="本地连接" static %TEMPIP% %IPMASK% %GETWAY% 1 >nul
GOTO SETDNS


REM ***************设置DNS
:SETDNS
CLS
ECHO.
ECHO.
ECHO ┌──────────────────┐
ECHO │▉▉▉ 请等待 正在设置DNS... ▉▉▉│
ECHO └──────────────────┘
netsh interface ip set dns name="本地连接" static %DNSMARY% register=primary >nul
netsh interface ip add dns name="本地连接" addr=%DNSSEC% index=2 >nul
CLS
ECHO.
ECHO.
ECHO 您的相关网络信息为:
ECHO ─────────────────────────
IF %FLAGRUN%==1 (
ECHO IP地址··········%GETWAY%
ECHO 子网掩码·········%IPMASK%
ECHO 网关···········NONE
ECHO 主DNS···········%DNSMARY%
ECHO 从DNS···········%DNSSEC%
)ELSE (

ECHO IP地址··········%TEMPIP%
ECHO 子网掩码·········%IPMASK%
ECHO 网关···········%GETWAY%
ECHO 主DNS···········%DNSMARY%
ECHO 从DNS···········%DNSSEC%
)
ECHO ─────────────────────────
SET /P TEMP= 任务完成 按回车退出程序
EXIT


REM ***************测试IP地址的唯一性的CALL
:TESTIP
PING -n 1 %TEMPIP% |FIND "TTL" >NUL 2>NUL&&GOTO ERRORIP
GOTO OVER


REM ***************确定测试随机生成的IP地址的可用性的CALL
:LASTIP
IF %TEMPIP% LEQ 0 GOTO ERRORIP
IF %TEMPIP% GEQ 255 GOTO ERRORIP
GOTO OVER


:OVER

****************************************************
ERROR.vbs

set ws=wscript.createobject("wscript.shell")
MSGBOX "您的输入有错误,请你重新输入,如果检查无误后依然出现此提示请联系我:GetStr@msn.com"

[ Last edited by jetvster on 2007-1-12 at 08:14 PM ]

好几个 vbs 跑哪去了???

最下面的就是ＶＢＳ文件
****************************************************
ERROR.vbs

set ws=wscript.createobject("wscript.shell")
MSGBOX "您的输入有错误,请你重新输入,如果检查无误后依然出现此提示请联系我:GetStr@msn.com"

直接用echo >>输出一个vbs不就行了,偏要弄两个文件,昏.
最好是连弹出都不要,直接CMD显示错误信息不是更好?

看一下