中国DOS联盟

echo off
cls
title IP、掩码、网关、计算机名、工作组、计算机描述 简易修改工具  CREATED BY PJH. 080130

if not exist 配置文件 goto err


echo off
cls
echo.
echo   信息收集中,请稍候...

for /f "tokens=3 delims=: " %%a in ('ipconfig ^|findstr "Ethernet"') do set wkname=%%a
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Address"') do set nip=%%b
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Mask"') do set nmask=%%b
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Gateway"') do set ngw=%%b
for /f "tokens=2 delims=:" %%a in ('ipconfig /all ^|findstr "DNS"') do set dns=%%a
for /f "delims=" %%a in ('net config workstation ^|find "工作站域"') do set GZZ=%%a
for /f "delims=" %%a in ('net config server ^|find "服务器注释"') do set miaoshu=%%a


cls
echo.
echo  目前的机器情况如下：
echo.
echo     机名： %computername%
echo   工作组：%gzz:~24,60%
echo     描述：%miaoshu:~25,60%
echo       IP：%nip%
echo     掩码：%nmask%
echo     网关：%ngw%
echo      DNS：%dns%
echo.

:slect
echo  请选择本机用途。
echo.
echo     1、蝌台机
echo     2、后台机
echo     3、网吧机
echo     4、业务展示机
echo     5、蝌台触摸屏
echo.
set /p mycho=     请输入您的选择：
cls
if %mycho%#==1# GOTO :cho%mycho%
if %mycho%#==2# GOTO :cho%mycho%
if %mycho%#==3# GOTO :cho%mycho%
if %mycho%#==4# GOTO :cho%mycho%
if %mycho%#==5# GOTO :cho%mycho%
if %mycho%#==# GOTO slect
goto slect

:cho1
set myuse1=Q
set myuse2=蝌台
call loadini 10cfg.ini
goto setting

:cho2
set myuse1=H
set myuse2=后台
call loadini 10cfg.ini
goto setting

:cho3
set myuse1=WB
set myuse2=网吧
call loadini 192cfg.ini
goto setting

:cho4
set myuse1=YW
echo  请选择本机用途：
echo.
echo     1、飞信
echo     2、手机仿真
echo     3、手机报
echo     4、无限音乐俱乐部
echo.
set /p ywyt=     请输入您的选择：
cls
if %ywyt%#==1# set myuse2=飞信&&goto cho4goon
if %ywyt%#==2# set myuse2=手机仿真&&goto cho4goon
if %ywyt%#==3# set myuse2=手机报&&goto cho4goon
if %ywyt%#==4# set myuse2=无限音乐俱乐部&&goto cho4goon
if %ywyt%#==# GOTO cho4
goto cho4
:cho4goon
call loadini 192cfg.ini
goto setting

:cho5
set myuse1=YW
set myuse2=触摸屏
call loadini 192cfg.ini
goto setting

:setting
echo.
echo  本机IP默认前半截为  %fmyip%  请输入本机IP后半截数字
echo.
set /p ips=
if /I %ips% LEQ 0 (cls&echo 输入错误!&goto setting)
if /I %ips% GEQ 255 (cls&echo 输入错误!&goto setting)

for /f "tokens=2 delims==" %%a in ('findstr "服务厅名" 配置文件\服务厅cfg.ini') do set tname=%%a
for /f "tokens=2 delims==" %%a in ('findstr "服务厅简写" 配置文件\服务厅cfg.ini') do set tjx=%%a
for /f "tokens=2 delims==" %%a in ('findstr "默认工作组" 配置文件\服务厅cfg.ini') do set wkgp=%%a
cls
echo.
echo  请问本机是 %myuse2% 几号? 如果无需编号,则回车即可.
set /p mynum=  
cls
echo.
echo  正在进行设置，请稍等……


wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="%wkgp%" >nul 2>nul
wmic computersystem where name="%COMPUTERNAME%" call rename name="%tjx%-%ips%%myuse1%" >nul 2>nul
net config server /srvcomment:"%tname% %myuse2%%mynum%" >nul 2>nul
netsh interface ip set address "%wkname%" static %fmyip%%ips% %fmymask% %fmygw% 1 >nul 2>nul
netsh interface ip delete dns "%wkname%" all >nul 2>nul
netsh interface ip add dns "%wkname%" %dns% 1 >nul 2>nul


