中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

作者: 标题: 自动组建网工具 上一主题 | 下一主题 jetvster 新手上路 积分 8 发帖 4 注册 2006-12-15 状态 离线 『楼 主』:  自动组建网工具 潜水这么久～～我业来发一个 看看热闹 @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 ] 2007-1-13 08:18 vkill 金牌会员 积分 4103 发帖 1744 注册 2006-1-20 来自 甘肃.临泽 状态 离线 『第 2 楼』:   好几个 vbs 跑哪去了??? 2007-1-13 08:59 jetvster 新手上路 积分 8 发帖 4 注册 2006-12-15 状态 离线 『第 3 楼』:   最下面的就是ＶＢＳ文件 **************************************************** ERROR.vbs set ws=wscript.createobject("wscript.shell") MSGBOX "您的输入有错误,请你重新输入,如果检查无误后依然出现此提示请联系我:GetStr@msn.com" 2007-1-13 09:11 mackyliu 初级用户 积分 32 发帖 16 注册 2006-10-19 状态 离线 『第 4 楼』:   直接用echo >>输出一个vbs不就行了,偏要弄两个文件,昏. 最好是连弹出都不要,直接CMD显示错误信息不是更好? 2007-1-14 00:47 piaoye0605 新手上路 积分 18 发帖 9 注册 2007-1-4 来自 山东 状态 离线 『第 5 楼』:   看一下 2007-1-15 04:13        (304827203)

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: 站务区  > 站务公告 & 版主讨论  > 意见反馈 & 网友交流 DOS讨论区  > DOS学习入门 & 精彩文章 （教学室）  > DOS疑难解答 & 问题讨论 （解答室）  > DOS启动盘 & LOGO技术 （启动盘室）  > DOS批处理 & 脚本技术（批处理室）  > DOS媒体世界 & 网络技术 （多媒体室）  > DOS汉化世界 & 中文系统 （中文化室）  > DOS开发编程 & 发展交流 （开发室）  > DOS软件下载 & 游戏分享 （下载室） 其它讨论区  > GRUB4DOS、SYSLINUX及其它启动管理软件讨论专区  > 其它操作系统综合讨论区  > WinPE、PowerShell及其它命令行系统专区  > 贴图灌水、文学娱乐专区 服务区  > 网络日志（Blog）  > 论坛回收站      > 链接失效，待修正