Set oOutFile = objFSO.CreateTextFile(“x:\scripts\results\” & strUserName & “.” & strCompName & “-windows. SGetWindowsName = objShell.RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName”) SGetWindowsPID = objShell.RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID”) Set objFSO = CreateObject(“Scripting.FileSystemObject”) If ilByte Mod 5 = 0 And ilByte 0 Then sCDKey = “-” & sCDKey NCur = nCur * 256 Xor bProductKey(ilKeyByte) Setting up two new PCs and I have access to the Microsoft account that was initially used to enter them and download onto the old. Pretty sure this cant be done now like it used to be pre 2013 office but thought I would ask anyway. ‘Step through each byte in the Product Key Posted by bdpoop on Jul 25th, 2021 at 6:35 AM. OOutFile.WriteLine “Licensing for:” & strCompNameīDigitalProductID = objShell.RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductID”)īProductKey(ilByte – 52) = bDigitalProductID(ilByte) Set oOutFile = objFSO.CreateTextFile(“x:\scripts\results\” & strUserName & “.” & strCompName & “-office.txt”) Set objNetwork = WScript.CreateObject(“WScript.Network”) Set objShell = CreateObject(“WScript.Shell”)īDigitalProductID = objShell.RegRead(“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\\ProductName”) Have your login script run this batch file upon login and have your users log off and back on to create the text documents with the product keys. vbs files to, modifying the lines in bold to point to the shared drive you want to dump the results, and then create a batch files with the following lines: If you want to find the keys of newer versions of Office please note this script WILL NOT WORKĬreate the following 2. The following scripts will work on Windows 2000 & higher, and only Office 2003 to find the product keys and create a text document with the product name & product key.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |