자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

Hardware [vb.net] Get Hard Disk Manufacture/ Factory Serial Number

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 15,586회 작성일 19-07-13 09:03

본문

So many question about how to get hard disk physical serial number, and mostly answered by using WMI. And it doesn't solve my problem.

I used to use HDSN code that I got from Planet Source Code when I was still using Visual Basic 6 (VB6). And now with VB.NET I need the same result but I couldn't get it with WMI. Is there any other way to get  Factory Serial Number without WMI?

Finally I got the best solution using DeviceIOControl that I got from a blog named jo0ls' .Net stuff.
And I adapt it to my code to fulfill my need.

af7e370ed561e082d99af4b4b17ed06d_1562976140_9247.png
 

Here are the steps. First I created a windows form project/solution named HDDSerial Number, add a module name SerialNumber.vb and type below codes:
 

Imports System.Runtime.InteropServices

ImportsMicrosoft.Win32.SafeHandles

Imports System.Security

ImportsSystem.ComponentModel

Imports System.Text

Module SerialNumber

  <SuppressUnmanagedCodeSecurity()> _
  Private Class NativeMethods
      <DllImport("kernel32", SetLastError:=True)> _
      Public Shared Function CreateFile( _
       ByVal FileName As String, _
       
ByVal DesiredAccess As Integer, _
       
ByVal ShareMode As Integer, _
       
ByVal SecurityAttributes As IntPtr, _
       
ByVal CreationDisposition As Integer, _
       
ByVal FlagsAndAttributes As Integer, _
       
ByVal hTemplateFile As IntPtr) As SafeFileHandle
      End Function

      <DllImport("kernel32.dll", SetLastError:=True)> _
      Friend Shared Function DeviceIoControl( _
          
ByVal deviceHandle As SafeFileHandle, _
          ByVal controlCode As Integer, _
          ByRef inBuffer As ATA_PASS_THROUGH_EX_WITH_BUFFERS, _
          ByVal inBufferSize As Integer, _
          ByRef outBuffer As ATA_PASS_THROUGH_EX_WITH_BUFFERS, _
          ByVal outBufferSize As Integer, _
          ByRef bytesReturned As Integer, _
          ByVal overlapped1 As IntPtr) As Boolean
      End Function

  End Class


  <StructLayout(LayoutKind.Sequential)> _
  Private Structure ATA_PASS_THROUGH_EX
      Public Length As Short
      
Public AtaFlags As Short
      
Public PathId As Byte
      
Public TargetId As Byte
      
Public Lun As Byte
      
Public ReservedAsUchar As Byte
      
Public DataTransferLength As Integer
      
Public TimeOutValue As Integer
      
Public ReservedAsUlong As Integer
      
Public DataBufferOffset As IntPtr
      <MarshalAs(UnmanagedType.ByValArray, sizeconst:=8)> _
      
Public PreviousTaskFile() As Byte
      <MarshalAs(UnmanagedType.ByValArray, sizeconst:=8)> _
      
Public CurrentTaskFile() As Byte
  End Structure

  <StructLayout(LayoutKind.Sequential)> _
  Private Structure ATA_PASS_THROUGH_EX_WITH_BUFFERS
      Public Apt As ATA_PASS_THROUGH_EX
      <MarshalAs(UnmanagedType.ByValArray, sizeconst:=512)> _
      Public Data() As Byte
  End Structure

  Public Enum HDINFO
      HD_MODEL_NUMBER = 0
      HD_SERIAL_NUMBER = 1
      HD_FIRMWARE_REVISION = 2
  End Enum

  Public Function HDDInfo(ByVal InfoType As HDINFO) As String
      Dim letter As Char = "c"
      Const GenericRead As Integer = &H80000000
      
Const GenericWrite As Integer = &H40000000
      
Const FileShareRead As Integer = 1
      
Const FileShareWrite As Integer = 2
      
