Tansu Ekinci

Aşağıdaki Script Tüm Clientlarda Çalıştırılır.

‘ 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