批处理-自动改IP计算机名
@echo offecho 自动改IP,计算机名,批处理
echo by 靈
rem :: 设置部分,请自行修改 ::
rem ----------------------
rem :: 设置IP前3位 ::
set ip=192.168.0.
rem :: 设置子网掩码 ::
set mask=255.255.255.0
rem :: 设置子网关 ::
set gateway=192.168.0.1
rem :: 计算机名前缀 ::
set name=AX
rem ----------------------
rem 设置完成
set A=00
set B=0
: SS
echo 请输入机号
echo ---------------------------------------------------
set/p pc= 请输入计算机号:
echo ---------------------------------------------------
if exist ComputerName.reg del ComputerName.reg
rem :: 判断 ::
if %pc% GEQ 255 goto EE
if %pc% GEQ 100 goto CC
if %pc% GEQ 10 goto BB
if %pc% LSS 10 goto AA
:AA
set pcname=%name%%A%%pc%
goto DD
:BB
set pcname=%name%%B%%pc%
goto DD
:CC
set pcname=%name%%pc%
goto DD
:DD
set myip=%ip%%pc%
echo 你的当前设置是
echo 计算机名为:%pcname%
echo IP为:%myip%
pause
echo 开始应用设置ing......
rem :: 修改计算机名 ::
echo Windows Registry Editor Version 5.00>ComputerName.reg
echo [HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam]>>ComputerName.reg
echo @="%pcname%">>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName]>>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]>>ComputerName.reg
echo "ComputerName"="%pcname%">>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName]>>ComputerName.reg
echo "ComputerName"="%pcname%">>c:\TempInfo.reg>>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog]>>ComputerName.reg
echo "ComputerName"="%pcname%">>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName]>>ComputerName.reg
echo "ComputerName"="%pcname%">>ComputerName.reg
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters]>>ComputerName.reg
echo "NV Hostname"="%pcname%">>ComputerName.reg
echo "Hostname"="%pcname%">>ComputerName.reg
echo [HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\ShellNoRoam]>>ComputerName.reg
echo @="%pcname%">>ComputerName.reg
regedit /s ComputerName.reg
del /q ComputerName.reg
rem :: 修改IP ::
netsh interface ip set address name="本地连接" source=static addr=%myip% mask=%mask% gateway=%gateway% gwmetric=1
goto END
:EE
echo 大于255啦...重新输入一次哇/se...
goto SS
:END
echo 完成了...按任意键退出...
pause
页:
[1]