@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('ipconfig') do (
  set "str=%%a"
  if not defined ip (
    if defined flag (
      if "!str:IP Address=!" neq "!str!" (
        set "ip=!str:*:=!"
        set "ip=!ip:~1!"
      )
    ) 
    if "!str:~,3!" equ "PPP" set "flag=a"
  )
)
echo,%ip%
pause>nul
复制代码

@echo off
for /f "tokens=2 delims={}" %%a in ('^(wmic nicconfig where "ipenabled='true'" get caption^,ipaddress^)^|find /i "WAN"') do set "ip=%%~a"
echo,%ip%
pause>nul
复制代码

Dim objWMI, objItems, objItem
Set objWMI = GetObject("Winmgmts:")
Set objItems = objWMI.ExecQuery _
 ("Select * From Win32_NetworkAdapterConfiguration " _
   & "Where IpEnabled = True")
For Each objItem In objItems
  If InStr(objItem.Caption, "WAN") Then
    For Each ip In objItem.IpAddress
      WScript.Echo ip
    Next
  End If
Next
Set objItems = Nothing
Set objWMI = Nothing
复制代码

Dim objIE, Url, Text
Set objIE = CreateObject("Internetexplorer.Application")
Url = "http://iframe.ip138.com/ic.asp"
objIE.Visible = False
objIE.Navigate Url
Do Until objIE.ReadyState = 4
  WScript.Sleep 200
Loop
Text = objIE.Document.DocumentElement.InnerText
objIE.Quit
Set objIE = Nothing
Dim objREG, Ip
Set objREG = New RegExp
objREG.Pattern = ".*?(\d{1,}\.\d{1,}\.\d{1,}\.\d{1,}).*"
Ip = objREG.Replace(Text, "$1")
Set objREG = Nothing
WScript.Echo Ip
复制代码

Dim objDOM, Url, Text, Ip
Url = "http://iframe.ip138.com/ic.asp"
Set objDOM = WScript.GetObject(Url)
Do Until objDOM.ReadyState = "complete"
  WScript.Sleep 200
Loop
Text = objDOM.DocumentElement.InnerText
Set objDOM = Nothing
Ip = Split(Split(Text, "[")(1), "]")(0)
WScript.Echo Ip
复制代码

@echo off
echo,请稍等...
>Getip.vbs echo Set oDOM=WScript.GetObject("http://iframe.ip138.com/ic.asp"):Do Until oDOM.readyState="complete":WScript.sleep 1:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing
for /f "tokens=2,3 delims=[]" %%i in ('"cscript //nologo Getip.vbs"') do echo 当前外网 IP 是: %%i %%j
del Getip.vbs
pause
复制代码

' getIP.vbs
Msgbox "外网IP为：" & getIP()

Function getIP()
    Dim strHtml, strIP
    If strIP = "" Then
        strHtml = HttpGet("http://yu2n.sinaapp.com/app/f/ip/AddIP.php?ip=show_client")
        strIP = Join(regEx_execute("\d+\.\d+\.\d+\.\d+", strHtml))
    End If
    If strIP = "" Then
        strHtml = HttpGet("http://iframe.ip138.com/ic.asp")
        strIP = Join(regEx_execute("\d+\.\d+\.\d+\.\d+", strHtml))
    End If
    If strIP = "" Then
        strHtml = HttpGet("http://www.whereismyip.com/")
        strIP = Join(regEx_execute("\d+\.\d+\.\d+\.\d+", strHtml))
    End If
    getIP = strIP
End Function

Function HttpGet(ByVal url)
    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With
End Function

' ====================================================================================================
' 检查字符串是否符合正则表达式
'Msgbox Join(regEx_execute( "[A-z]", "a-v d-f b-c"), " | ")
'Msgbox regEx_replace( "[A-z]+-[A-z]+", "a-v d-f b-c", " | ")
' 取得正则表达式搜索结果，返回数组
Function regEx_execute(ByVal sPattern, ByVal str)
    Dim regEx, Match, Matches, arrMatchs(), i : i = -1    ' 建立变量。
    Set regEx = CreateObject("VBScript.RegExp") ' 建立正则表达式。
        regEx.Pattern = sPattern      ' 设置模式。
        regEx.IgnoreCase = True    ' 设置是否区分字符大小写。
        regEx.Global = True        ' 设置全局可用性。
        regEx.MultiLine = True     ' 多行匹配模式
    Set Matches = regEx.Execute(str)      ' 执行搜索。
    For Each Match in Matches  ' 遍历匹配集合。
        If Not Match.Value = "" Then
            i = i + 1
            ReDim Preserve arrMatchs(i) ' 动态数组：数组随循环而变化
            arrMatchs(i) = Match.Value
        End If
    Next
    regEx_execute = arrMatchs
	Set Match = Nothing
	Set regEx = Nothing
End Function
复制代码

With CreateObject("Microsoft.XMLHTTP")
    .open "GET", "http://2019.ip138.com/ic.asp", False
    .send
    ip= Split(Split(.responseText, "[")(1),"]")(0)
End With
CreateObject("Scripting.FileSystemObject").CreateTextFile("IP.txt", 1).Write ip
复制代码