Windows IP Configuration
 
        Host Name . . . . . . . . . . . . : wudi
        Primary Dns Suffix  . . . . . . . : 
        Node Type . . . . . . . . . . . . : Unknown
        IP Routing Enabled. . . . . . . . : No
        WINS Proxy Enabled. . . . . . . . : No
 
Ethernet adapter 本地连接:
 
        Connection-specific DNS Suffix  . : 
        Description . . . . . . . . . . . : Realtek RTL8168/8111 PCI-E Gigabit Ethernet NIC
        Physical Address. . . . . . . . . : 00-30-18-A1-5D-A1
        Dhcp Enabled. . . . . . . . . . . : No
        IP Address. . . . . . . . . . . . : 192.168.1.151
        Subnet Mask . . . . . . . . . . . : 255.255.255.0
        Default Gateway . . . . . . . . . : 192.168.1.1
        DNS Servers . . . . . . . . . . . : 202.96.64.68
                                            202.96.69.38
 
PPP adapter 宽带连接:
 
        Connection-specific DNS Suffix  . : 
        Description . . . . . . . . . . . : WAN (PPP/SLIP) Interface
        Physical Address. . . . . . . . . : 00-53-45-00-00-00
        Dhcp Enabled. . . . . . . . . . . : No
        IP Address. . . . . . . . . . . . : 119.119.183.168
        Subnet Mask . . . . . . . . . . . : 255.255.255.255
        Default Gateway . . . . . . . . . : 119.119.183.168
        DNS Servers . . . . . . . . . . . : 202.96.64.68
                                            202.96.69.38
        NetBIOS over Tcpip. . . . . . . . : Disabled
复制代码

@echo off
for /f "skip=29 tokens=2 delims=:" %%i in (a.txt) do set "str=%%i"&goto next
:next
echo %str:~1%&pause>nul
复制代码

@echo off
findstr /i "Gateway" "a.txt"|findstr /v ".1$">"%temp%\b.txt"
set /p ip=<"%temp%\b.txt"
set ip=%ip:*: =%
echo %ip%
复制代码

@echo off
ipconfig/all>ip.txt
for /f "skip=29 tokens=2 delims=:" %%i in (ip.txt) do set "str=%%i"&goto next
:next
del ip.txt
start mshta vbscript:msgbox("您的IP为%str:~1% 已复制到剪切板中",32,"提示")(window.close)
echo Set WshShell=wscript.createobject("Wscript.Shell") >%n%.vbs
echo Set objIE = CreateObject("InternetExplorer.Application") >>%n%.vbs
echo objIE.Navigate("about:blank") >>%n%.vbs
echo objIE.document.parentwindow.clipboardData.SetData "text","%str:~1%">>%n%.vbs
echo Set fso = CreateObject("Scripting.FileSystemObject")>>%n%.vbs
echo fso.DeleteFile(WScript.ScriptName)>>%n%.vbs
START %n%.vbs
复制代码

@echo off
for /f "tokens=15" %%a in ('ipconfig^|findstr /i /c:"ip address"') do set "ip=%%a"&goto :next
:next
for /f "delims={}" %%a in ('wmic nicconfig get ipaddress^|findstr /i /v "ipaddress %ip% 0.0"') do if %%~a geq 0 echo %%~a|winclip -c
pause
复制代码