Talvez isto te sirva:

Set fs = CreateObject("Scripting.FileSystemObject")
Set hd = fs.GetDrive("C:")
msgbox hd.serialnumber