Uzantısını vbs yapıp group policy ile istediğiniz bilgisayarlara logon script olarak uygulayabilirsiniz yada direk çalıştırın.

Set objFirewall = CreateObject(”HNetCfg.FwMgr”)Set objPolicy =
objFirewall.LocalPolicy.CurrentProfileobjPolicy.FirewallEnabled = FALSE

Group policy’i açın ve logon script olarak ekleyin.

Domain ortamında client bilgisayarların ismini değiştirmek için.vbs uzantılı scriptler kullanabilirsiniz. Aşağıdaki kodu.vbs uzantılı olarak kaydedip group policy ile startup script şeklinde dağıtmanız yeterli. Logon script olarak çalıştırırsanız eğer administrator yetkisine sahip bir user ile oturum açmanız gerekmektedir.Default kullanıcılar bilgisayar isimlerini değiştiremezler.

Şu ayrıntıyı da söylemek istiyorum ; startup olarak oluşturduğunuz group policy’ler sistem yetkilerini kullanır, logon bölümünden oluşturduğunuz policyler ise user yetkilerini kullanırlar. Herhangi bir msi paketini logon script bölümünden dağıtmak isterseniz eğer,oturum açan kullanıcı program kurma yetkisine sahip değilse msi kurulumu başarısız olur.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
err = objComputer.Rename("YeniBilgisayarİsmi")
Next

Fiziksel olarak bulunduğunuz yerde olmayan bir bilgisayarın group policy ayarlarını refresh etme ihtiyacı duyabilirsiniz. Kalkıp o bilgisayarın yanına gitmek birçok IT çalışanı için zor gelebilir.

Microsoft’un PsTools içinde bulunan PsExec aracı ile bu işlemi gerçekleştirebilirsiniz. Komut şöyle;

psexec.exe \\hedefbilgisayar “c:\windows\system32\gpupdate.exe /force”

CMD ekranında pstools klasörüne girerek bu komutu çalıştırmayı ve kesinlikle admin yetkisine sahip olmanız gerektiğini unutmayın.

PsTools’u Microsoft Technet sitesinden indirebilirsiniz.

Download linki : http://technet.microsoft.com/en-us/sysinternals/bb897553.aspx