Help for this page

Select Code to Download


  1. or download this
    my @drives=Win32::AdminMisc::GetDrives(DRIVE_FIXED);
  2. or download this
    foreach my $drive ( Win32::DriveInfo::DrivesInUse ) {
  next unless Win32::DriveInfo::DriveType($drive) == FIXED_DISK;

...

  next if $seen{$serial}++;
}
  3. or download this
      if($total && $free){