1) dein script funktioniert wohl nie auf einem "undeutschen" system
2) dein script parst die ausgabe von prnport.vbs (musst schauen, was das liefert, wenn du es auf der cmd ausführst)
3) schau mal auf Win32::Printer::Enum, das hat auch die Funktion Ports($host)