[ネットワークプリンタの接続を解除する]

ネットワークプリンタを強制的に削除します。

program tips0155;
{$APPTYPE CONSOLE}
uses   SysUtils,ComObj,ComCtrls;
var
  APP : Variant;
  str : String;
begin
  str:= '\\prtsvr01\DocuCentre-II C4300 2F □（カラー）''';
  APP := CreateOleObject('WScript.Network''');
  try
    APP.RemovePrinterConnection(str,True,True);
    Writeln(str,'　を削除しました。''');
  except
    Writeln(str,'　の削除に失敗しました。''');
  end
end.

dcc32 tips0155.pas 
tips0155.exe >tips0155.txt
pause

\\prtsvr01\DocuCentre-II C4300 2F □（カラー）　を削除しました。