Numero unique.Résolu

Question

Bonjour à tous.
Est ce que quelqu'un pourrait me passer le code qui permet sur Visual Basic Express 2005 de recuperer le numero de serie du disque dur d'un ordinateur. Ou tout autre code qui permetterait de recuperer un numero toujours identique pour un meme PC et different pour deux PC.
Merci d'avance.

ShareVB · Accepted Answer

salut,

http://www.codyx.org/snippet_numero-serie-physique-disque-dur-wmi_291.aspx

ShareVB

cs_JMO · Answer

Bonjour,

Ci-dessous, une réponse, mais en vbs avec wmi.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    Wscript.echo "Numéro de Série : " & objOperatingSystem.SerialNumber 
Next
Set objWMIService = Nothing
Set colOperatingSystems = Nothing


jean-marc

Marneus73 · Answer

C'est super merci beaucoup, mais je suis nouveau. Je m'y suis mis depuis une semaine, donc je fais quoi avec ton code ??? 
Merci d'avance.

jmfmarques · Answer

Tu peux également utiliser la fonction GetVolumeInformation de la librairie Kernel32 de l'API de Windows pour extraire le numéro de série du disque dur.

Marneus73 · Answer

Ok merci mais je fais comment ???
Je ne pense pas etre capable de faire des trucs pareils au bout de 6 jours. Je me contente de creer des generateurs pour l'instant.

cs_DARKSIDIOUS · Answer

Au bout de 6 jours, tu demande déjà des choses aussi pointues ?
Tu ferais mieux, je pense, d'abord d'intègrer tout les concepts de vb.net (comprendre les classes du framework, maîtriser les techniques de programmation proposées comme événementielle et objet) avec de vraiment te lancer dans de tels projets !

jmfmarques · Answer

Transpose en VB.Net  ce petit exemple écrit pour VB6 et trouvé sur ALLAPI. Ce devrait être presque pareil, sauf pour le type retourné par la fonction :

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Const MAX_FILENAME_LEN = 256
Public Function DriveSerial(ByVal sDrv As String) As Long
    Dim RetVal As Long
    Dim str As String * MAX_FILENAME_LEN
    Dim str2 As String * MAX_FILENAME_LEN
    Dim a As Long
    Dim b As Long
    Call GetVolumeInformation(sDrv & ":", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
    DriveSerial = RetVal
End Function
Private Sub Form_Load()
    MsgBox "Serial of drive C is " & DriveSerial("C")
End Sub

Un VB.Netiste passant par là te dira les petites modifications à apporter au besoin.

jmfmarques · Answer

Et je souscris totalement à ce que vient d'écrire DARKSIDIOUS dans son message précédent.

Marneus73 · Answer

Les concepts de base, je pense les connaitres. Pas par coeur mais... Je viens de me taper le bouquin de 1200 pages de micro application sur VB avec des exos !

cs_casy · Answer

Les concepts de base, en 6 jours, je doute que tu les connaissent. En tant que developpeur pro, pas encore totalement passé à .net, je t'annonce qu'il te faudra plusieurs semaines pour maitriser un minimum .net. Et encore plus si te connais pas la programmation à la base.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

Marneus73 · Answer

Merci beaucoup pour ta réponse ShareVB.
Quand aux autres:
Je suis d'accord avec vous.Je ne suis absolument pas un pro dans la prog, et je ne le deviendrais surement jamais. La motivation principale pour me mettre à programmer avec visual basic a été le fait que je puisse créer un générateur et un vérificateur de clé CD. Je fais de la conception assistée pas ordinateur (Solidworks pour ceux qui conaissent.) et j'avais besoin de diffuser mes réalisations sans qu'elles soient plagiées !!!
Voila tout est clair.
Merci quand même d'avoir pris le temps de repondre à mon message.

Numero unique.

11 réponses

Votre réponse

Discussions similaires