De: "Laurent Longre" <laurent.longre@free.fr>
Objet: Re: numero de s&eacute;rie
Date : lundi 25 d&eacute;cembre 2000 17:47


Salut Michel,

En fait, je n'ai (encore) mis aucun code concernant la base de registres
sur mon site.

Voici donc comment r&eacute;cup&eacute;rer le num&eacute;ro de s&eacute;rie de Windows. A mon avis,
c'est plus simple et plus sûr que celui d'Excel, parce qu'en principe
(?) pour Windows il ne devrait pas se balader d'une cl&eacute; à une autre au
gr&eacute; des versions.

Private Declare Function RegOpenKeyExA Lib "Advapi32" _
  (ByVal hKey As Long, ByVal lpSubKey As String, _
  ByVal ulOptions As Long, ByVal samDesired As Long, _
  phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "Advapi32" _
  (ByVal hKey As Long) As Long

Declare Function RegQueryValueExA Lib "Advapi32" _
  (ByVal hKey As Long, ByVal lpValueName As String, _
  lpReserved As Long, lpType As Long, _
  ByVal lpData As String, lpcbData As Long) As Long

Private Function NumS&eacute;rie() As String
  Dim hKey As Long, cbData As Long
  RegOpenKeyExA &H80000002, _
    "Software\Microsoft\Windows\CurrentVersion", 0, &HF003F, hKey
  RegQueryValueExA hKey, "ProductId", 0, 1, NumS&eacute;rie, cbData
  NumS&eacute;rie = Space$(cbData - 1)
  RegQueryValueExA hKey, "ProductId", 0, 1, NumS&eacute;rie, cbData
  RegCloseKey hKey
End Function

Sub Test()
  MsgBox "Num&eacute;ro de s&eacute;rie de Windows = " & NumS&eacute;rie
End Sub

Cordialement,

Laurent

msa a &eacute;crit :
> 
> Pour Office 2000 le N° de serie est dans la cl&eacute;
> HKLM\Sotware\Microsoft\Office\9.0\Registration\ProductId
> Pour ce qui est de lire une cl&eacute; tu trouveras ce qu'il faut sur le site de LL
> (http://longre.free.fr)
> Bonne chance
> Joyeux Noel
> Michel
> -----Message d'origine-----
> comment r&eacute;cuperer le num&eacute;ro de s&eacute;rie de windows ou de excel en vba dans le
> but de restreindre l'utilisation du fichier sur une seule machine
> 
> . 