INFORMATION DISQUE DUR

Commentaire de Renfield le 29/11/2004 08:53:59 administrateur CS

NT4 aussi....

tout OS visiblement...

Commentaire de Nocturne le 18/01/2005 02:38:44

C'est vrai, il manque qq commentaires mais actuellement j'ai pas trop le temps de rajouter des commentaires vu que je bosse sur un gros projet. De plus comme je l'ai indiqué, ce code n'est pas a 100% de moi. J'ai juste fait qq modifications a vous maintenant de l'améliorer.
Il est posté ici juste pour information car beaucoup d'entre vous cherche a recupérer le numéro du disque.
Bonne Prog.

Commentaire de Nocturne le 08/04/2005 11:56:44

Salut gui636,

Actuellement ce code donne le numéro du 1er disque dur ("c:\"), PRIMARY_MASTER (0).

Il est tout a fait possible après qq modifications de récupérer les numéros des autres disques, PRIMARY_SLAVE (1), SECONDARY_MASTER (2) ou SECONDARY_SLAVE (3).

Nocturne

Commentaire de adil2006 le 27/02/2006 00:32:44

Merci Nocturne de poster ce joli programme...c trés utile..
Bn courage.

Commentaire de Nocturne le 08/05/2006 16:50:15

Si cela ne fonctionne pas sur ton 2eme ordi, c'est peut etre que le disque dur installé sur ta machine n'utilise pas la technologie Smart.

Commentaire de docjokos le 03/07/2007 14:12:33

Bonjour, merci pour ce programme bien utile... j'ai toutefois une demande : le programme se lance-t-il forcément dans une fenêtre pour s'exécuter ? son utilisation en ligne de commande (genre pour récupérer le résultat avec un script) est-elle possible ?

Commentaire de Sinsitrus le 13/08/2007 21:00:12

Salut !
Et comment on peux modifier ce numéro de série ?
Il s'avère utile pour des ligiciels qui enregistre ce numéro et en veut plus s'installer même après mille formatage.

Commentaire de CmTop le 01/12/2007 15:51:13

SUPERBE Prog, mais ne fonctionne pas avec SATA 150, ET RAID

Commentaire de Renfield le 09/05/2008 04:25:00 administrateur CS

oui, bien sur

Commentaire de Nocturne le 12/05/2008 12:29:31

C'est peut-être que ton disque n'utilise pas la technologie Smart???

Commentaire de Nocturne le 12/05/2008 19:48:57

=>Nourwahiba,
Self-Monitoring, Analysis, and Reporting Technology, ou S.M.A.R.T., (littéralement Technologie d'Auto-surveillance, d'Analyse et de Rapport) est un système de surveillance du disque dur d'un ordinateur.

Je ne suis pas spécialiste mais normalement tout les disques durs utilisent S.M.A.R.T., alors je ne pense pas que cela soit ton problème.

Il y a peut-être un problème de compatibilité avec ta carte mère???

Il faut aussi etre administrateur de sa machine.

Je n'ai pas trop d'idée.
Bonne recherche,

Commentaire de nourwahiba le 13/05/2008 10:53:44

bonjour
merci pour vous Nocturne   et CmTop  pour ces informations
j'ai trouvé une solution trés imoprtante sur le net qui donne le numéro de serie logique( de la partition) et le numero materiel( physique) qui ne change pas meme si on formate notre disque dure et les voila les deux procedures pour ceux qui les cherche!!!!
il faut avoir une forme, 2 textbox  text1 et text2 , 1label( label1)

sur text1 ----------------> n de serie logique
sur text2----------------->n de série materiel
vous copiez ce code sur la partie code de la forme



Private Declare Function GetVolumeInformation Lib "kernel32.dll" _
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 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
                                       (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
                                      (ByVal hwnd As Long, ByVal nIndex As Long, _
                                       ByVal dwNewLong As Long) As Long


Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = 3
Private Const CREATE_NEW = 1
Private Const INVALID_HANDLE_VALUE = -1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const IDENTIFY_BUFFER_SIZE = 512
Private Const OUTPUT_DATA_SIZE = IDENTIFY_BUFFER_SIZE + 16

'GETVERSIONOUTPARAMS contains the data returned
'from the Get Driver Version function
Private Type GETVERSIONOUTPARAMS
   bVersion       As Byte 'Binary driver version.
   bRevision      As Byte 'Binary driver revision
   bReserved      As Byte 'Not used
   bIDEDeviceMap  As Byte 'Bit map of IDE devices
   fCapabilities  As Long 'Bit mask of driver capabilities
   dwReserved(3)  As Long 'For future use
End Type

'IDE registers
Private Type IDEREGS
   bFeaturesReg     As Byte 'Used for specifying SMART "commands"
   bSectorCountReg  As Byte 'IDE sector count register
   bSectorNumberReg As Byte 'IDE sector number register
   bCylLowReg       As Byte 'IDE low order cylinder value
   bCylHighReg      As Byte 'IDE high order cylinder value
   bDriveHeadReg    As Byte 'IDE drive/head register
   bCommandReg      As Byte 'Actual IDE command
   bReserved        As Byte 'reserved for future use - must be zero
End Type

'SENDCMDINPARAMS contains the input parameters for the
'Send Command to Drive function
Private Type SENDCMDINPARAMS
   cBufferSize     As Long     'Buffer size in bytes
   irDriveRegs     As IDEREGS  'Structure with drive register values.
   bDriveNumber    As Byte     'Physical drive number to send command to (0,1,2,3).
   bReserved(2)    As Byte     'Bytes reserved
   dwReserved(3)   As Long     'DWORDS reserved
   bBuffer()      As Byte      'Input buffer.
End Type

'Valid values for the bCommandReg member of IDEREGS.
Private Const IDE_ID_FUNCTION = &HEC            'Returns ID sector for ATA.
Private Const IDE_EXECUTE_SMART_FUNCTION = &HB0 'Performs SMART cmd.
                                                'Requires valid bFeaturesReg,
                                                'bCylLowReg, and bCylHighReg

'Cylinder register values required when issuing SMART command
Private Const SMART_CYL_LOW = &H4F
Private Const SMART_CYL_HI = &HC2

'Status returned from driver
Private Type DRIVERSTATUS
   bDriverError  As Byte          'Error code from driver, or 0 if no error
   bIDEStatus    As Byte          'Contents of IDE Error register
                                  'Only valid when bDriverError is SMART_IDE_ERROR
   bReserved(1)  As Byte
   dwReserved(1) As Long
End Type

Private Type IDSECTOR
   wGenConfig                 As Integer
   wNumCyls                   As Integer
   wReserved                  As Integer
   wNumHeads                  As Integer
   wBytesPerTrack             As Integer
   wBytesPerSector            As Integer
   wSectorsPerTrack           As Integer
   wVendorUnique(2)           As Integer
   sSerialNumber(19)          As Byte
   wBufferType                As Integer
   wBufferSize                As Integer
   wECCSize                   As Integer
   sFirmwareRev(7)            As Byte
   sModelNumber(39)           As Byte
   wMoreVendorUnique          As Integer
   wDoubleWordIO              As Integer
   wCapabilities              As Integer
   wReserved1                 As Integer
   wPIOTiming                 As Integer
   wDMATiming                 As Integer
   wBS                        As Integer
   wNumCurrentCyls            As Integer
   wNumCurrentHeads           As Integer
   wNumCurrentSectorsPerTrack As Integer
   ulCurrentSectorCapacity    As Long
   wMultSectorStuff           As Integer
   ulTotalAddressableSectors  As Long
   wSingleWordDMA             As Integer
   wMultiWordDMA              As Integer
   bReserved(127)             As Byte
End Type

'Structure returned by SMART IOCTL commands
Private Type SENDCMDOUTPARAMS
  cBufferSize   As Long         'Size of Buffer in bytes
  DRIVERSTATUS  As DRIVERSTATUS 'Driver status structure
  bBuffer()    As Byte          'Buffer of arbitrary length for data read from drive
End Type

'Vendor specific feature register defines
'for SMART "sub commands"
Private Const SMART_ENABLE_SMART_OPERATIONS = &HD8

'Status Flags Values
Public Enum STATUS_FLAGS
   PRE_FAILURE_WARRANTY = &H1
   ON_LINE_COLLECTION = &H2
   PERFORMANCE_ATTRIBUTE = &H4
   ERROR_RATE_ATTRIBUTE = &H8
   EVENT_COUNT_ATTRIBUTE = &H10
   SELF_PRESERVING_ATTRIBUTE = &H20
End Enum

'IOCTL commands
Private Const DFP_GET_VERSION = &H74080
Private Const DFP_SEND_DRIVE_COMMAND = &H7C084
Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088

Private Type ATTR_DATA
   AttrID As Byte
   AttrName As String
   AttrValue As Byte
   ThresholdValue As Byte
   WorstValue As Byte
   StatusFlags As STATUS_FLAGS
End Type

Private Type DRIVE_INFO
   bDriveType As Byte
   SerialNumber As String
   Model As String
   FirmWare As String
   Cilinders As Long
   Heads As Long
   SecPerTrack As Long
   BytesPerSector As Long
   BytesperTrack As Long
   NumAttributes As Byte
   Attributes() As ATTR_DATA
End Type

Private Enum IDE_DRIVE_NUMBER
   PRIMARY_MASTER
  
End Enum

Private Declare Function CreateFile Lib "kernel32" _
   Alias "CreateFileA" _
  (ByVal lpFileName As String, _
   ByVal dwDesiredAccess As Long, _
   ByVal dwShareMode As Long, _
   lpSecurityAttributes As Any, _
   ByVal dwCreationDisposition As Long, _
   ByVal dwFlagsAndAttributes As Long, _
   ByVal hTemplateFile As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
  (ByVal hObject As Long) As Long
  
Private Declare Function DeviceIoControl Lib "kernel32" _
  (ByVal hDevice As Long, _
   ByVal dwIoControlCode As Long, _
   lpInBuffer As Any, _
   ByVal nInBufferSize As Long, _
   lpOutBuffer As Any, _
   ByVal nOutBufferSize As Long, _
   lpBytesReturned As Long, _
   lpOverlapped As Any) As Long
  
Private Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (hpvDest As Any, _
   hpvSource As Any, _
   ByVal cbCopy As Long)
  
Private Type OSVERSIONINFO
   OSVSize As Long
   dwVerMajor As Long
   dwVerMinor As Long
   dwBuildNumber As Long
   PlatformID As Long
   szCSDVersion As String * 128
End Type

Private Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (LpVersionInformation As OSVERSIONINFO) As Long

Private Sub Form_Load()

'
    SetWindowLong hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) Xor WS_MAXIMIZEBOX
    SetWindowLong hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) Xor WS_MINIMIZEBOX
'
'
'

    Dim di As DRIVE_INFO
   Dim drvNumber As Long
   For drvNumber = PRIMARY_MASTER To QUARTIARY_SLAVE
    di = GetDriveInfo(drvNumber)
      
          
      With di
      

Text2.Text = Trim$(.SerialNumber)

Label1.Caption = "N° de série du disque dur"
Text1.Text = NoSerieDisque("D:\")
            
      End With
      
   Next


End Sub

  
Private Function GetDriveInfo(drvNumber As IDE_DRIVE_NUMBER) As DRIVE_INFO
    
   Dim hDrive As Long
   Dim di As DRIVE_INFO
  
   hDrive = SmartOpen(drvNumber)
  
   If hDrive <> INVALID_HANDLE_VALUE Then
  
      If SmartGetVersion(hDrive) = True Then
      
         With di
            .bDriveType = 0
            .NumAttributes = 0
            ReDim .Attributes(0)
            .bDriveType = 1
         End With
        
         If SmartCheckEnabled(hDrive, drvNumber) Then
            
            If IdentifyDrive(hDrive, IDE_ID_FUNCTION, drvNumber, di) = True Then
        
               GetDriveInfo = di
              
            End If   'IdentifyDrive
         End If   'SmartCheckEnabled
      End If   'SmartGetVersion
   End If   'hDrive <> INVALID_HANDLE_VALUE
  
   CloseHandle hDrive
  
End Function


Private Function IdentifyDrive(ByVal hDrive As Long, _
                               ByVal IDCmd As Byte, _
                               ByVal drvNumber As IDE_DRIVE_NUMBER, _
                               di As DRIVE_INFO) As Boolean
    
  'Function: Send an IDENTIFY command to the drive
  'drvNumber = 0-3
  'IDCmd = IDE_ID_FUNCTION or IDE_ATAPI_ID
   Dim SCIP As SENDCMDINPARAMS
   Dim IDSEC As IDSECTOR
   Dim bArrOut(OUTPUT_DATA_SIZE - 1) As Byte
   Dim cbBytesReturned As Long
  
   With SCIP
      .cBufferSize = IDENTIFY_BUFFER_SIZE
      .bDriveNumber = CByte(drvNumber)
        
      With .irDriveRegs
         .bFeaturesReg = 0
         .bSectorCountReg = 1
         .bSectorNumberReg = 1
         .bCylLowReg = 0
         .bCylHighReg = 0
         .bDriveHeadReg = &HA0 'compute the drive number
         If Not IsWinNT4Plus Then
            .bDriveHeadReg = .bDriveHeadReg Or ((drvNumber And 1) * 16)
         End If
         'the command can either be IDE
         'identify or ATAPI identify.
         .bCommandReg = CByte(IDCmd)
      End With
   End With
  
   If DeviceIoControl(hDrive, _
                      DFP_RECEIVE_DRIVE_DATA, _
                      SCIP, _
                      Len(SCIP) - 4, _
                      bArrOut(0), _
                      OUTPUT_DATA_SIZE, _
                      cbBytesReturned, _
                      ByVal 0&) Then
                      
      CopyMemory IDSEC, bArrOut(16), Len(IDSEC)

      di.Model = StrConv(SwapBytes(IDSEC.sModelNumber), vbUnicode)
      di.SerialNumber = StrConv(SwapBytes(IDSEC.sSerialNumber), vbUnicode)
      
      IdentifyDrive = True
      
    End If
    
End Function


Private Function IsWinNT4Plus() As Boolean

  'returns True if running Windows NT4 or later
   Dim osv As OSVERSIONINFO

   osv.OSVSize = Len(osv)

   If GetVersionEx(osv) = 1 Then
  
      IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And _
                     (osv.dwVerMajor >= 4)

   End If

End Function


Private Function SmartCheckEnabled(ByVal hDrive As Long, _
                                   drvNumber As IDE_DRIVE_NUMBER) As Boolean
  
  'SmartCheckEnabled - Check if SMART enable
  'FUNCTION: Send a SMART_ENABLE_SMART_OPERATIONS command to the drive
  'bDriveNum = 0-3
   Dim SCIP As SENDCMDINPARAMS
   Dim SCOP As SENDCMDOUTPARAMS
   Dim cbBytesReturned As Long
  
   With SCIP
  
      .cBufferSize = 0
      
      With .irDriveRegs
           .bFeaturesReg = SMART_ENABLE_SMART_OPERATIONS
           .bSectorCountReg = 1
           .bSectorNumberReg = 1
           .bCylLowReg = SMART_CYL_LOW
           .bCylHighReg = SMART_CYL_HI

           .bDriveHeadReg = &HA0
            If Not IsWinNT4Plus Then
               .bDriveHeadReg = .bDriveHeadReg Or ((drvNumber And 1) * 16)
            End If
           .bCommandReg = IDE_EXECUTE_SMART_FUNCTION
          
       End With
      
       .bDriveNumber = drvNumber
      
   End With
  
   SmartCheckEnabled = DeviceIoControl(hDrive, _
                                      DFP_SEND_DRIVE_COMMAND, _
                                      SCIP, _
                                      Len(SCIP) - 4, _
                                      SCOP, _
                                      Len(SCOP) - 4, _
                                      cbBytesReturned, _
                                      ByVal 0&)
End Function


Private Function SmartGetVersion(ByVal hDrive As Long) As Boolean
  
   Dim cbBytesReturned As Long
   Dim GVOP As GETVERSIONOUTPARAMS
  
   SmartGetVersion = DeviceIoControl(hDrive, _
                                     DFP_GET_VERSION, _
                                     ByVal 0&, 0, _
                                     GVOP, _
                                     Len(GVOP), _
                                     cbBytesReturned, _
                                     ByVal 0&)
  
End Function


Private Function SmartOpen(drvNumber As IDE_DRIVE_NUMBER) As Long

  'Open SMART to allow DeviceIoControl
  'communications and return SMART handle

   If IsWinNT4Plus() Then
      
      SmartOpen = CreateFile("\\.\PhysicalDrive" & CStr(drvNumber), _
                             GENERIC_READ Or GENERIC_WRITE, _
                             FILE_SHARE_READ Or FILE_SHARE_WRITE, _
                             ByVal 0&, _
                             OPEN_EXISTING, _
                             0&, _
                             0&)

   Else
      
      SmartOpen = CreateFile("\\.\SMARTVSD", _
                              0&, 0&, _
                              ByVal 0&, _
                              CREATE_NEW, _
                              0&, _
                              0&)
   End If
  
End Function


Private Function SwapBytes(b() As Byte) As Byte()
  
  'Note: VB4-32 and VB5 do not support the
  'return of arrays from a function. For
  'developers using these VB versions there
  'are two workarounds to this restriction:
  '
  '1) Change the return data type ( As Byte() )
  '   to As Variant (no brackets). No change
  '   to the calling code is required.
  '
  '2) Change the function to a sub, remove
  '   the last line of code (SwapBytes = b()),
  '   and take advantage of the fact the
  '   original byte array is being passed
  '   to the function ByRef, therefore any
  '   changes made to the passed data are
  '   actually being made to the original data.
  '   With this workaround the calling code
  '   also requires modification:
  '
  '      di.Model = StrConv(SwapBytes(IDSEC.sModelNumber), vbUnicode)
  '
  '   ... to ...
  '
  '      Call SwapBytes(IDSEC.sModelNumber)
  '      di.Model = StrConv(IDSEC.sModelNumber, vbUnicode)
  
   Dim bTemp As Byte
   Dim cnt As Long

   For cnt = LBound(b) To UBound(b) Step 2
      bTemp = b(cnt)
      b(cnt) = b(cnt + 1)
      b(cnt + 1) = bTemp
   Next cnt
      
   SwapBytes = b()
      
End Function

Private Sub Command1_Click()
    End
End Sub
'**********************


Function NoSerieDisque(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Trucnull As Long
Dim Strnul As String
Res = GetVolumeInformation(strDrive, Strnul, _
Trucnull, SerialNum, Trucnull, Trucnull, Strnul, Trucnull)
Me.Caption = strDrive
NoSerieDisque = SerialNum
End Function
'**********************

bon courage  

Commentaire de CmTop le 24/11/2008 22:03:15

Fais une recherche sur l'utilisation des WMI, tu pourras egalement avoir les information du Bios, le numéro de série de l'ordinateur quant par exemple c'est une PB ou autre.

Commentaire de CmTop le 01/02/2009 14:48:28

Comme je l'ai déjà dit, il faut utiliser le WMI de Microsoft pour avoir toutes les infos sur le matériel, les proprièté etc...

http://fr.wikipedia.org/wiki/Windows_Management_Instrumentation

http://laurent-dardenne.developpez.com/articles/wmi-p1/

Commentaire de CmTop le 02/02/2009 12:52:34

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

Commentaire de Renfield le 02/02/2009 13:21:59 administrateur CS

du grand n'importe quoi, ce script, Moogliber

la syntaxe est incorrecte...

ton code pourrait s'écrire :

Dim oItem As Object
    With GetObject("winmgmts:\\.\root\cimv2")
        For Each oItem In .ExecQuery("Select * from Win32_BIOS", , 48)
            MsgBox oItem.SerialNumber
        Next oItem
    End With

d'autre part, une lecture de la doc aurait pu t'aider a t'apercevoir que les infos que tu demandes ne concernent pas du tout le disque dur (lequel ?) mais le BIOS...

http://msdn.microsoft.com/en-us/library/aa394077(VS.85).aspx

Commentaire de Renfield le 02/02/2009 15:50:52 administrateur CS

j'ai simplement nettoyé ton code.
Il renvoie donc toujours le numéro du BIOS.

Tu souhaites le numéro de quel disque ?

Commentaire de CmTop le 02/02/2009 15:56:29

Sachant également que dans le Bios tu peux trouver le numéro de série de l'ordinateur (exemple PB) qui peut être utile pour protéger un programme afin qu'il ne fonctionne que sur un ordi.Série Ordi + Série DD = protection

Commentaire de moogliber le 02/02/2009 16:16:13

C'est pour ça que je voudrais pouvoir lire le numéro physique du dd (celui la n'est pas modifiable), en plus si l'utilisateur formate, il retrouve le même numéro.
Le pb c'est que je ne trouve pas les fonnctions qui permettent d'assurer la lecture de ce n° sur tous les PC (même une lecture sur 90% des PC ça me suffirait).

Commentaire de CmTop le 02/02/2009 17:01:26

Bien sur qu il y a toujours moyen de contourner une protection et sans être un hacker. Mais cela freine et peut d'écourager, c'est tout.

Commentaire de Renfield le 03/02/2009 09:47:37 administrateur CS

Je suis parvenu à récupérer un Win32_DiskDrive en spécifiant la lettre du lecteur logique.

néanmoins, le SerialNumber n'est pas forcément exploitable :

http://msdn.microsoft.com/en-us/library/aa394132(VS.85).aspx

SerialNumber
Data type: string
Access type: Read-only
Number allocated by the manufacturer to identify the physical media.

Example: WD-WM3493798728

Windows Server 2003, Windows XP, Windows 2000, and Windows NT 4.0:  This property is not available.

Commentaire de moogliber le 03/02/2009 14:00:54

Merci Renfield
Je vais regarder tout ça attentivement