Learning default gateway or modem ip?

[youtuber]

How can I learn my modem ip adres?

MsgBox(0, "Modem IP", _ComputerGetModemIP())

Func _ComputerGetModemIP()
If @OSArch = "x86" Then
    $hklm = "HKLM"
Else
    $hklm = "HKLM64"
EndIf
 $aReadModemIP = RegRead($hklm & '\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\{FB281152-E073-454A-B7A3-0DD078663751}', 'DhcpDefaultGateway')
Return  $aReadModemIP
EndFunc

 

[JLogan3o13]

Do you want your modem's IP on the internal network? Or your external-facing IP address?

[youtuber]

External-facing IP address no problem

#include <Inet.au3>
#include <MsgBoxConstants.au3>
Local $sPublicIP = _GetIP()
MsgBox($MB_SYSTEMMODAL, "", "Your external IP address is: " & $sPublicIP)

I just want a modem ip address

 

[JLogan3o13]

If the modem is your default gateway, you can do this:

#include <Array.au3>

Local $aIPs[1][3] = [["IP Address", "Default Gateway", "DNS"]]
Local $oWMI = ObjGet("winmgmts:\\.\root\CIMV2")
Local $oNics = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    For $NIC In $oNics
        _ArrayAdd($aIPs, $NIC.IPAddress(0) & "|" & $NIC.DefaultIPGateway(0) & "|" & $NIC.DNSHostName)
    Next

_ArrayDisplay($aIPs)

If it is not, we'll have to do some sniffing on the network.

[youtuber]

Is this correct? Thank you

MsgBox($MB_SYSTEMMODAL, "", "Your Default gateway IP address is: " & $aIPs[1][1])

 

[JLogan3o13]

You'll have to try it and see if you get what you're expecting; my main machine is a 2012 server with 4 NICs, so it would not be correct for me.

[youtuber]

Understood thanks.
I want to use it as a function I do not want an error when I do not have internet for how to do it?

_GetdefaultGateway()

Func _GetdefaultGateway()
Local $aIPs[1][3] = [["IP Address", "Default Gateway", "DNS"]]
Local $oWMI = ObjGet("winmgmts:\\.\root\CIMV2")
Local $oNics = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    For $NIC In $oNics
        _ArrayAdd($aIPs, $NIC.IPAddress(0) & "|" & $NIC.DefaultIPGateway(0) & "|" & $NIC.DNSHostName)
    Next
    Return $aIPs[1][1]
    if @error Then
        Return False
        EndIf
EndFunc

fsdf

[youtuber]

Is it right to prevent an error? help please

Func _GetdefaultGateway()
Local $aIPs[1][3] = [["IP Address", "Default Gateway", "DNS"]]
Local $oWMI = ObjGet("winmgmts:\\.\root\CIMV2")
Local $oNics = $oWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
    If IsObj($oNics) Then
    For $NIC In $oNics
        _ArrayAdd($aIPs, $NIC.IPAddress(0) & "|" & $NIC.DefaultIPGateway(0) & "|" & $NIC.DNSHostName)
    Next
Return $aIPs[1][1]
    Else
     MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration")
    EndIf
EndFunc