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()

Script ile ISA Server Cache'ini temizlemek

ISA Server'da Cache dosyasini temizlemek icin asagidaki basit script ten yararlanabilirsiniz, aslinda manual olarak yaptigimiz Firewall servisinin durdurulmasi , ardindan Cache dosyasinin silinmesi ve servisin yeniden baslatilmasindan farkli bir islem yapmamakta, ancak otomatize etmek icin duz bir batch dosyasindan daha faydali olacaktir surucu ismi statik olmadigi icin ve birden fazla dosyaniz var ise bulup temizleyebilecegi icin.

Unutmayinizki Firewall servisi bu islem sirasinda durdurulup yeniden baslatilacagi icin baglantilarinizda kesinti olacaktir.


Set root = CreateObject("FPC.Root")
Set server = root.GetContainingServer()
server.StopFirewallService()
Set cacheDrives = server.CacheDrives
Set fso = CreateObject("Scripting.FileSystemObject")
For Each cacheDrive In cacheDrives
cacheFilePath = CacheDrive.Name & "\urlcache\Dir1.cdat"
WScript.echo "Cache dosyasinin yeri: " & cacheFilePath
fso.DeleteFile cacheFilePath
Next
server.StartFirewallService()
WScript.Echo "Cache icerigi temizlenmistir"

DNS Sunucusu Cache ini temizleme

DNS sunucunuzun cachelenmis kayitlarini temizlemek icin asagidaki scripti kullanabilir, bu islemi periyodik olarak uygulamak istiyorsaniz Scheduled Tasks yardimi yapabilirsiniz.


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

Set colItems = objWMIService.ExecQuery("Select * From MicrosoftDNS_Cache")

For Each objItem in colItems
objItem.ClearCache()
Next