FUNCTION rti_enumPrinterConnections(void) /* ** return a list of printers defined for this user ** translated from http://ss64.com/vb/enumprinter.html ** ** 08-08-2012 rjc Created */ Ans = '' DEBUG WshNetwork = OleCreateInstance("WScript.Network") Printers = OleCallMethod(WshNetwork, 'EnumPrinterConnections') cnt = OleGetProperty(Printers, 'Length') For I = 1 To cnt STEP 2 this_port = OleCallMethod(Printers, 'item', I-1) this_printer = OleCallMethod(Printers, 'item', I) Ans<-1> = this_printer:@VM:this_port Next Return Ans