Set NetworkIP= GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
 For Each System In NetworkIP
   if IsArray(System.DNSServerSearchOrder) then
    WScript.Echo System.Description
    WScript.Echo System.Caption
        For Each server In System.DNSServerSearchOrder
          WScript.Echo server
        Next
    WScript.Echo
    end if
 Next