Solved

Hard disk serial number

Posted on 2008-10-21
6
1,887 Views
Last Modified: 2013-12-26
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
0
Comment
Question by:dotsandcoms
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 8

Expert Comment

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

Kind regards,

Matthias Vance
0
 
LVL 17

Expert Comment

by:Shanmuga Sundaram
ID: 22866027
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
 
LVL 8

Expert Comment

by:MatthiasVance
ID: 22867249
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
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 26

Expert Comment

by:EDDYKT
ID: 22877882


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
 
LVL 17

Expert Comment

by:Shanmuga Sundaram
ID: 22878025
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
 

Accepted Solution

by:
dotsandcoms earned 0 total points
ID: 22957193
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

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
This article is an update and follow-up of my previous article:   Storage 101: common concepts in the IT enterprise storage This time, I expand on more frequently used storage concepts.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question