Script ile DNS Suffix duzenleme ve ekleme

Bilgisayarinizdaki DNS suffix leri script ile duzenlemek veya tanimlamak icin asagidaki ornekten yararlanabilirsiniz, asagidaki ornekte gormus oldugunuz istanbul.domainim.com ve ankara.domainim.com son eklerini size uygun olacak sekilde degistiriniz, isterseniz daha fazlasini benzer formatta ekleyebilirsiniz.

On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
arrDNSSuffixes = Array("hr.fabrikam.com", "research.fabrikam.com")
objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes)