Script ile IP adresinin DHCP sunucudan alinmasini ayarlamak

Asagidaki vb scriptini kullanarak bilgisayarlarinizin IP adreslerini statik almalari yerine DHCP almalari icin konfigure edebilirsiniz. Dilerseniz bu scripti Group Policy ile belli bir OU da topladiginiz istemcilerinize yayarak Statik Ip yonetiminden Dinamige geciyorsaniz isinizi kolaylastirmak icin kullanabilirsiniz.


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

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
Next