Arkadaşlar Geçen Hafta Open Lisanslarım Geldiginden Clientlarla Tek Tek Ugraşmaktansa Bir Script ile Lisans Anahtarlarını Degiştirmeyi Denedım.Bilenler Mutlaka Vardı Bilmeyenler için Açıklayayım.Clientlar XP-PROSP2 aşagıdaki kodu bir txt ye kopyalarak adını ChangeVLKey2600.vbs yapıyoruz.
' WMI Komut Dosyası - ChangeVLKey.vbs
'
' Bu komut dosyası bilgisayardaki ürün anahtarını değiştirir
'
'***************************************************************************
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 ChangeVLKey.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\ChangeVLKey2600.vbs AAAAA-AAAAA-AAAAA-AAAAA-AAAAA
En son Olarak Clientlar Locallerinde User olduklarından GP uzerınden Registry Yazma Yetkisini Vermemiz Gerekmektedir.
Computer Configuration-Windows Setting-Registry-Add Key diyoruz
MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents seçilerek gerekli yetkiyi Veriyoruz 2 Restart içinde Keyler Degişiyor.
Bat dosyası \\server\keychange\changevlkey.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 uzun yoldan gıttım :))
http://sistemdoktoru.com/forums/56330/ShowThread.aspx#56330