Windows Lisansını Scripte ve Cmd Ekranında Görün

0
1873

Windows Lisansını Scripte ve Cmd Ekranında Görün

İlk yöntem:

Not defterini açın.

Yazı sonundaki kodu not defterine yapıştırın. Ben bunla uğraşmam diyorsanız hazır Scripti yazı sonunda indirme linki bulunmaktadır.

Dosya kısmından farklı kaydet seçin.

Dosya ismine; herhangi bir ad verin.

Dosya isminden sonraki noktadan sonrası vbs yapın.

Kayıt türünü tüm dosyalar olsun.

Oluşturulan script tıkayın.

Karşınıza gelen ekranın en altında ınstalled key yazısını karşısında ürün anahtarınız gözükecektir.

İkinci yöntem:

Bir ip ucu vereyim.

Oluşturduğunuz scripti sytem32 klasörünün içine atın.

Scripte ne ad verdiyseniz cmd ekranında yazıp enter basın.

Windows ürün anahtarınız yine karşınıza gelir.

Üçüncü yöntem:

PowerShell kullanarak Windows Lisans Anahtarı alın:

"(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey"

Windows 10 / 8.1 / 7 / Vista üzerinde çalışır.

Aşağıdaki komutu cmd ekranında çalıştırın:

wmic path softwarelicensingservice get OA3xOriginalProductKey

Scripti bu url’den https://drive.google.com/file/d/0B4O615pMqW-keXdYYUc4djBxajg/view indirebilirsiniz.

Script ve kodu:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

 

CEVAP VER

Please enter your comment!
Please enter your name here