perl -MWin32::DriveInfo -e"print  Win32::DriveInfo::DrivesInUse();"
ACDEGT