Thanks for posting these. They make a handy reference. I did modify the wmi query a bit so it goes to look for specific information, rather than just dumping everything available. I'm posting this as a further example to help others. The only changes necessary are what gets assigned to the $class variable and:

else
{
    #look for network printers (Attributes not 64)
    my $subDevices = $wmiService->ExecQuery("Select DeviceID from ".$c
+lass." WHERE Attributes != 64");
    print "*********$computer**********\n";
    foreach my $subDevProp ( in( $subDevices ) )
    {
        foreach my $prop (in($subDevProp->{Properties_}))
        {
            print"$prop->{Name}\: $prop->{Value}\n";
        }
    }
}
[download]