Help for this page
use Win32::DriveInfo; use constant { ... printf "%.3f GB free of total %.3f GB\n", $info[ TOTAL_FREE ] / 1024**3, $info[ TOTAL_BYTES ] / 1024**3;
c:\Perl>drivelist.pl \\server01\d$ Drive Free Tot PctFree ... c: Drive Free Tot PctFree 31.639 GB free of total 74.444 GB