[注册表类] [已解决]批处理怎样显示计算机名、ip地址、子网掩码、网关信息？

ygqiang

请直接看19楼的1个小问题

set /p name=请输您的计算机名：

         
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v "ComputerName" /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "Hostname" /t reg_sz /d %name% /f >nul 2>nul



reg add "HKLM\SYSTEM\ControlSet001\Control\ComputerName\ActiveComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f
reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /v "NV Hostname" /t REG_SZ /d "%name%" /f
reg add "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters" /v "Hostname" /t REG_SZ /d "%name%" /f
reg add "HKLM\SYSTEM\ControlSet002\Control\ComputerName\ComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f



set/p slection1=请输入IP地址（只输最后1位）： 
netsh interface ip set address name="本地连接" source=static addr="10.10.94.%slection1%" mask=255.255.255.0 gateway=10.10.94.1 gwmetric=1




wmic computersystem where Name="%COMPUTERNAME%" call JoinDomainOrWorkgroup Name="LIBYW"
echo 修改工作组完毕



ipconfig/all
pause


exit
复制代码

有个问题请教：

有什么批处理命令，只显示出  计算机名  ip地址  子网掩码  网关  子网的信息？（用ipconfig/all显示的信息太多、太杂乱）

ygqiang

echo ------------修改后的结果:------------
@ECHO OFF&Setlocal EnableDelayedExpansion
set _Name=--计算机名&set _Domain=----工作组&set _IPAddress=----IP地址
set _IPSubnet=--子网掩码&set _DefaultIPGateway=------网关&set _DNSServerSearchOrder=-------DNS
FOR /F "tokens=*" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    FOR /F "tokens=*" %%i in ("%%A") do set %%i
)
FOR /F "tokens=*" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
   FOR /F "tokens=*" %%i in ("%%A") do set %%i
)

for %%i in (Name Domain IPAddress IPSubnet DefaultIPGateway DNSServerSearchOrder) do (
    set %%i=!%%i:{=!
    set %%i=!%%i:}=!
    set %%i=!%%i:"=!
    echo !_%%i!: !%%i:,=  !  
)

ECHO.                            Press any key to exit...
PAUSE >Nul

exit
复制代码

问题解决。谢谢各位

ygqiang

echo ------------修改后的结果:------------
@ECHO OFF&Setlocal EnableDelayedExpansion
set _Name=计算机名&set _Domain=工作组&set _DefaultIPGateway=网关
set _IPAddress=IP地址&set _IPSubnet=子网掩码&set _DNSServerSearchOrder=DNS
FOR /F "tokens=*" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    FOR /F "tokens=*" %%i in ("%%A") do set %%i
)
FOR /F "tokens=*" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
   FOR /F "tokens=*" %%i in ("%%A") do set %%i
)

for %%i in (Name Domain IPAddress IPSubnet DefaultIPGateway DNSServerSearchOrder) do (
    set %%i=!%%i:{=!
    set %%i=!%%i:}=!
    set %%i=!%%i:"=!
    echo !_%%i!: !%%i:,=!
)

ECHO.                            Press any key to exit...
PAUSE >Nul
复制代码

这个代码可以。出现1个小问题
1、dns显示的是（中间应该隔开啊）：
DNS: 10.10.0.510.10.0.6

terse

这样试下呢？

echo ------------修改后的结果:------------
@ECHO OFF&Setlocal EnableDelayedExpansion
set _Name=计算机名&set _Domain=工作组&set _DefaultIPGateway=网关
set _IPAddress=IP地址&set _IPSubnet=子网掩码&set _DNSServerSearchOrder=DNS
FOR /F "tokens=*" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    FOR /F "tokens=*" %%i in ("%%A") do set %%i
)
FOR /F "tokens=*" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
   FOR /F "tokens=*" %%i in ("%%A") do set %%i
)

for %%i in (Domain Name DefaultIPGateway DNSServerSearchOrder IPAddress IPSubnet) do (
    set %%i=!%%i:{=!
    set %%i=!%%i:}=!
    set %%i=!%%i:"=!
    echo !_%%i!: !%%i:,=!
)

ECHO.                            Press any key to exit...
PAUSE >Nul
复制代码

ygqiang

各位帮忙解决下啊，谢谢了。

ygqiang

顶下，又出现一点小问题。

ygqiang

字符截取   :~1,-2!  到  :~2,-3!
terse 发表于 2011-6-22 11:36

多谢。

但DNS显示会出现一点小问题。

