Nouvelle installation
Fermé
houari12
Messages postés
8
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
13 novembre 2013
-
12 nov. 2013 à 00:30
houari12 Messages postés 8 Date d'inscription mercredi 16 octobre 2013 Statut Membre Dernière intervention 13 novembre 2013 - 12 nov. 2013 à 02:41
houari12 Messages postés 8 Date d'inscription mercredi 16 octobre 2013 Statut Membre Dernière intervention 13 novembre 2013 - 12 nov. 2013 à 02:41
A voir également:
- Nouvelle installation
- Darkino nouvelle adresse - Guide
- Installation chromecast - Guide
- Flixcord nouvelle adresse - Guide
- Yggtorrent nouvelle adresse - Guide
- Nouvelle version outlook - Guide
2 réponses
steph810
Messages postés
1633
Date d'inscription
mardi 4 décembre 2012
Statut
Membre
Dernière intervention
30 mars 2024
135
Modifié par steph810 le 12/11/2013 à 01:27
Modifié par steph810 le 12/11/2013 à 01:27
tu doit l'activer avec une clé
sur le bureau click droit nouveau document texte et entre
ce qui suis ensuite enregistre le key.vbs ( vbs en extension )
Set WshShell = CreateObject("WScript.Shell")
key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
digitalId = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name : " & WshShell.RegRead(key & "ProductName") & vbNewLine
ProductId = "Product Id : " & WshShell.RegRead(key & "ProductId") & vbNewLine
ProductKey = "Install Key : " & Converted(digitalId)
ProductId = ProductName & ProductId & ProductKey
boutons = vbYesNo + vbQuestion
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file ?", boutons, "Windows Infos") then
Save ProductId
End if
Function Converted(id)
Const OFFSET = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = id(x + OFFSET) + Cur
id(x + OFFSET) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i - 1
Converted = Mid(Chars, Cur + 1, 1) & Converted
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
Converted = "-" & Converted
End If
Loop While i >= 0
End Function
Function Save(data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
today = FormatDateTime(Date, vbLongDate) & vbnewline
fName = "OS Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline today
f.Writeline data
f.Close
End Function
sur le bureau click droit nouveau document texte et entre
ce qui suis ensuite enregistre le key.vbs ( vbs en extension )
Set WshShell = CreateObject("WScript.Shell")
key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
digitalId = WshShell.RegRead(key & "DigitalProductId")
ProductName = "Product Name : " & WshShell.RegRead(key & "ProductName") & vbNewLine
ProductId = "Product Id : " & WshShell.RegRead(key & "ProductId") & vbNewLine
ProductKey = "Install Key : " & Converted(digitalId)
ProductId = ProductName & ProductId & ProductKey
boutons = vbYesNo + vbQuestion
If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file ?", boutons, "Windows Infos") then
Save ProductId
End if
Function Converted(id)
Const OFFSET = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = id(x + OFFSET) + Cur
id(x + OFFSET) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i - 1
Converted = Mid(Chars, Cur + 1, 1) & Converted
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
Converted = "-" & Converted
End If
Loop While i >= 0
End Function
Function Save(data)
Const ForWRITING = 2
Const asASCII = 0
Dim fso, f, fName, ts
today = FormatDateTime(Date, vbLongDate) & vbnewline
fName = "OS Key.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile fName
Set f = fso.GetFile(fName)
Set f = f.OpenAsTextStream(ForWRITING, asASCII)
f.Writeline today
f.Writeline data
f.Close
End Function
houari12
Messages postés
8
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
13 novembre 2013
12 nov. 2013 à 02:00
12 nov. 2013 à 02:00
Merci beaucoup .... steph810
mais je n'ais pas compris ou je dois mètre le texte ( key.vbs )
j'aimerais que tu m'explique bien je suis vraiment désolé car je suis débutant
et merci
mais je n'ais pas compris ou je dois mètre le texte ( key.vbs )
j'aimerais que tu m'explique bien je suis vraiment désolé car je suis débutant
et merci
steph810
Messages postés
1633
Date d'inscription
mardi 4 décembre 2012
Statut
Membre
Dernière intervention
30 mars 2024
135
12 nov. 2013 à 02:29
12 nov. 2013 à 02:29
creer un fichier texte sur le bureau copie colle ce qu'il y a en gras enregistre le au format .vbs
houari12
Messages postés
8
Date d'inscription
mercredi 16 octobre 2013
Statut
Membre
Dernière intervention
13 novembre 2013
12 nov. 2013 à 02:41
12 nov. 2013 à 02:41
J'ai déjà fait ça et après ..... est ce que je dois laisser le dossier au format .vbs juste sur bureau
