FSO - Серийный номер диска

По материалам: https://www.cyberforum.ru/ms-access/thread2856670.html

Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C:")
MsgBox DriveC.SerialNumber