Set NetworkIP= GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
 For Each System In NetworkIP
   For each Prop in System.Properties_
     WScript.Echo Prop.Name & vbTab & Prop.Value
      on error resume next
   Next
  WScript.Echo vbCrLf
Next