BGINFO VB OR WMI Query to retrieve only active IPv4 address

Question

This question goes back to this request..

https://social.technet.microsoft.com/Forums/scriptcenter/en-US/bb74c2eb-eca2-455d-a270-8dd0f3d195e6/wmi-query-to-retrieve-only-active-ipv4-address

I would like to do the same thing as this script, however I would only like the IP Address associated with the current Gateway. (Internet Gateway, I'm aware there could be custom routes)

Here is a Script I current got from the above thread.

strMsg = ""
strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")

For Each IPConfig in IPConfigSet
 If Not IsNull(IPConfig.IPAddress) Then
 For i = LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
  If Not Instr(IPConfig.IPAddress(i), ":") > 0 Then
  strMsg = strMsg & IPConfig.IPAddress(i) & vbcrlf
  End If
 Next
 End If
Next

Echo strMsg

Answer 1

Maybe this?

strMsg = ""
strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress,DefaultIPGateway from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")

For Each IPConfig in IPConfigSet
	If Not IsNull(IPConfig.IPAddress) Then
		If Not IsNull(IPConfig.DefaultIPGateway) Then
			strMsg = strMsg & "Gateway = " & IPConfig.DefaultIPGateway(0) & vbcrlf 
			For i = LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
				If Not Instr(IPConfig.IPAddress(i), ":") > 0 Then
					strMsg = strMsg & "IP = " & IPConfig.IPAddress(i) & vbcrlf
				End If
		Next
		End if
	End If
Next

wscript.Echo strMsg