my $DriveCollection = $WMIServices->InstancesOf("Win32_DiskDrive" );
foreach my $Drive ( in( $DriveCollection ) )
{
    print Dumper $Drive;
    print $Drive->{'Status'};
}