DNS Domain Suffix update script

Active Directory, VB Script, Windows 7, Windows Networking, Windows Server 2003, Windows Server 2008 R2, Windows XP
A script to help modify/change/update the DNS Domain Suffix on a Network Adapter

 

On Error Resume Next

strComputer = "."

arrNewDNSSuffixSearchOrder = Array("hr.fabrikam.com", "contoso.com")

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colNicConfigs = objWMIService.ExecQuery _

("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs

strDNSHostName = objNicConfig.DNSHostName

Next

WScript.Echo VbCrLf & "DNS Host Name: " & strDNSHostName

For Each objNicConfig In colNicConfigs

WScript.Echo VbCrLf & _

" Network Adapter " & objNicConfig.Index & VbCrLf & _

" " & objNicConfig.Description & VbCrLf & _

" DNS Domain Suffix Search Order - Before:"

If Not IsNull(objNicConfig.DNSDomainSuffixSearchOrder) Then

For Each strDNSSuffix In objNicConfig.DNSDomainSuffixSearchOrder

WScript.Echo " " & strDNSSuffix

Next

End If