Script ile DHCP leaselerini serbest birakma

Merhaba, diyelim ki bir veya tum bilgisayarlarinizin DHCP den almis olduklari IP adreslerini serbest birakmak ihtiyaci duydunuz bu islemi asagidaki scripti direkt olarak veya dolayli yoldan Group Policy leri araciligi ile yapabilirsiniz.

On Error Resume Next

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

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.ReleaseDHCPLeaseAll()