Si heu perdut o oblidat on havíeu emmagatzemat la clau del producte Windows, tinc una solució per a vosaltres. Avui veurem com es pot utilitzar un simple script VBS per mostrar-nos la clau de producte d’una còpia instal·lada de Windows 10, Windows 8 o Windows 7. És una solució senzilla per extreure la clau de producte del sistema operatiu instal·lat al vostre PC sense utilitzant qualsevol programari de tercers. Aqui venim.
Anunci publicitari
En realitat, abans vaig publicar un solució similar que utilitzava PowerShell. però molts usuaris es van queixar que falla per a ells. PowerShell pot requerir habilitats addicionals d'usuari i ajustaments addicionals per executar cmdlets sense signar.
quin tipus de RAM hi ha al meu ordinador
En comparació amb PowerShell, aquesta solució VBScript és gairebé perfecta. Tot el que heu de fer és fer clic al fitxer. Per a visualitzeu la clau del producte de Windows 10
- Obre el bloc de notes.
- Copieu i enganxeu el text següent a la finestra del bloc de notes
Opció Explicit Dim objectshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Set path key key Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion 'Valor de la clau del registre DigitalID = objshell.RegRead (Path & 'DigitalProductId') Dim ProductName, ProductID, ProductKey, ProductData 'Get ProductName, ProductID, ProductKey ProductName =' Nom del producte: '& objshell.RegRead (Path &' ProductName ') ProductID =' Identificador del producte: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Clau instal·lada:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Mostra la bústia si es desa en un fitxer Si vbYes = MsgBox (ProductData & vblf & vblf & 'Voleu desar a un fitxer?', VbSí No + vbQuestion, 'Feu una còpia de seguretat de la informació de la clau de Windows') i després deseu ProductData End If 'Converteix binari en caràcters Funció ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput , Últim, clau1, inseriu 'Comproveu si el sistema operatiu és Windows 8 isWin8 = (clau (66) 6) i 1 clau (66) = (Clau (66) I & HF7) O ((és Win8 i 2) * 4) i = 24 Mapes = 'BCDFGHJKMPQRTVWXY2346789' Feu actual = 0 j = 14 Feu actual = Actual * 256 Actual = Clau (j + KeyOffset) + Actual Key (j + KeyOffset) = (Current 24) Current = Mod actual 24 j = j -1 Loop While j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Loop actual Mentre que i> = 0 If (isWin8 = 1), llavors keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Substitueix (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insereix & KeyOutput End Si ConverteixClau = Mitjana (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) Funció final 'Desa les dades en un fitxer Funció Desa (dades) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Obtén el nom d'usuari actual UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Crea un fitxer de text a l'escriptori fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Establir fso = CreateObject (' Scripting.FileSystemObject ') Establir txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function - Deseu el text anterior a un fitxer amb l'extensió '.vbs' a l'escriptori.
Consell extra: per assegurar-vos que deseu el fitxer correctament amb l'extensió '.vbs', podeu escriure el seu nom entre cometes dobles, per exemple, 'BackupWindowsKey.vbs'.
- Ara obriu el fitxer BackupWindowsKey.vbs
- Voila, la clau del producte es mostra a la pantalla.
Feu clic aquí per descarregar el fitxer BackupWindowsKey.vbs
He provat aquest truc a Windows 7, Windows 8 i Windows 10. Funciona impecablement en tots els sistemes operatius esmentats. Crèdits: nononsence @ MDL .
