自动获取IP地址和DNS脚本

最近网络中老是有人手动设置IP地址，经常导致IP地址冲突，通过组策略，设置用户开机时执行以下脚本，让他手动指定的IP地址和DNS，改为自动获得IP地址和DNS，脚本如下：

On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
    errDNS = objNetAdapter.SetDNSServerSearchOrder(null)
Next

好的建议和方法，一起讨论。