自动获取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

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

 

你可能感兴趣的:(脚本,获取,dns,自动,地址)