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

多谢楼上。

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

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

dennisle

17# ygqiang

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

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个""符合去掉？

ygqiang

原来显示的是：

terse

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

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
复制代码

ygqiang

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

ygqiang

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

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

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

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
复制代码

问题解决。谢谢各位