VBA informazioni sul sistema Hard disk

Il seguente frammento di codice, permette di rilevare alcune informazione relativo al sistema, in particolare Hard Disk.
Aggiungere il riferimento a Microsoft Scripting RunTime.
'caricare il file system objectDim Fso As FileSystemObjectDim ObjDrive As DriveSet Fso = New FileSystemObjectSet ObjDrive = Fso.GetDrive("C:\")MsgBox "Il numero seriale Hard Disk: " & ObjDrive.SerialNumber, vbInformation, "Drive"MsgBox "Spazio libero: " & ObjDrive.FreeSpace, vbInformation, "Drive"MsgBox "Sistema: " & ObjDrive.FileSystem, vbInformation, "Drive"MsgBox "Quantità massima: " & ObjDrive.TotalSize, vbInformation, "Drive"MsgBox "Nome Hard Disk " & ObjDrive.VolumeName, vbInformation, "Drive"