echo off
cls
echo.
echo   信息收集中,请稍候...

for /f "tokens=3 delims=: " %%a in ('ipconfig ^|findstr "Ethernet"') do set wkname=%%a
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Address"') do set nip=%%b
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Mask"') do set nmask=%%b
for /f "tokens=1-10 delims=:" %%a in ('ipconfig ^|findstr "Gateway"') do set ngw=%%b
for /f "tokens=2 delims=:" %%a in ('ipconfig /all ^|findstr "DNS"') do set dns=%%a
for /f "delims=" %%a in ('net config workstation ^|find "工作站域"') do set GZZ=%%a
for /f "delims=" %%a in ('net config server ^|find "服务器注释"') do set miaoshu=%%a
cls
echo.
echo  目前的机器情况如下：
echo.
echo     机名： %computername%    （重启后才会变化成正确的）
echo   工作组：%gzz:~24,60%
echo     描述：%miaoshu:~25,60%
echo       IP：%nip%
echo     掩码：%nmask%
echo     网关：%ngw%
echo      DNS：%dns%
echo.
echo     修改完毕！按任意键退出程序。


PAUSE >nul 2>nul

exit

:err
echo.
echo.
echo  没有发现配置文件,请先手动设置本机参数再运行 生成本机模板.bat 生成配置信息!
echo.
PAUSE >nul 2>nul

for /f "tokens=2 delims==" %%a in ('findstr "IP前缀" 配置文件\%1') do set fmyip=%%a
for /f "tokens=2 delims==" %%a in ('findstr "默认掩码" 配置文件\%1') do set fmymask=%%a
for /f "tokens=2 delims==" %%a in ('findstr "默认网关" 配置文件\%1') do set fmygw=%%a
for /f "tokens=2 delims==" %%a in ('findstr "DNS" 配置文件\%1') do set dns=%%a

echo off
MD 配置文件
cls
echo.
echo  正在生成配置文件...
for /f "tokens=3 delims=: " %%a in ('ipconfig ^|findstr "Ethernet"') do set wkname=%%a
for /f "tokens=2 delims=:" %%a in ('ipconfig ^|findstr "Address"') do set nip=%%a
for /f "tokens=2 delims=:" %%a in ('ipconfig ^|findstr "Mask"') do set nmask=%%a
for /f "tokens=2 delims=:" %%a in ('ipconfig ^|findstr "Gateway"') do set ngw=%%a
for /f "delims=" %%a in ('net config workstation ^|find "工作站域"') do set GZZ=%%a

for /f "tokens=2 delims=:" %%a in ('ipconfig /all ^|findstr "DNS"') do set dns=%%a

for /f "delims=" %%a in ('net config server ^|find "服务器注释"') do set miaoshu=%%a
for /f "delims=-" %%a in ("%computername%") do echo 服务厅简写=%%a>配置文件\服务厅CFG.INI
echo 默认工作组=%gzz:~25,60%>>配置文件\服务厅CFG.INI
for /f "delims= " %%a in ("%miaoshu:~25,60%") do echo 服务厅名=%%a>>配置文件\服务厅CFG.INI

echo 默认网关=%ngw%>配置文件\ipCFG.INI
echo 默认掩码=%nmask%>>配置文件\ipCFG.INI
echo DNS=%dns%>>配置文件\ipCFG.INI
for /f "tokens=1-3 delims=." %%a in ("%nip%") do set fstip=%%a&echo IP前缀=%%a.%%b.%%c.>>配置文件\ipCFG.INI
if /i %fstip%==10 (del 配置文件\10cfg.ini /q /f&rename 配置文件\ipCFG.INI 10cfg.ini) else (del 配置文件\192cfg.ini /q /f&rename 配置文件\ipCFG.INI 192cfg.ini)
cls
echo.
echo  操作完毕,请查看文件夹 "配置文件" 下面的文件
echo.
PAUSE

服务厅简写=CS
默认工作组=CESHIFUWUTING
服务厅名=测试服务厅

默认网关= 192.200.200.1
默认掩码= 255.255.255.0
DNS=
IP前缀= 192.200.200.

默认网关= 10.245.17.126
默认掩码= 255.255.255.0
DNS= 10.245.1.2
IP前缀= 10.245.17.