echo ------------修改后的结果:------------
@ECHO OFF&Setlocal EnableDelayedExpansion
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    IF /I "%%A"=="Domain" SET "Domain=%%B"
    IF /I "%%A"=="Name" SET "Name=%%B"&ECHO.计算机名----: !Name:~,-1!&ECHO.工作组------: !Domain:~,-1!
)
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
    IF /I "%%A"=="DefaultIPGateway" SET "Gateway=%%B"
    IF /I "%%A"=="Description" SET "CardName=%%B"
    IF /I "%%A"=="DNSServerSearchOrder" SET "DNS=%%B"
    IF /I "%%A"=="IPAddress" SET "IP=%%B"
    IF /I "%%A"=="IPSubnet" SET "Subnet=%%B"&ECHO.IP地址------: !IP:~2,-3!&ECHO.子网掩码----: !Subnet:~2,-3!&ECHO.网关--------: !Gateway:~2,-3!&ECHO.DNS---------: !DNS:~2,-3!&ECHO.
)
ECHO.                            Press any key to exit...
PAUSE >Nul
复制代码

terse

字符截取   :~1,-2!  到  :~2,-3!

ygqiang

原来显示的是：

ygqiang

新的小问题：

echo ------------修改后的结果:------------
@ECHO OFF&Setlocal EnableDelayedExpansion
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    IF /I "%%A"=="Domain" SET "Domain=%%B"
    IF /I "%%A"=="Name" SET "Name=%%B"&ECHO.计算机名----: !Name:~,-1!&ECHO.工作组------: !Domain:~,-1!
)
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
    IF /I "%%A"=="DefaultIPGateway" SET "Gateway=%%B"
    IF /I "%%A"=="Description" SET "CardName=%%B"
    IF /I "%%A"=="DNSServerSearchOrder" SET "DNS=%%B"
    IF /I "%%A"=="IPAddress" SET "IP=%%B"
    IF /I "%%A"=="IPSubnet" SET "Subnet=%%B"&ECHO.IP地址------: !IP:~1,-2!&ECHO.子网掩码----: !Subnet:~1,-2!&ECHO.网关--------: !Gateway:~1,-2!&ECHO.DNS---------: !DNS:~1,-2!&ECHO.
)
ECHO.                            Press any key to exit...
PAUSE >Nul
复制代码

这个bat文件，运行以后，ip地址显示的是："10.10.94.184"

如何将ip地址显示成：10.10.94.184

就是说：如何将2个""符合去掉？

dennisle

17# ygqiang

若是電腦上只有一張網卡那只會秀一張網卡信息，
DNS，IP，Gateway 亦是如此，您試了就明白!!

ygqiang

多谢楼上。

计算机一般都是1个网卡。但绑定的是2个DNS

这种情况，如何修改代码，显示出2个DNS来？

DennisLee

15# ygqiang

此代碼適用雙網卡、雙IP、雙DNS，試試看!

@ECHO OFF&Setlocal EnableDelayedExpansion
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC Path Win32_ComputerSystem Get Domain^,Name /Value 2^>Nul') DO (
    IF /I "%%A"=="Domain" SET "Domain=%%B"
    IF /I "%%A"=="Name" SET "Name=%%B"&ECHO.電腦名稱: !Name:~,-1!&ECHO.工作群組: !Domain:~,-1!
)
FOR /F "tokens=1,2* delims==" %%A IN ('WMIC NICConfig WHERE "IPEnabled=TRUE" GET DefaultIPGateway^,Description^,DNSServerSearchOrder^,IPAddress^,IPSubnet /value 2^>Nul') DO (
    IF /I "%%A"=="DefaultIPGateway" SET "Gateway=%%B"
    IF /I "%%A"=="Description" SET "CardName=%%B"
    IF /I "%%A"=="DNSServerSearchOrder" SET "DNS=%%B"
    IF /I "%%A"=="IPAddress" SET "IP=%%B"
    IF /I "%%A"=="IPSubnet" SET "Subnet=%%B"&ECHO.網卡名稱: !CardName:~,-1!&ECHO.IP  位址: !IP:~1,-2!&ECHO.網路遮罩: !Subnet:~1,-2!&ECHO.預設閘道: !Gateway:~1,-2!&ECHO.DNS 服務: !DNS:~1,-2!&ECHO.
)
ECHO.                            Press any key to exit...
PAUSE >Nul
复制代码

ygqiang

多谢楼上。

DNS如何将2个都显示在屏幕上呢？

qzwqzw

计算机名修改与全局环境更新一样
都需要向窗口进程发送系统配置更新消息
我尚未看到完全的解决解决方案

目前最好的方案大概还是直接重启吧