Set Windows DNS and IP addressing to use DHCP

setDHCP.vbs

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

 Set colNicConfigs = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each obj in colNicConfigs
	obj.SetDNSServerSearchOrder(null)
	if not obj.DHCPEnabled Then
		obj.EnableDHCP
	End if
Next