mgchl
初级用户
积分 24
发帖 10
注册 2007-11-1
状态 离线
|
『楼 主』:
我做的IP自动添加，适用于各种网段
需要建立一个IP信息库，暂时IP信息库在本地放置一分本机的,服务器上是所有计算机的IP信息库,此信息库我有另一文件可以做到收集但这里就先不放了
声明:各中程序的起源来之"中国DOS联盟"
所以兄台们会发现里面很多都是出之你们只手,先谢大家给了我个学习,成长的机会.帮我找其中的不足只处,并坦白的告诉我,因为我刚 失恋,应该能承受住这里给我的打击..
ipconfig.txt文件的内容如下
type ipconfig.txt
10.130.176.45 00-11-0A-3B-BE-38 My_pc_name
运行程序 第一页面会得到
-----------------------------------------------------Nuage-------
IP、DNS、计算机名 自动添加程序
-----------------------------------------------------Nuage-------
本机历史记录
此文件对应另一收集计算机信息一起使用;
程序自动识别本机是否做过备份信息，自动查找本地备份信
息，如果找不到会自动连接服务器，并从服务器上查找相关信息。
提取计算机名:My_pc_name (计算机名将在重起后生效）
本机 IP 地址:10.130.176.45
子网掩码地址:255.255.255.0
设定网关地址:10.130.176.1
设定DNS1地址:10.152.8.100
设定DNS2地址:
设定DNS3地址:
-----------------------------------------------------Mgchl-------
@echo off
mode con cols=80 lines=24
color 1f
::请不要修改此处信息
SET MGCHL=芒果精灵
if "%mgchl%"=="芒果精灵" goto com
title 自动恢复IP、计算机名、网关和DNS----芒果精灵制作 %date%
::设置子网掩码
:com
set mask=255.255.255.0
Set DNS1=10.152.8.100
Set DNS2=
set DNS3=
::此处需要说明，如果是其他地址开头的请修改
set myipip=10
::查找本地是否有ipconfig.txt文件有就继续，否则就跳到com1
if not exist d:\ipconfig.txt goto com1
set ipconfig.cfg=d:\ipconfig.txt
goto com2
:com1
::从服务器上找IPCONFIG.TXT
::服务器地址及用户密码
::要在服务器上建立个目录,共项名使用 用户名加$ 权限使用 修改权限
set ipip=
set ipuserpass=iplogin
net use \\%ipip%\ipc$ "%ipuserpass%" /user:%ipuserpass% >NUL
if not exist \\%ipip%\iplogin$\ipconfig.txt echo msgbox "无法在服务器上找你的信息，可能你的电脑是新的，请手动修改，并运行http://10.130.176.9/sdup.exe进行计算机信息的备份",48,"错误报告：" >mima.vbs &&call mima.vbs &&del mima.vbs &&goto end
set ipconfig.cfg=\\%ipip%\iplogin$\ipconfig.txt
::+++++++++++
::主程序开始
::+++++++++++
:com2
::查找IPConFIG文件，如果找不到使用服务器上的数据库
if exist ipconfig.ax del ipconfig.ax
ipconfig /all >ipconfig.ax
if exist phyaddr.txt del phyaddr.txt
find "Physical Address" ipconfig.ax >phyaddr.txt
for /f "skip=2 tokens=12" %%M in (phyaddr.txt) do set strMac=%%M
::读取MAC地址: %strMac%
find "%strMac%" %ipconfig.cfg% >ComputerCfg.txt
for /f "skip=2 tokens=3" %%N in (ComputerCfg.txt) do set pcname=%%N
for /f "skip=2 tokens=1" %%I in (ComputerCfg.txt) do set myip=%%I
::根据得到的IP前三位,得到网关地址
For /f "tokens=2 delims=./" %%e in (ComputerCfg.txt) do Set MYIP1=%%e
For /f "tokens=3 delims=./" %%e in (ComputerCfg.txt) do Set MYIP2=%%e
SET MYGateway=%myipip%.%MYIP1%.%MYIP2%.1
for /f "skip=2 tokens=2" %%M in (ComputerCfg.txt) do set mymac=%%M
if "%myip%"=="" echo msgbox "无法在服务器上找你的信息，可能你的电脑是新的，请手动修改，并运行http://10.130.176.9/sdup.exe进行计算机信息的备份",48,"错误报告：" >mima.vbs &&call mima.vbs &&del mima.vbs &&goto end
echo.
echo.
echo.
echo -----------------------------------------------------Nuage-------
echo IP、DNS、计算机名 自动添加程序
echo -----------------------------------------------------Nuage-------
echo 本机历史记录
echo.
echo.
echo 此文件对应另一收集计算机信息一起使用;
echo 程序自动识别本机是否做过备份信息，自动查找本地备份信
echo 息，如果找不到会自动连接服务器，并从服务器上查找相关信息。
echo.
echo.
echo.
echo 提取计算机名:%pcname% (计算机名将在重起后生效）
echo 本机 IP 地址:%myip%
echo 子网掩码地址:%mask%
echo 设定网关地址:%MYGateway%
echo 设定DNS1地址:%DNS1%
echo 设定DNS2地址:%DNS2%
echo 设定DNS3地址:%DNS3%
echo.
ATTRIB -r -h -s d:\IPCONFIG.TXT >nul
IF EXIST D:\IPCONFIG.TXT DEL /q /f D:\IPCONFIG.TXT >nul
echo %myip% %mymac% %pcname% > D:\IPCONFIG.TXT
ATTRIB +r +h +s d:\IPCONFIG.TXT >nul
echo -----------------------------------------------------Mgchl-------
echo msgbox "按确定开始设置你的计算机,建议在设置好后重起电脑,使得相关文件得已更新",48,"IP,DNS设置：" >mima.vbs &&call mima.vbs &&del mima.vbs
cls
echo.
echo.
echo -----------------------------------------------------Nuage-------
echo.
echo.
echo 程序正在设置中，请梢后
ECHO.
ECHO.
echo -----------------------------------------------------Mgchl-------
::修改计算机器名
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
::修改IP、掩码、网关
set eth="本地连接" >nul
netsh interface ip set address 本地连接 static %myip% %mask% %MYGateway% 1 >nul
::修改DNS
netsh interface ip set dns "%Name%" static %DNS1% >nul
netsh interface ip add dns "%Name%" %DNS2% >nul
netsh interface ip add dns "%Name%" %DNS3% >nul
echo msgbox "全部设置已经完成,建议重起电脑,使得相关文件得已更新",48,"IP,DNS设置完成：" >mima.vbs &&call mima.vbs &&del mima.vbs
:end
if exist ComputerCfg.txt del /q ComputerCfg.txt
if exist phyaddr.txt del /q phyaddr.txt
if exist ipconfig.ax del /q ipconfig.ax
|
|
