Keys = "Windows: " & winKey & " / " & "Office 2010 " & officeBit & ": " & officeKey ' Set fso = CreateObject ("Scripting.FileSystemObject") ' Wscript.Echo Err.Number & " - " & Err.Description OfficeKey = ConvertToKey(WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Registration\\DigitalProductId"), "Office2010") WinKey = ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"), "Windows") Set WshShell = CreateObject("WScript.Shell") ' Tested for Win 7 & 10, Office 2010 32bit & 64bit ' Double click in explorer or run in cmd with cscript MSProductKeys.vbs ' Windows 10 Product Keys from migration of Windows 7 are also shown ' Extract Windows 7 and Office 2010 Product Keys The script works for 64-bit and 32-bit installations. The following Visual Basic script extracts the information from your registry.
How to get Microsoft Office 2010 and Windows 7 Product Keys from WindowsRegistry?Īssume: You are in a small company and you want to know which Office and which Windows license is installed on which computer.
0 kommentar(er)
