Windows | Windows Server | Active directory | Exchange | SharePoint | SCCM | SCOM | Hyper-V | App-V
ACCUEIL Facebook Twitter Linked In Viadeo Flux RSS
Astuces suivantes

Astuces précédentes
Comment protéger par mot de passe un fichier Excel ?
Renommer une série de fichiers à la volée - Windows 8.1
Astuce pour travailler plus rapidement sur Windows
Mise à jour des produits Microsoft (Février 2015)
Internet: retrouver un onglet fermé par erreur


Publié le : 19/01/2015 00:00:00
Mise à jour le : 22/01/2015 16:49:41
Catégories :


Version imprimable

Auteur(s)

Lionel HARIMANITRA (Membre depuis le 12/01/2015 11:17:25)
Société :
Fonction :
Contactez cet auteur - Affichez les ressources de cet auteur

Retrouver la clé produit de sa version Windows


Tout d'abord, ouvrez le bloc-notes et à l’intérieur de ce bloc-notes, copiez le code suivant:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

Une fois cela fait, vous devez sauvegardez le fichier à l'endroit souhaiter sous l’extension .vbs, par exemple "cléWindows.vbs". Cliquez ensuite sur ce fichier, vous devriez voir apparaître votre clé produit de Windows.