Informatii Discuri PC (HDD, DVD, FLOPPY)

objWMI = Getobject("winmgmts:\\")
cCadWMI = "Select FreeSpace,Size,Name From Win32_LogicalDisk"
objDisk = objWMI.ExecQuery(cCadWMI)

For Each Disk In objDisk
? "Disk: " + Disk.Name + " - Liber: " + Transform(Disk.FreeSpace) + " Total:" + Transform(Disk.Size)

NEXT