Moderator, please remove this thread! After two days of looking at this I added 5 characters to the script and it works:
Before: If InStr($objPrinter,"\\") = 1
After: If InStr($objPrinter.name,"\\") = 1