Blog di Eugi GufoEugi Gufo

A volte capitano delle situazioni in cui bisogna scoprire il Windows Product Key del sistema operativo installato sul proprio computer. Io vi posso suggerire due metodi: saranno utili alle persone che non si fidano (spesso ragionevolmente) dei programmi esterni che vengono pubblicizzati per la suddetta operazione.
Il metodo № 1
Il metodo più facile consiste nel cercare il tipico e facilmente riconoscibile adesivo colorato. Qualora il vostro computer fosse un desktop, troverete l’adesivo su uno dei lati della cassa…

… mentre su un notebook lo troverete sotto uno dei coperchi del lato inferiore smontabili o sotto la batteria (qualora quest’ultima fosse staccabile).

Però capitano dei casi in cui l’adesivo non si trova (oppure non avete la voglia di smontare dei coperchi a caso per cercarlo). A questo punto si può provare il secondo metodo.
Il metodo № 2
Il Windows Product Key può essere scoperto con l’aiuto di uno script. Si procede in seguenti quattro passaggi:
1) si apre il Blocco note (si trova in Start → Accessori Windows → Blocco note);
2) si incolla il seguente codice

 Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win8ProductKey = ConvertToKey(DigitalProductId)
strProductKey ="Windows Key: " & Win8ProductKey
Win8ProductID = Win8ProductName & Win8ProductID & strProductKey
MsgBox(Win8ProductKey)
MsgBox(Win8ProductID)
Function ConvertToKey(regKey)
    Const KeyOffset = 52
    isWin8 = (regKey(66) \ 6) And 1
    regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)
    j = 24
    Chars = "BCDFGHJKMPQRTVWXY2346789"
    Do
        Cur = 0
        y = 14
        Do
            Cur = Cur * 256
            Cur = regKey(y + KeyOffset) + Cur
            regKey(y + KeyOffset) = (Cur \ 24)
            Cur = Cur Mod 24
            y = y -1
        Loop While y >= 0
        j = j -1
        winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput
        Last = Cur
    Loop While j >= 0
    If (isWin8 = 1) Then
        keypart1 = Mid(winKeyOutput, 2, Last)
        insert = "N"
        winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
        If Last = 0 Then winKeyOutput = insert & winKeyOutput
    End If
    a = Mid(winKeyOutput, 1, 5)
    b = Mid(winKeyOutput, 6, 5)
    c = Mid(winKeyOutput, 11, 5)
    d = Mid(winKeyOutput, 16, 5)
    e = Mid(winKeyOutput, 21, 5)
    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function

3) il file si salva con un qualsiasi nome, ma con l’estensione .VBS (andiamo su File → Salva con nome → Tutti i file (*.*) → nomequalsiasi.VBS), guardate l’immagine che segue

4) una volta salvato il file come al punto 3, chiudiamo il Blocco note e poi eseguiamo il file appena creato (di solito è sufficiente il doppio click), ottenendo il risultato come sulla immagine che segue

Non dimenticatevi di prendere nota delle informazioni visualizzate. Il vostro Windows Product Key è quella sequenza di 5 blocchi da 5 caratteri (con tante lettere maiuscole) separati dai trattini (VWXYZ-VWXYZ-VWXYZ-VWXYZ-VWXYZ).
Come potete vedere, si può benissimo fare a meno dei programmi esterni o delle operazioni strane con il CMD.
BONUS
Le persone che hanno acquistato il Windows separatamente dal computer (su una USB, su un CD o in qualche altro modo) possono cercare il Windows Product Key sulla documentazione fornita con il prodotto acquistato.
Purtroppo, non se qualcuno dei produttori o venditori dei computer con il Windows preinstallato alleghi il Windows Product Key anche alla documentazione cartacea del computer stesso…