Getting Printer list from servers

[Ghost21 0]

I'm trying to get the printers from each server and list them in a treeview. The problem is for some reason when I do the orginal

$aPrintQueues = _AD_ListPrintQueues()

The data in the second col. isn't sorted which is a problem and isn't. It isn't a problem if someone can show me how to search just the

server that the printer is on and not all of them for a duplicat. As Duplicate can be on more then one machine but not on the same server. ???

expandcollapse popup

Func _AD_ListPrinter()
    $AD_Printer_TreeViewItem = ""
    $SamePrintServer = ""
    $b = ""
    _AD_Open()
    $aPrintQueues = _AD_ListPrintQueues()
    For $i = 1 To $aPrintQueues[0][0]
        $a = $aPrintQueues[$i][1]
        If $b <> $a Then
            $b = $a
            $PrintServer = StringSplit($aPrintQueues[$i][1], ".")
            $AD_PrintServer = StringUpper($PrintServer[1])
            $hItem = _GUICtrlTreeView_FindItem($TreeView2, $AD_PrintServer, True, 0)
            If $hItem <> "" Then
            Else
                _GUICtrlTreeView_Add($TreeView2, $AD_PrintServer, StringStripWS($AD_PrintServer, 3))
                msgbox(0,"Print Server",$AD_PrintServer)
            EndIf
            $hItem = ""
            $Printers = _AD_ListPrintQueues($PrintServer[1])
            For $ii = 1 To $Printers[0][0]
                $AD_Printer = $Printers[$ii][0]
                $hItem = _GUICtrlTreeView_FindItem($TreeView2, $AD_PrintServer, True, 0)
                If $hItem <> "" Then
                    _GUICtrlTreeView_AddChild($TreeView2, $hItem, StringStripWS($AD_Printer, 3))
                        msgbox(0,"Printer",$AD_Printer)
                Else
                EndIf
                $AD_Printer = ""
            Next
            $ii = ""
            $Printers = ""
        Else
        EndIf
        $Percent = Round((100 * $aPrintQueues[0][0]) / 100)
        $Percent = _Min(_Max(1, $Percent), 99)
        GUICtrlSetData($Progress1, $Percent)
        $AD_PrintServer = ""
        $hItem = ""
    Next
    _AD_Close()
    GUICtrlSetData($Progress1, 0)
EndFunc   ;==>_AD_ListPrinter

HELP !!!

[water 1,868]

If you know on which spool server the printer queue is defined then you can pass the server name as a parameter to _AD_ListPrintQueues.