On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
Wscript.Echo "DNS Domain: " & objItem.DNSDomain
Wscript.Echo "DNS Domain Suffix Search Order: " & _
objItem.DNSDomainSuffixSearchOrder
Wscript.Echo "DNS Enabled For WINS Resolution: " & _
objItem.DNSEnabledForWINSResolution
Wscript.Echo "DNS Host Name: " & objItem.DNSHostName
Wscript.Echo "DNS Server Search Order: " & objItem.DNSServerSearchOrder
Wscript.Echo "Domain DNS Registration Enabled: " & _
objItem.DomainDNSRegistrationEnabled
Wscript.Echo "Forward Buffer Memory: " & objItem.ForwardBufferMemory
Wscript.Echo "Full DNS Registration Enabled: " & _
objItem.FullDNSRegistrationEnabled
Next