Záloha licence Windows

I když Windows se aktivují dnes již automaticky, někdy potřebujeme pro jistotu zjistit a zazálolohovat seriové – aktivační číslo Windows.

1. Belarc Advisor

Pro zjištění spolehlivě funguje Belarc Advisor, který můžete stáhnout buď

• oficiálně z oficiální stránky pro stažení Belarcu (po registraci)
• nebo ze Stahuj.cz (verze 12.1 – odzkoušeno mnou osobně na viry)

Jedná se o zcela legitimní software, který používám řadu let, který zjistí z instalace Windows mnoho informací včetně licenční čísel. Program vyžaduje instalaci. Po spuštění Vám ve Vašem internetovém prohlížeči zobrazí stránku s podrobným reportem o Vašem počítači včetně licencí:

V záhlaví otevřené stránky se zobrazí HTML soubor s informacemi, který Belarc vytvořil. Zazálohujte si celou tuto html stránku do počítače a zkopírujte si někam licenci kterou naleznete v sekci „Software Licenses„.

2.) Jednoduchý VBS skript pro Windows (Pro panaroidní jedince)

Ten si můžete buď odsud stáhnout ve formátu ZIP, nebo si sami vytvořte kdekoliv jako správce pomocí Notepadu (poznámkového bloku) s koncovkou .VBS (například „key.vbs“) tak, že zkopírujete tento text do Notepadu a uložíte.

Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If
'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0

If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

Uložte skript třeba na plochu a spusťte jako správce.

Zobrazí se vám informace o licenci a výsledek se uloží na Vaší ploše pod názvem: „WindowsKeyInfo.txt“. Pokud chcete výsledek uložit jinam, změňte si cestu ve skriptu.

Toť vše!