#!/usr/bin/perl -w

use Win32::AdminMisc;

my $drives = GetDrives( DRIVE_FIXED );

print $drives . "\n";

##</code><code>##

DRIVE_FIXED      - hard drive
DRIVE_REMOVABLE  - floppy
DRIVE_REMOTE     - network drive
DRIVE_CDROM      - cdrom
DRIVE_RAMDISK    - emulated drive in memory

##</code><code>##

GetDriveType( DRIVE ) - returns the drives type
GetDriveSpace ( DRIVE ) - returns the drives space
GetVolumeInfo ( DRIVE ) - returns hash of drive info
   Element     Desc
   ------------------
   Volume      Volume Label
   Serial      Serial number of drive

##</code><code>##

#!/usr/bin/perl -w

for( my $i='a'; $i lt 'z'; $i++ )
{
	if ( -e "$i:/" )
	{
		print "Drive $i exists\n";
	}
}