Getting Default Gateway IP address

[smithy1981]

Hi, I am trying to use vbscript to get the first two octets of the default gateway on a machine.

I can get the machines IP address, but not the Default Gateway IP.

Any suggestions?

Thanks

 

[PHV]

Something like this ?
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem In colItems
strIPAddress = Join(objItem.IPAddress, ",")
strDefaultIPGateway = Join(objItem.DefaultIPGateway, ",")
MsgBox "IP=" & strIPAddress & vbCrLf & "GW=" & strDefaultIPGateway
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886