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

homepyrof53 · 11 Février 2011

Bonjour,

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

Merci de vos réponses

youky(BJ) · 11 Février 2011

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

Code:

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 · 11 Février 2011

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

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

homepyrof53

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

homepyrof53

XLDnaute Occasionnel

Discussions similaires

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

homepyrof53

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

homepyrof53

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency