dntama.blogg.se

Set "Key=" & For /F "Tokens=2,*" %%G In ('%SystemRoot%\System32\reg.exe

Set PROCESSOR_ARCHITE | %SystemRoot%\System32\find.exe "64" 1>NUL & ( Set "sKey=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"

SetLocal EnableExtensions EnableDelayedExpansion cmd that would display product key for Windows and Office from XP and up (have to search for info how to distinguish this). I am sure some of you would be more efficient (Aacini, aGerman.). KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput Wscript.echo ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Code: Select all Set WshShell = CreateObject("WScript.Shell")