Drive SerialNumber in Vista

[hr_c]

Hello,
I have vb6 app that uses FileSystemObject to extract the drive SerialNumber of "C:" as follows:

Public fs As New FileSystemObject
For Each Drive In fs.Drives
    If Drive <> "A:" And Drive <> "B:" Then
        sDriveID = Drive.SerialNumber
        Exit For
    End If
Next Drive

The code work fine for Windows XP. However, it does not work for Vista! Any solutions?