Windows lisansını scripte ve cmd ekranında görün

Not defterini açın.

Kodu not defterine yapıştırın.

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

Dosya ismine; herhangi bir ad verin.

Dosya ismininden 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 anhatarınız gözükeçektir.

windows-lisansini-scripte-ve-cmd-ekraninda-gorun

Bir ip ucu vereyim.

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

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

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

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 indirebilirsimiz.

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

 

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir