Dieser Beitrag zeigt Ihnen, wie Sie Ihren Windows 10 Produktschlüssel mit einem VB-Skript finden. Aber ich muss hinzufügen, dass dies auch unter Windows 8.1, Windows 7 und früheren Versionen funktioniert. Wenn Sie aus irgendeinem Grund Ihre Windows-Lizenz oder Seriennummer herausfinden müssen, dann hilft Ihnen dieser Beitrag sicher weiter.
Windows 10 Produktschlüssel suchen

Öffnen Sie einen Merkzettel und fügen Sie Folgendes ein:
Setzen Sie WshShell = CreateObject('WScript.Shell') MsgBox ConvertToKey(WshShell.RegRead('HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId')) Funktion ConvertToKey(Taste) Const-TasteOffset = 52 i = 28 Zeichen ='BCDFGHJKMPQRTVWXY2346789'. Tun Kurve = 0 x = 14 Tun Cur = Cur * 256 Cur = Taste(x + TasteOffset) + Cur Taste(x + TasteOffset) = (Cur 24) und 255 Cur = Cur Mod 24 x = x -1 Schleife Während x >= 0 i = i -1 KeyOutput = Mid(Zeichen, Cur + 1, 1) & KeyOutput Wenn (((29 - i) Mod 6) = 0) und (i <> -1) dann i = i -1 KeyOutput = '-' & KeyOutput Ende Wenn Schleife Während i >= 0 ConvertToKey = KeyOutput Ende Funktion


