Veel merkfabrikanten leveren nieuwe Windows 8.1 computers zonder installatie-dvdrom. Veelal bevind zich op de harde schijf een herstelpartitie waarmee de computer terug kan worden gebracht naar de oorspronkelijke instellingen.
De fabrikant is verplicht om een sticker met de productsleutel van Windows 8.1 op de computer of laptop aan te brengen. Soms gebeurt dat onverhoopt niet of de sticker is half weg gesleten. Tja, hoe kunt u dan uw Windows productsleutel terugvinden wanneer u die nodig bent ?
Daar is een eenvoudige truc voor.
- Selecteer de onderstaande tekst en kopieer de volledige tekst naar een nieuw bestand in Kladblok
- Kies daarna Opslaan als en selecteer dan bij Opslaan als type voor Alle bestanden en geef het bestand de naam sleutel.vbs
- Sluit Kladblok en dubbelklik op sleutel.vbs --> er verschijnt dan een klein venster met uw Windows productsleutel
- Als u geen pen bij de hand heeft kunt u de unieke sleutel met toetsencombinatie Ctrl + C kopieren en bijvoorbeeld in een nieuw Kladblok bestand opslaan
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
Is het gelukt ? Goed zo. U heeft zojuist een VisualBasic script gemaakt en daarmee uw Windows productsleutel op het scherm getoverd. Overigens werkend getest onder Windows 7 alsook 8.