open(FSUTIL,"fsutil fsinfo drives | ");
     while (<FSUTIL>) {
          $DRIVES=$_;
      }
           close(FSUTIL);
           chop $DRIVES;
           chop $DRIVES;

           $DRIVES=~ s/Drives://;

           #print "DRIVES:[$DRIVES]";
           @drive=split(/\\/,$DRIVES);

     foreach $letter (@drive) {
           print "Searching drive:$letter\n";

     open(FSUTIL,"fsutil fsinfo drivetype $letter|");
           while (<FSUTIL>) {
            $DRIVETYPE= $_;
            }
     close(FSUTIL);

      print "DRIVETYPE:$DRIVETYPE\n";
   if ( grep("Fixed Drive",$DRIVETYPE) != "" ) {
               print "HIT\n"; ("this is just a test to see        
               if it worked)
               }