| 网站首页 | 绿色软件 | 绿色数码 | 安全中心 | 屏保中心 | 源码中心 | 电子书库 | 教程库 | 图片库 | 资料库 | 算命 | 笑话 | 广告 | 绿站旧版 | 返回总部 | 
您现在的位置： 绿色软件站 >> 源码中心 >> BAT源码 >> 修改更换 >> 源码信息
热点推荐
最新更新
本类热门
· 更改文件夹背景
· 更改系统启动菜单的时间
· 改变我的文档路径
· 更改电源管理方式
· 更改电脑的注册信息
· 改IP和计算机名
· 更改盘符背景
· 更改盘符
推荐软件
其他更新
改IP和计算机名
运行环境： Win9x/NT/2000/XP/2003 （载入中...）
文件大小： 1 K
软件类别： ASP
软件语言： 简体中文
软件属性：    热   
授权方式： 免费版
添加时间： 2008-3-21 18:22:19
软件等级： ★★★
软件绿化： 佚名
相关链接： 源码演示地址  源码注册地址
下载次数： 日： 周： 月： 总：
软件添加： 审核:lodge 录入:lodge
::软件简介::  

警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
color 0A
:startdo
cls
title ^|彬^|℡ 东豪网吧改IP和计算机名℡ 更新日期:2007/09/26 (中秋修正版)QQ 43142691
set ipA=192.168.0.
set ipB=192.168.1.
set mask=255.255.254.0
set gateway=192.168.0.254
set nameA=DH-A
set nameB=DH-B
set nameC=DH-C
set nameD=DH-D
set A=00
set B=0
set Nu=400
echo.                            请输入机号
echo ---------------------------------------------------
set/p pc= 请输入计算机号:
if "%pc%"=="" goto 0
echo %pc%|findstr "^[0-9]*$">nul &&goto OK||goto err1
:OK
if %pc% GTR %Nu% goto err2
rem :: 判断 ::
if %pc% GEQ 356 goto GG
if %pc% GEQ 291 goto FF
if %pc% GEQ 201 goto EE
if %pc% GEQ 100 goto DD
if %pc% GEQ 57 goto CC
if %pc% GEQ 10 goto BB
if %pc% LSS 10 goto AA
:AA
set pcname=%nameA%%A%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:BB
set pcname=%nameA%%B%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:CC
set pcname=%nameA%%B%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:DD
set pcname=%nameA%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
::**************************************
:EE
set /a pcq=%pc%-200
if %pcq% LSS 10 goto 001
set hb=%B%
:0001
set pcname=%nameB%%hb%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:FF
set /a pcq=%pc%-200
set pcname=%nameB%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:GG
set /a pcq=%pc%-200
set pcname=%nameB%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:ZZ
set a=10
:loop
cls
echo.                                  你的当前设置是
echo.
echo.                     计算机名为:       %pcname%
echo.
echo.                     IP为:             %myip%
echo.
echo.                     掩码为:           %mask%
echo.
echo.                     网关为:           %gateway%
echo.
echo.                     网段是:           %d%
echo.
echo.
echo.          请确认无误 %a% 秒后自动开始修改IP和计算机名。
echo.
echo.                    
ping /n 2 127.1>nul
if %a% EQU 0  goto itOK
set /a a-=1
goto loop
:itOK
pause>nul 2>nul
echo 开始应用设置ing......
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
netsh interface ip set address name="本地连接" source=static addr=%myip% mask=%mask% gateway=%gateway% gwmetric=1
goto finish
:001
set hb=%A%
goto 0001
:err1
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您输入的数值%pc%包含非法字符,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:err2
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您输入的数值%pc%大于设置的实际值 %Nu%,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:0
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您没有输入任何数值,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:finish
cls
set ao=5
:loop1
cls
title ^|彬^|℡ 东豪网吧改IP和计算机名℡ 更新日期:2007/09/26 (中秋修正版)
echo.
echo.          已经完设置IP和修改计算机名的任务。%ao% 秒后自动退出
echo.
echo.                    
ping /n 2 127.1>nul
if %ao% EQU 0  goto eof
set /a ao-=1
goto loop1

