Question

批处理如何获得系统ip地址并赋值变量

Answer 1

单纯批处理不能获得外网IP，可以借助VBS，@echo off
>html.vbs echo set http=createobject("Microsoft.XMLHTTP")
>>html.vbs echo Set objfs=CreateObject("scripting.filesystemobject")
>>html.vbs echo Set objf=objfs.CreateTextFile("html.txt",True)
>>html.vbs echo url=" http://ip.loveroot.com/"
>>html.vbs echo http.open "get",url,false
>>html.vbs echo http.send
>>html.vbs echo zhi=zhuanghuan(Http.responsebody)
>>html.vbs echo s=(zhi)
>>html.vbs echo objf.write s
>>html.vbs echo Function zhuanghuan(vIn)
>>html.vbs echo strReturn = ""
>>html.vbs echo For i = 1 To LenB(vIn)
>>html.vbs echo ThisCharCode = AscB(MidB(vIn,i,1))
>>html.vbs echo If ThisCharCode ^< ^&H80 Then
>>html.vbs echo strReturn = strReturn ^& Chr(ThisCharCode)
>>html.vbs echo Else
>>html.vbs echo NextCharCode = AscB(MidB(vIn,i+1,1))
>>html.vbs echo strReturn = strReturn ^& Chr(CLng(ThisCharCode) * ^&H100 + CInt(NextCharCode))
>>html.vbs echo i = i + 1
>>html.vbs echo End If
>>html.vbs echo Next
>>html.vbs echo zhuanghuan = strReturn
>>html.vbs echo End Function
html.vbs
for /f "tokens=4 skip=2 delims= " %%i in ('find /i "结果：" html.txt') do set ip=%%i
echo 您的iP地址为
echo %ip%
del html.txt
del html.vbs
@echo off
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo 内网IP
echo %ip%
pause

Answer 2

@echo off&setlocal enabledelayedexpansion
@title 批处理 获得系统IP地址并赋值变量

ipconfig>$
>$1 (findstr "IPv4 地址" "$") & move $1 $
for /f "tokens=2 delims=:" %%a in ('ipconfig ^| find/i "IPv4 地址"') do (
set "str_ip=%%a" & set str_ip=!str_ip: =!)
echo !str_ip!

pause>nul
从大神那看到一些回答，自己套出来的！反正我一般了解BAT，其它很多语言不懂了！