hcortez463
Posts: 780
Score: 62 Joined: 4/8/2005 Status: offline
|
ive used the bellow script to append, you might be able to modify it. On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration") arrDNSSuffixes = Array("test.com","test2.com") objNetworkSettings.SetDNSSuffixSearchOrder(arrDNSSuffixes)
_____________________________
If it Helps, Please rate....
|