Hard disk serial number

Hi floks,

I want the program in vb 6.0 which reads the hard disk serial number from multiple hard disks present in the machine.

Many thanks

Kamlesh Lalwani
dotsandcomsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

MatthiasVanceCommented:
There is sample code provided here, I hope it helps you out:
http://www.dreamincode.net/forums/showtopic16038.htm

Kind regards,

Matthias Vance
0
Shanmuga SundaramDirector of Software EngineeringCommented:
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 Sub Form_Load()
Dim nRet As Long
Dim VolName As String
Dim MaxCompLen As Long
Dim VolFlags As Long
Dim VolFileSys As String

VolName = Space$(256)
VolFileSys = Space$(256)

nRet = GetVolumeInformation("C:\", VolName, Len(VolName), lngVolumeID, MaxCompLen, VolFlags, VolFileSys, Len(VolFileSys))
MsgBox lngVolumeID ' Serial Number
nRet = GetVolumeInformation("D:\", VolName, Len(VolName), lngVolumeID, MaxCompLen, VolFlags, VolFileSys, Len(VolFileSys))
MsgBox lngVolumeID ' Serial Number
End Sub
0
MatthiasVanceCommented:
GetVolumeInformation:
"This function returns the volume serial number that the operating system assigns when a hard disk is formatted. To programmatically obtain the hard disk's serial number that the manufacturer assigns, use the Windows Management Instrumentation (WMI) Win32_PhysicalMedia property SerialNumber."

I wasn't sure whether you needed the first or second solution.

Kind regards,

Matthias Vance
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

EDDYKTCommented:


Private Sub Command1_Click()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk", , 48)
For Each objItem In colItems
    Debug.Print "Access: " & objItem.Access
    Debug.Print "Availability: " & objItem.Availability
    Debug.Print "BlockSize: " & objItem.BlockSize
    Debug.Print "Caption: " & objItem.Caption
    Debug.Print "Compressed: " & objItem.Compressed
    Debug.Print "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode
    Debug.Print "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig
    Debug.Print "CreationClassName: " & objItem.CreationClassName
    Debug.Print "Description: " & objItem.Description
    Debug.Print "DeviceID: " & objItem.DeviceID
    Debug.Print "DriveType: " & objItem.DriveType
    Debug.Print "ErrorCleared: " & objItem.ErrorCleared
    Debug.Print "ErrorDescription: " & objItem.ErrorDescription
    Debug.Print "ErrorMethodology: " & objItem.ErrorMethodology
    Debug.Print "FileSystem: " & objItem.FileSystem
    Debug.Print "FreeSpace: " & objItem.FreeSpace
    Debug.Print "InstallDate: " & objItem.InstallDate
    Debug.Print "LastErrorCode: " & objItem.LastErrorCode
    Debug.Print "MaximumComponentLength: " & objItem.MaximumComponentLength
    Debug.Print "MediaType: " & objItem.MediaType
    Debug.Print "Name: " & objItem.Name
    Debug.Print "NumberOfBlocks: " & objItem.NumberOfBlocks
    Debug.Print "PNPDeviceID: " & objItem.PNPDeviceID
    Debug.Print "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities
    Debug.Print "PowerManagementSupported: " & objItem.PowerManagementSupported
    Debug.Print "ProviderName: " & objItem.ProviderName
    Debug.Print "Purpose: " & objItem.Purpose
    Debug.Print "Size: " & objItem.Size
    Debug.Print "Status: " & objItem.Status
    Debug.Print "StatusInfo: " & objItem.StatusInfo
    Debug.Print "SupportsFileBasedCompression: " & objItem.SupportsFileBasedCompression
    Debug.Print "SystemCreationClassName: " & objItem.SystemCreationClassName
    Debug.Print "SystemName: " & objItem.SystemName
    Debug.Print "VolumeName: " & objItem.VolumeName
    Debug.Print "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next


End Sub
0
Shanmuga SundaramDirector of Software EngineeringCommented:
I have modified EDDYKT code. Since dotsandcoms needs vb 6.0 which reads the hard disk serial number from multiple hard disks present in the machine, I have altered the code to store the drive caption and its serial number in a file and open it.

Private Sub Command1_Click()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk", , 48)
Open "C:\ss.txt" For Output As #1
For Each objItem In colItems
    Print #1, "VolumeName: " & objItem.Caption & " Drive"
    Print #1, "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next
Close #1
Shell "notepad C:\ss.txt", vbMaximizedFocus
End Sub
0
dotsandcomsAuthor Commented:
I found the solutions myself by using following code :

Private Sub Combo1_Click()
   Dim drv_info As DRIVE_INFO
   Dim sInfo As String
   Dim sInfoAttr As String
   drv_info = GetDriveInfo(Combo1.ListIndex)
   sInfo = Combo1.List(Combo1.ListIndex)
   sInfo = sInfo & ": " & vbCrLf
   Text1 = ""
   With drv_info
       If .bDriveType = 0 Then sInfo = sInfo & "[Not present]"
       If .bDriveType = 2 Then sInfo = sInfo & "[ATAPI drive - info not available]"
       If .bDriveType = 1 Then
          sInfo = sInfo & "[IDE drive]" & vbCrLf
          sInfo = sInfo & "Model: " & Trim(.Model) & vbCrLf
          sInfo = sInfo & "FirmWare: " & Trim(.FirmWare) & vbCrLf
          sInfo = sInfo & "SerialNumber: " & Trim(.SerialNumber) & vbCrLf
          newid = Trim(.SerialNumber)
          sInfo = sInfo & "Cilinders: " & .Cilinders & vbCrLf
          sInfo = sInfo & "Heads: " & .Heads & vbCrLf
          sInfo = sInfo & "SecPerTrack: " & .SecPerTrack & vbCrLf
          sInfoAttr = Format("Attribute Name", String(24, "@") & "!") & Format("Value", String(7, "@") & "!") & Format("Threshold", String(11, "@") & "!") & Format("WorstValue", String(12, "@") & "!") & "Status" & vbCrLf
          sInfoAttr = sInfoAttr & String(60, "-") & vbCrLf
          For i = 1 To .NumAttributes - 1
              sInfoAttr = sInfoAttr & Format(.Attributes(i).AttrName, String(25, "@") & "!") & Format(.Attributes(i).AttrValue, String(3, "@")) & vbTab & Space(2) & Format(.Attributes(i).ThresholdValue, String(3, "@")) & vbTab & Format(.Attributes(i).WorstValue, String(8, "@")) & vbTab & Format("&H" & Hex(.Attributes(i).StatusFlags), String(4, "@"))
'              If (.Attributes(i).StatusFlags And 1) = 1 Then sInfoAttr = sInfoAttr & " (bad health)"
              sInfoAttr = sInfoAttr & vbNewLine
          Next i
          Text1 = sInfoAttr
       End If
   End With
   Label1 = sInfo
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.