KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput MsgBox ConvertToKey(WshShell.RegRead('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId')) Set WshShell = CreateObject('WScript.Shell') Open Notepad, paste the following bit of code, and save the file as productkey.vbs (the file extension VBS instead of TXT is crucial). Now search the registry for the software in question and keep hitting F3 until the serial numbers shows up in the data column.Īlternatively, if you're only looking for your Windows product key, you can let a script do the hard work for you. Press Windows key + R to launch the Run menu, type in cmd, and hit ENTER. If you'd rather not use a third party tool, you can manually scan for product keys in the Windows registry.
