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?

[dilettante]

Works fine on Vista here. No idea what your problem is except that your code as shown has problems.

Private Function StumblePastFloppiesReturnFirstDriveSerial() As Long
    Dim Drive As Scripting.Drive
    
    With New Scripting.FileSystemObject
        For Each Drive In .Drives
            If Drive <> "A:" And Drive <> "B:" Then
                StumblePastFloppiesReturnFirstDriveSerial = Drive.SerialNumber
                Exit For
            End If
        Next
    End With
End Function

[Keithuk]

Welcome to VBForums.

@dilettante - your code shows -1202017601 on my Vista. I don't know why it shows a negative value plus drive serial numbers generally have letters in them don't they?

[dilettante]

It is a Long value. If you want letters display the Hex$() of the value.

[hr_c]

dilettante,
This is a WORKING peice of code! It works for anything UPTO WinXP. For Vista it just returns blank. That's what I have been told coz I hdo not have Vista installed.
Besides, the code is in VB6. You seem to have modified it a bit for other versions. If you do have VB6 and Vista, do let me know if the original VB6 code works for Vista or not. Thanks.

[dilettante]

The original code can't work.

If it occurs inside a procedure, the Public declaration isn't legal. If it occurs outside a procedure the For loop isn't legal. And Drive was never declared at all.

If I jack it around to make it legal it works fine in XP, Vista, Win7, etc.

That's all the code I posted does: make it work at all on anything.

[Keithuk]

Works fine on Vista here. No idea what your problem is except that your code as shown has problems.

Private Function StumblePastFloppiesReturnFirstDriveSerial() As Long
    Dim Drive As Scripting.Drive
    
    With New Scripting.FileSystemObject
        For Each Drive In .Drives
            If Drive <> "A:" And Drive <> "B:" Then
                StumblePastFloppiesReturnFirstDriveSerial = Drive.SerialNumber
                Exit For
            End If
        Next
    End With
End Function

If you do have VB6 and Vista, do let me know if the original VB6 code works for Vista or not. Thanks.

That code work on my Vista and WinXP.

Ok I've changed it to Hex$?