f2::
MsgBox % UrlGET("https://ipv4.icanhazip.com")
return

UrlGET(URL) {
   HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
   HTTP.Open("GET", URL, false)
   HTTP.Send()
   return HTTP.ResponseText
}

   HTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") 
   HTTP.SetRequestHeader("Connection", "Keep-Alive")

f2::
MsgBox % http("GET", "https://ipv4.icanhazip.com")
return

UrlGET(URL) {
   
   ComObjError(false)
   HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
   HTTP.Open("GET", URL, false)
   HTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") 
   HTTP.SetRequestHeader("Connection", "Keep-Alive")
   HTTP.Send()
   return HTTP.ResponseText
}

with (new ActiveXObject('WinHTTP.WinHTTPRequest.5.1')) {
  open('GET', 'http://ipv4.internet.yandex.ru/api/v0/ip');
  send();
  WScript.echo(responseText);
}

Hive  = "HKLM\SYSTEM\CurrentControlSet\services\"
Hive1 = Hive & "RemoteAccess\Interfaces\"
Hive2 = Hive & "Tcpip\Parameters\Interfaces\"
For i = 2 To 10
  N = Hive1 & i & "\"
  With CreateObject("WScript.Shell")
    On Error Resume Next
    .RegRead(N) : If Err.Number < 0 Then Exit For
    IP = .RegRead(Hive2 & .RegRead(N & "InterfaceName") & "\IPAddress")
    If Err.Number = 0 Then MyIP = MyIP & Join(IP, vbLf) & vbLf
  End With : On Error Goto 0
Next : MsgBox MyIP, 64, "  Мои текущие IP"

(function() {
  var std, res, i = 0, ip;
  
  with (new ActiveXObject('WScript.Shell')) {
    std = Exec("cmd /q /k echo off");
    std.StdIn.WriteLine("reg query \
      HKLM\\SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Parameters\\Interfaces \
      /s | findstr /irc:\"DhcpIPAddress\" & exit"
    );
    res = std.StdOut.ReadAll().split('\n');
    
    for (; i < res.length; i++) {
      ip = res[i].match(/(\d+\.){3}\d+/g);
      WScript.echo(ip !== null ? ip : "");
    }
  }
}());

(gp HKLM:\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\* | ? {
   $_.DhcpIPAddress -ne $null -and $_.DhcpIPAddress.ToString() -ne '0.0.0.0'
}).DhcpIPAddress

For Each IP in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")._
ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")
  If Not IsNull(IP.IPAddress) Then MyIP = MyIP & Join(IP.IPAddress, vbLf) & vbLf
Next : MsgBox MyIP, 64, "  Мои текущие IP"