VB 6.0 - How can we find Hard Disk Drive serial number using vb6.0

Private Sub Command4_Click()
         Dim fso As New FileSystemObject
         Dim mydrive As Drive
         Dim path As String
         'Initialize path.
         path = "C:\"
         'Get object.
         Set mydrive = fso.GetDrive(path)
         'Check for success.
         MsgBox mydrive.DriveLetter 'displays "C"
      End Sub

The Code

First, let's create a class to store information about a hard drive:

class HardDrive
{
 private string model = null;
 private string type = null;
 private string serialNo = null; 
 public string Model
 {
  get {return model;}
  set {model = value;}
 } 
 public string Type
 {
  get {return type;}
  set {type = value;}
 } 
 public string SerialNo
 {
  get {return serialNo;}
  set {serialNo = value;}
 }
}

Next, add a reference to your project. Scroll down to System.Management under ComponentName. This reference is not provided by default, so you need to add it.

Add a "using System.Management;" at the top of your source code. System.Management allows us to access WMI objects. Put simply, WMI contains a lot information about your hardware.

Now there's a problem: the hard drive model is found in the Win32_DiskDrive class and the serial number is found in the Win32_PhysicalMedia class. Thus, we need to query twice and integrate the information into our HardDrive class.

Let's first create an ArrayList to store our HardDrive objects: ArrayList hdCollection = new ArrayList();. Next, we query the Win32_DiskDrive class:

   ManagementObjectSearcher searcher = new
    ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive");

   foreach(ManagementObject wmi_HD in searcher.Get())
   {
    HardDrive hd = new HardDrive();
    hd.Model = wmi_HD["Model"].ToString();
    hd.Type  = wmi_HD["InterfaceType"].ToString(); 
    hdCollection.Add(hd);
   }

Now we need to extract the serial number from the Win32_PhysicalMedia class:

   searcher = new
    ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia");
   
   int i = 0;
   foreach(ManagementObject wmi_HD in searcher.Get())
   {
    // get the hard drive from collection
    // using index
    HardDrive hd = (HardDrive)hdCollection[i];

    // get the hardware serial no.
    if (wmi_HD["SerialNumber"] == null)
     hd.SerialNo = "None";
    else
     hd.SerialNo = wmi_HD["SerialNumber"].ToString();
    
    ++i;
   }

Luckily, the WMI objects from Win32_DiskDrive are in the same order as from Win32_PhysicalMedia, so the simple code above works. Otherwise, we will have to match them using their unique DeviceID. Start a thread in this article if you think Win32_DiskDrive objects are not the same order as Win32_PhysicalMedia objects returned.

We are done! Now we display our hard drive's information:

   // Display available hard drives
   foreach(HardDrive hd in hdCollection)
   {
    Console.WriteLine("Model\t\t: " + hd.Model);
    Console.WriteLine("Type\t\t: " + hd.Type);
    Console.WriteLine("Serial No.\t: " + hd.SerialNo);
    Console.WriteLine();
   }

class HardDrive
{
 private string model = null;
 private string type = null;
 private string serialNo = null; 
 public string Model
 {
  get {return model;}
  set {model = value;}
 } 
 public string Type
 {
  get {return type;}
  set {type = value;}
 } 
 public string SerialNo
 {
  get {return serialNo;}
  set {serialNo = value;}
 }
}
ManagementObjectSearcher searcher = new
    ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive");

   foreach(ManagementObject wmi_HD in searcher.Get())
   {
    HardDrive hd = new HardDrive();
    hd.Model = wmi_HD["Model"].ToString();
    hd.Type  = wmi_HD["InterfaceType"].ToString(); 
    hdCollection.Add(hd);

   }
searcher = new
    ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia");
   
   int i = 0;
   foreach(ManagementObject wmi_HD in searcher.Get())
   {
    // get the hard drive from collection
    // using index
    HardDrive hd = (HardDrive)hdCollection[i];

    // get the hardware serial no.
    if (wmi_HD["SerialNumber"] == null)
     hd.SerialNo = "None";
    else
     hd.SerialNo = wmi_HD["SerialNumber"].ToString();
    
    ++i;

   }
foreach(HardDrive hd in hdCollection)
   {
    Console.WriteLine("Model\t\t: " + hd.Model);
    Console.WriteLine("Type\t\t: " + hd.Type);
    Console.WriteLine("Serial No.\t: " + hd.SerialNo);
    Console.WriteLine();
   }

Go through this link for more assistance:
http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx?fid=33442&df=90&mpp=25&noise=3&sort=Position&view=Quick&fr=51