Const OpenExisting As Integer = 3
      Dim drivePath As String = String.Concat("\\.\" & letter & ":")
      Using driveHandle As SafeFileHandle = NativeMethods.CreateFile( _
       drivePath, _
       GenericRead Or GenericWrite, _
       FileShareRead Or FileShareWrite, _
       IntPtr.Zero, _
       OpenExisting, _
       0, _
       IntPtr.Zero)
          If driveHandle.IsInvalid Then
             Return "CreateFile ERROR: " & (New Win32Exception).Message
          End If
          Dim apex As New ATA_PASS_THROUGH_EX
          apex.Length = Marshal.SizeOf(apex)

          ' ATA_FLAGS_DATA_IN
          apex.AtaFlags = 2

          ' The command returns a 512 byte package of info.
          apex.DataTransferLength = 512

          apex.TimeOutValue = 10 ' 10 second timeout.
          apex.DataBufferOffset = Marshal.OffsetOf( _
                    GetType(ATA_PASS_THROUGH_EX_WITH_BUFFERS), "Data")
          ' This contains the command we are requesting.
          apex.CurrentTaskFile = New Byte(7) {}
          'the command "IDENTIFY DEVICE"
          apex.CurrentTaskFile(6) = &HEC
          Dim apexb As New ATA_PASS_THROUGH_EX_WITH_BUFFERS
          apexb.Apt = apex
          Dim inBufferSize As Integer = Marshal.SizeOf( _
                   GetType(ATA_PASS_THROUGH_EX_WITH_BUFFERS))
          Dim bytesReturned As Integer
          Const IOCTL_ATA_PASS_THROUGH As Integer = &H4D02C
          Dim result As Boolean = NativeMethods.DeviceIoControl( _
                                  driveHandle, IOCTL_ATA_PASS_THROUGH, _
                                  apexb, inBufferSize, apexb, inBufferSize, _
                                  bytesReturned, IntPtr.Zero)
          If result = False Then
              Return "DeviceIOControl ERROR: " & (New Win32Exception).Message
          End If

          Select 
Case InfoType
              
Case HDINFO.HD_SERIAL_NUMBER
                  
Return GetString(apexb.Data, 20, 20)
              
Case HDINFO.HD_FIRMWARE_REVISION
                  
Return GetString(apexb.Data, 46, 8)
              
Case HDINFO.HD_MODEL_NUMBER
                  Return GetString(apexb.Data, 54, 40)
              Case Else
                  Return Nothing

          End Select
      End Using
  End Function


  Private Function GetString(ByVal bytes() As Byte, _
                             
ByVal offset As Integer, _
                             
ByVal length As IntegerAs String
      ' The strings are slightly weird - endianness? 
      ' If you use ASCII.GetBytes Then Each character 
      ' pair is reversed.

      Dim sb As New StringBuilder()
      For As Integer = offset To offset + length - 1 Step 2
          sb.Append(Chr(bytes(i + 1)))
          sb.Append(Chr(bytes(i)))
      Next
      Return
 RTrim(LTrim(sb.ToString))
  End Function

End Module


Set UI of Form1 Text "Hardisk Serial Number", add 3 labels and 3 TextBoxes. Name textboxes as txtSerialNumber, txtModel, and txtFirmware. 

af7e370ed561e082d99af4b4b17ed06d_1562976180_9737.png

Then type below code:
Imports System.Management

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, _

          ByVal e As EventArgs) Handles MyBase.Load

        Try

            txtSerialNumber.Text = HDDInfo(HDINFO.HD_SERIAL_NUMBER)
            txtModel.Text = HDDInfo(HDINFO.HD_MODEL_NUMBER)
            txtFirmware.Text = HDDInfo(HDINFO.HD_FIRMWARE_REVISION)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

Test run, then here is my PC result: 


Notes: Don't forget to Run as Administrator so application could work properly on Vista, Windows 7, and Windows 8.

Reference:
http://stackoverflow.com/questions/782053/get-hdd-and-not-volume-serial-number-on-vista-ultimate-64-bit
http://jo0ls-dotnet-stuff.blogspot.co.id/2011/02/getting-hard-disk-drive-info-with.html

Click here if you like this article. 

댓글목록

등록된 댓글이 없습니다.