' ============================================================
' GetNetworkAdapterConfigReport.vbs
'
' Reports Network Adapter Configuration via WMI (Win32_NetworkAdapterConfiguration).
'
' Usage: cscript GetNetworkAdapterConfigReport.vbs
' ============================================================

Option Explicit

Dim objWMIService, colItems, objItem, strOutput

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT Description, IPAddress, DefaultIPGateway, DNSServerSearchOrder FROM Win32_NetworkAdapterConfiguration")

strOutput = ""
For Each objItem In colItems
    strOutput = strOutput & "Description: " & objItem.Description & vbCrLf
    strOutput = strOutput & "IPAddress: " & objItem.IPAddress & vbCrLf
    strOutput = strOutput & "DefaultIPGateway: " & objItem.DefaultIPGateway & vbCrLf
    strOutput = strOutput & "DNSServerSearchOrder: " & objItem.DNSServerSearchOrder & vbCrLf
    strOutput = strOutput & String(40, "-") & vbCrLf
Next

If strOutput = "" Then
    WScript.Echo "No Network Adapter Configuration found."
Else
    WScript.Echo strOutput
End If