Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Récupération du Product Key de WinXP

Récupération du Product Key de WinXP

5 réponses
Avatar
Thierry
Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC sous XP.
Je souhaite récupérer les products Key de chaque poste étant donné que je
n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?

J'ai bien trouver des exemples pour modifier, mais ce n'est pas ce que je
souhaite !
J'ai trouver un petit script qui me lit la clé de registe ou il se trouve,
mais celui ci est en binaire :o(, le voici:

'---------------------------------------
'Début script

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
'Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents"
strValueName = "OOBETimer"

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName, strValue

For i = lBound(strValue) to uBound(strValue)
strKey = strKey & "-" & strValue(i)
Next

MsgBox strKey

'----------------------------------
'Fin Script


Avez vous une idée pour la conversion ou tout autre technique pour le
récupérer?

--

Amicalement,
Thierry
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
merlin01fr
bonjour

c'est issu du scriptcenter.chm

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colWPA = objWMIService.ExecQuery _
("Select * from Win32_WindowsProductActivation")
For Each objWPA in colWPA
Wscript.Echo "Activation Required: " & objWPA.ActivationRequired
Wscript.Echo "Description: " & objWPA.Description
Wscript.Echo "Product ID: " & objWPA.ProductID
Wscript.Echo "Remaining Evaluation Period: " & _
objWPA.RemainingEvaluationPeriod
Wscript.Echo "Remaining Grace Period: " & objWPA.RemainingGracePeriod
Wscript.Echo "Server Name: " & objWPA.ServerName
Next

tu n'as plus qu'a le mettre dans un script de login et hop :)

cordialement


Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC sous XP.
Je souhaite récupérer les products Key de chaque poste étant donné que je
n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?

J'ai bien trouver des exemples pour modifier, mais ce n'est pas ce que je
souhaite !
J'ai trouver un petit script qui me lit la clé de registe ou il se trouve,
mais celui ci est en binaire :o(, le voici:

'---------------------------------------
'Début script

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
'Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" &
strComputer & "rootdefault:StdRegProv")

strKeyPath = "SOFTWAREMicrosoftWindows NTCurrentVersionWPAEvents"
strValueName = "OOBETimer"

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName, strValue

For i = lBound(strValue) to uBound(strValue)
strKey = strKey & "-" & strValue(i)
Next

MsgBox strKey

'----------------------------------
'Fin Script


Avez vous une idée pour la conversion ou tout autre technique pour le
récupérer?

--

Amicalement,
Thierry


Avatar
scraper
Bonjour Thierry, dans le message
news:
tu disais :

Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC
sous XP. Je souhaite récupérer les products Key de chaque poste étant
donné que je n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?



vois ce script de JCB :-)

http://www.bellamyjc.org/download/vbs/showadm.vbs



--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr

scraper

Avatar
Thierry
Bonjour et merci de te pencher et de plancher sur mon pb,

Le Product ID ici founit uniquement le OEM après saisie du ProductKey qui
est de 5 x 5 caractères.

Merci.
--

Amicalement,
Thierry



bonjour

c'est issu du scriptcenter.chm

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colWPA = objWMIService.ExecQuery _
("Select * from Win32_WindowsProductActivation")
For Each objWPA in colWPA
Wscript.Echo "Activation Required: " & objWPA.ActivationRequired
Wscript.Echo "Description: " & objWPA.Description
Wscript.Echo "Product ID: " & objWPA.ProductID
Wscript.Echo "Remaining Evaluation Period: " & _
objWPA.RemainingEvaluationPeriod
Wscript.Echo "Remaining Grace Period: " & objWPA.RemainingGracePeriod
Wscript.Echo "Server Name: " & objWPA.ServerName
Next

tu n'as plus qu'a le mettre dans un script de login et hop :)

cordialement


Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC sous XP.
Je souhaite récupérer les products Key de chaque poste étant donné que je
n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?

J'ai bien trouver des exemples pour modifier, mais ce n'est pas ce que je
souhaite !
J'ai trouver un petit script qui me lit la clé de registe ou il se trouve,
mais celui ci est en binaire :o(, le voici:

'---------------------------------------
'Début script

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
'Set StdOut = WScript.StdOut

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!" &
strComputer & "rootdefault:StdRegProv")

strKeyPath = "SOFTWAREMicrosoftWindows NTCurrentVersionWPAEvents"
strValueName = "OOBETimer"

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName, strValue

For i = lBound(strValue) to uBound(strValue)
strKey = strKey & "-" & strValue(i)
Next

MsgBox strKey

'----------------------------------
'Fin Script


Avez vous une idée pour la conversion ou tout autre technique pour le
récupérer?

--

Amicalement,
Thierry




Avatar
Jacques93
Bonjour scraper,
Bonjour Thierry, dans le message
news:
tu disais :

Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC
sous XP. Je souhaite récupérer les products Key de chaque poste étant
donné que je n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?




vois ce script de JCB :-)

http://www.bellamyjc.org/download/vbs/showadm.vbs



N'aurais tu pas confondu avec ViewPK, un peu plus loin dans la liste :

http://www.bellamyjc.org/fr/vbsdownload.html#viewpk

--
Cordialement,

Jacques.


Avatar
scraper
Bonjour Jacques93, dans le message
news:%
tu disais :

Bonjour scraper,
Bonjour Thierry, dans le message
news:
tu disais :

Bonjour,

Je suis administrateur de domaine et on vient de me livrer 170 PC
sous XP. Je souhaite récupérer les products Key de chaque poste
étant donné que je n'ai pas une licence Site mais une licence poste.

Existe t'il un moyen pour cela?




vois ce script de JCB :-)

http://www.bellamyjc.org/download/vbs/showadm.vbs



N'aurais tu pas confondu avec ViewPK, un peu plus loin dans la liste :

http://www.bellamyjc.org/fr/vbsdownload.html#viewpk


Mer *** !!!

oui, évidemment :-)

désolé :-(

... et ... merci ;-)




--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr

scraper