[ネットワークプリンタの接続状況を取得する]

現在接続されているネットワークプリンタを取得します。

program tips0156;
{$APPTYPE CONSOLE}
uses   SysUtils,ComObj,ComCtrls;
var
  APP,PRT : Variant;
  i       : Integer;
begin
  APP := CreateOleObject('WScript.Network');
  PRT :=  APP.EnumPrinterConnections;
  WriteLn('ネットワークプリンタ：');
  For i:= 0 To trunc((PRT.Count-1)/2) do
  begin
    WriteLn('　',PRT.Item(i * 2),' => ',PRT.Item(i * 2 + 1));
   end;
end.

dcc32 tips0156.pas 
tips0156.exe >tips0156.txt
pause

ネットワークプリンタ：
　SN PDFPro2 Port => いきなりPDF Professional 2
　Microsoft Document Imaging Writer Port: => Microsoft Office Document Image Writer
　DocuWorks Port => DocuWorks Printer
　192.168.1.200 => DCC4300(2F)
　192.168.1.201 => DC4300 (1F)
　192.168.1.201 => \\prtsvr01\DocuCentre-II C4300 1F ■（白黒）
　192.168.1.201 => \\prtsvr01\DocuCentre-II C4300 1F □（カラー）
　192.168.1.200 => \\prtsvr01\DocuCentre-II C4300 2F ■（白黒）
　USB001 => \\prtsvr01\EPSON VP-930 ESC/P