@echo off
color 0A
:startdo
cls
title ^|彬^|℡ 东豪网吧改IP和计算机名℡ 更新日期:2007/09/26 (中秋修正版)QQ 43142691
set ipA=192.168.0.
set ipB=192.168.1.
set mask=255.255.254.0
set gateway=192.168.0.254
set nameA=DH-A
set nameB=DH-B
set nameC=DH-C
set nameD=DH-D
set A=00
set B=0
set Nu=400
echo.                            请输入机号
echo ---------------------------------------------------
set/p pc= 请输入计算机号:
if "%pc%"=="" goto 0
echo %pc%|findstr "^[0-9]*$">nul &&goto OK||goto err1
:OK
if %pc% GTR %Nu% goto err2
rem :: 判断 ::
if %pc% GEQ 356 goto GG
if %pc% GEQ 291 goto FF
if %pc% GEQ 201 goto EE
if %pc% GEQ 100 goto DD
if %pc% GEQ 57 goto CC
if %pc% GEQ 10 goto BB
if %pc% LSS 10 goto AA
:AA
set pcname=%nameA%%A%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:BB
set pcname=%nameA%%B%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:CC
set pcname=%nameA%%B%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
:DD
set pcname=%nameA%%pc%
set myip=%ipA%%pc%
set d=网段属于 0 段
goto ZZ
::**************************************
:EE
set /a pcq=%pc%-200
if %pcq% LSS 10 goto 001
set hb=%B%
:0001
set pcname=%nameB%%hb%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:FF
set /a pcq=%pc%-200
set pcname=%nameB%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:GG
set /a pcq=%pc%-200
set pcname=%nameB%%pcq%
set /a pcb=%pc%-200
set myip=%ipB%%pcb%
set d=网段属于 1 段
goto ZZ
:ZZ
set a=10
:loop
cls
echo.                                  你的当前设置是
echo.
echo.                     计算机名为:       %pcname%
echo.
echo.                     IP为:             %myip%
echo.
echo.                     掩码为:           %mask%
echo.
echo.                     网关为:           %gateway%
echo.
echo.                     网段是:           %d%
echo.
echo.
echo.          请确认无误 %a% 秒后自动开始修改IP和计算机名。
echo.
echo.                    
ping /n 2 127.1>nul
if %a% EQU 0  goto itOK
set /a a-=1
goto loop
:itOK
pause>nul 2>nul
echo 开始应用设置ing......
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
netsh interface ip set address name="本地连接" source=static addr=%myip% mask=%mask% gateway=%gateway% gwmetric=1
goto finish
:001
set hb=%A%
goto 0001
:err1
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您输入的数值%pc%包含非法字符,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:err2
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您输入的数值%pc%大于设置的实际值 %Nu%,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:0
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!您没有输入任何数值,请确认后重新输入",10,"错误警告:",64)(window.close)
goto startdo
:finish
cls
set ao=5
:loop1
cls
title ^|彬^|℡ 东豪网吧改IP和计算机名℡ 更新日期:2007/09/26 (中秋修正版)
echo.
echo.          已经完设置IP和修改计算机名的任务。%ao% 秒后自动退出
echo.
echo.                    
ping /n 2 127.1>nul
if %ao% EQU 0  goto eof
set /a ao-=1
goto loop1
::下载地址::  
·电信服务器一  ·电信服务器二  ·网通服务器二  ·网通服务器一  
::相关软件::  
酷我音盒（自带100万首歌曲的播放器）
没有相关源码		 （载入中...）
::相关教程::
::下载说明::
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！
      网友评论：（评论内容只代表网友观点，与本站立场无关！） 【发表评论】
Copyright（C）2007 Mindows.org All Rights Reserved 绿色软件站（免装软件园）站长：onegreen [粤ICP备06013325号]