Récupérer le numéro de série de windows

[homepyrof53]

Bonjour,

Je souhaiterai récupérer le numéro de série de windows par macro

Merci de vos réponses

 

[youky(BJ)]

Re : Récupérer le numéro de série de windows

Bonjour,
Attention ce code fonctionne avec Windows XP mais ne fonctionne pas avec Win7
Bruno

Function NumSerieWin()
Dim Cle, WSH As Object
  Cle = "HKLM\Software\Microsoft\Windows\CurrentVersion\ProductID"
  Set WSH = CreateObject("WScript.Shell")
  NumSerieWin = WSH.regread(Cle)
End Function

Sub Test()
MsgBox NumSerieWin
End Sub

 

[homepyrof53]

Re : Récupérer le numéro de série de windows

Mercy youky

Je vais m'absenter un peu dès que possible je vais faire des tests
Pour information, cela doit fonctionner sur XP vista win7.
J'en demande peut être un peu trop

encore merci