26 lines
564 B
Plaintext
26 lines
564 B
Plaintext
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
|