setDNS.vbs


Dim DNS1:DNS1 = "172.16.0.3" '//主DNS

Dim DNS2:DNS2 = "172.16.0.5" '//次DNS

Dim DNS3:DNS3 = "192.168.9.3" '//次DNS

Dim DNS4:DNS4 = "192.168.9.5" '//次DNS

strWinMgmt="winmgmts:{impersonationLevel=impersonate}"

Set SAWXY_NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")

For Each SAWXY_NIC In SAWXY_NICS

IF SAWXY_NIC.IPEnabled Then

SAWXY_NIC.SetDNSServerSearchOrder Array(DNS1,DNS2,DNS3,DNS4)

End IF

Next


——————————分割线——————————


setDNS.bat (需要对应网络连接名称)


netsh interface ipv4 set dnsserver "本地连接" static 172.16.0.3

netsh interface ipv4 add dnsserver "本地连接" 172.16.0.5

pause


——————————分割线——————————


setIP_enableDHCP.vbs


On Error Resume Next


strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNicConfigs = objWMIService.ExecQuery _

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


For Each objNicConfig In colNicConfigs

If Not objNicConfig.DHCPEnabled Then

intReturn = objNicConfig.EnableDHCP

End If


Next


——————————分割线——————————


时间错误，域控主机w32tm /config /manualpeerlist:time.windows.com /syncfromflags:manual /reliable:yes /update


——————————分割线——————————