hey buddy, ho avuto esattamente lo stesso problema.
Ho accidentalmente disinstallato il mio product id e la chiave usando "slmgr/udk" nel prompt dei comandi, ma non farlo.
Segui le istruzioni qui sotto ed è compatibile con windows 7/8/8.1/10.
ma non ti serve nulla. Basta fare come segue:
- aprire il blocco note
- Copiare e incollare il seguente testo nella finestra del blocco note.
Option Explicit
Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Imposta il percorso della chiave di registro
Path = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
'Valore della chiave di registro
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Ottieni ProductName, ProductID, ProductKey
ProductName = "Nome prodotto: " & objshell.RegRead(Path & "ProductName")
ProductID = "ID prodotto: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Chiave installata: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Mostra messbox se salvare in un file
If vbYes = MsgBox(ProductData & vblf & vblf & "Salva in un file?", vbYesNo + vbQuestion, "BackUp informazioni chiave di Windows") poi
Salva ProductData
Fine se
'Convertire binario in caratteri
Funzione ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, mappe, i, j, corrente, KeyOutput, ultimo, keypart1, inserire
'Controllare se il sistema operativo è Windows 8
isWin8 = (Key(66) 6) e 1
Key(66) = (Key(66) e &HF7) o ((isWin8 e 2) * 4)
i = 24
Mappe = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Corrente+ 1, 1) & KeyOutput
Ultimo = corrente
Loop While i >= 0
If (isWin8 = 1) Poi
keypart1 = Mid(KeyOutput, 2, Ultimo)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Allora KeyOutput = insert & KeyOutput
End If
ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
Funzione finale
'Salvare i dati in un file
Funzione Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Ottieni il nome utente corrente
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Crea un file di testo sul desktop
fName = "C:Users" & UserName & "DesktopWindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
Funzione finale
3. Salva il testo di cui sopra in un file con estensione ".vbs" sul Desktop.
Suggerimento: Per assicurarti di salvare correttamente il file con estensione ".vbs", puoi digitare il suo nome racchiuso tra doppi apici, per esempio, "BackupWindowsKey.vbs".
4. Ora apri il tuo file "BackupWindowsKey.vbs".
5. Voilà, il codice prodotto viene visualizzato sullo schermo!
