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