GPO ile key degistirmek

merhaba önce aşagıdaki gibi bir vbs dosyası hazırlayın key.vbs isminde

--------------------------------------------------------------------------------------------------------------------------

ON ERROR RESUME NEXT

if wscript.arguments.count < 1 then
   Wscript.echo "Komut dosyası bir VolumeProductKey bağımsız değişkeni olmadan çalışmaz"
   Wscript.echo "Doğru kullanım: Cscript key.vbs AAAAA-AAAAA-AAAAA-AAAAA-AAAAA"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'tire varsa sil
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'OOBETimer kayıt defteri değerini sil
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next

-----------------------------------------------------------------------------------------------------------------------------------------------------------

Sonrasında Bunu Server Uzerınde Everyone Okuma Yetkılı bir klasore atarak Paylaştırıyoruz.Daha sonra Computer Hesaplarının oldugu OU altında bir Startup Script yaratacagız bunun içinde aşagıdaki gibi bat dosyası oluşturuyoruz ve Startup Script'e Eklıyoruz.

\\Server\KeyChange\key.vbs AAAAA-AAAAA-AAAAA-AAAAA-AAAAA

 En son Olarak Clientlar Locallerinde User olduklarından GP uzerınden Registry Yazma Yetkisini Vermemiz Gerekmektedir.(Domainde oturum açtıkları Kullanıcılar,Locallerınde Administrators grubuna uye iseler gpo leri kasmanıza gerek yok)

Computer Configuration-Windows Setting-Registry-Add Key diyoruz

MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents  seçilerek gerekli yetkiyi Veriyoruz 2-3 defa Restart yparsanız Keylerin Degiştiğini görürsünüz.

Bat dosyası \\server\keychange\key.vbs dosyasını vl key ile birlikte çalıştırıyor.Eger vbs içine çalıştırıda eklemeyı bılen varsa sadece startupscripte vbs atılarak yapılabılır.

Ben zamanında 1 adet xpsp2 makınada denemiştim ve işe yaramıştı.

Kolay Gelsin

Tanju bey cok tesekkur ederim.