Script Yardımı İle Toplu Lisans Key Değiştirmek

Birden çok bilgisayarın ürün anahtarını değiştirmeniz gerekiyorsa, bu yöntemi öneririz. Toplu lisans ürün anahtarını değiştiren bir WMI komut dosyası oluşturabilir ve bu komut dosyasını bir başlangıç komut dosyasında dağıtabilirsiniz.

Bu bölümde açıklanan ChangeVLKey2600.vbs ve ChangeVLKeySP1 örnek komut dosyaları, girmek istediğiniz yeni toplu lisans anahtarını tek bir bağımsız değişken olarak kullanır. Beş parçalı alfasayısal biçimdedir.

ChangeVLKey2600.vbs komut dosyasını Windows XP SP1 ve Windows XP'nin sonraki bir sürümü çalışmayan Windows XP tabanlı bilgisayarlarda, ChangeVLKeySP1.vbs komut dosyasını da Windows XP SP1 ve Windows XP'nin sonraki bir sürümü çalışan Windows XP tabanlı bilgisayarlarda kullanmanızı öneririz. Komut dosyaları aşağıdaki işlevleri gerçekleştirir.

• Beş parçalı alfasayısal ürün anahtarından tire işaretlerini (-) siler.
• win32_WindowsProductActivation sınıfının bir örneğini oluşturur.
• Yeni toplu lisans anahtarıyla SetProductKey yöntemini çağırır.

Aşağıdaki örnek komut dosyalarından birini kullanan bir toplum işlem dosyasını veya cmd dosyasını, bağımsız değişken olarak yeni ürün anahtarıyla birlikte oluşturabilirsiniz. Bunu başlangıç komut dosyasının parçası olarak dağıtabilir veya tek bir bilgisayardaki ürün anahtarını değiştirmek için komut satırından çalıştırabilirsiniz.

Örnekler

Ürün anahtarını komut dosyasıyla değiştirme hakkında daha fazla bilgi için, aşağıdaki Microsoft Web sitesini ziyaret edin: http://technet.microsoft.com/tr-tr/library/bb457096.aspx

ChangeVLKeySP1.vbs

' 
' 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 ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   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

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 

 ChangeVLKey2600.vbs

' 
' 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 ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   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

İleri 

Aşağıdaki örnekte ChangeVLKeySP1.vbs komut dosyasının komut satırından nasıl kullanılacağı gösterilir:

1. Başlat'ı ve ardından Çalıştır'ı tıklatın.
2. Aç kutusuna aşağıdaki komutu yazın (burada AB123-123AB-AB123-123AB-AB123, kullanmak istediğiniz yeni ürün anahtarıdır) ve Tamam'ı tıklatın:
   c:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123