Серийный номер винта

[Jacks]

Тут вот проблема какая.
У меня на компе установлен 1 жестк. диск, который разделен на 2 логических: С и D
Получаю серийный номер жесткого диска ,

Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GEtDrive(fso.GEtDriveName("C:"))
s = drv.SerialNumber

Для диска C и D получаются разные номера, но ведь физически
диск один. Может я че делаю неправильно ? Подскажите пожалуйста.

[Kurt]

У меня дома была такой код, как доберусь - скину... Если успею!

[MEMBER]

Вам потребно к использованию GetVolumeInformation.
http://vbhelper.narod.ru/api/getvolumeinformation.html