Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
F: is a Removable Drive
H: is a Fixed Drive
I: is a Fixed Drive
  2. or download this
    my %drives;
foreach my $drive ('A'..'Z')
...
G: Volume in drive G is CIS27
H: Volume in drive H is Sata-1a
I: Volume in drive I is SATA-1B