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 object
Dim Fso As FileSystemObject
Dim ObjDrive As Drive
Set Fso = New FileSystemObject
Set 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”
