Forum Discussion

nastya_e's avatar
nastya_e
Occasional Contributor
11 years ago

Get the default printer

Добрый день. Как  определить принтер, который в настоящий момент используется по умолчанию. Написание тестов на delphiscript Locator: = Sys.OleObject ('WbemScripting.SWbemLocator'); WmiSe...
  • joseph_michaud's avatar
    joseph_michaud
    11 years ago
    In the meantime you can try using the WbemObjectSet methods to enumerate the list:



      WbemObjectSet := WmiService.ExecQuery('Select * from Win32_Printer Where Default = True');

      count := WbemObjectSet.Count;

      for i := 0 to count - 1 do

      begin

        WbemObject := WbemObjectSet.ItemIndex(i);

        Log.Message(WbemObject.Name);

      end;

TanyaYatskovska's avatar
TanyaYatskovska
SmartBear Alumni (Retired)
11 years ago

Добрый день, Настя.


 


 


Вот этот код должен делать то, что вам надо. Для того, чтобы другие члены нашего сообщества тоже могли использовать этот скрипт, я сделаю описание на английском. 


 


 


The code below demonstrates how to get the default printer on the computer. It uses the Windows Management Instrumentation technology. Please read the "Working With WMI Objects in Scripts" article to learn how to use it in the script.


 




 procedure GetDefaultPrinter();


 const wbemImpersonationLevelImpersonate = 3;


 var WmiService, Locator, ComputerName;


 var WbemObject, enumPrinters;


 begin


  


   ComputerName := '.';


   Locator := Sys.OleObject ('WbemScripting.SWbemLocator');


   Locator.Security_.ImpersonationLevel := wbemImpersonationLevelImpersonate;


   WmiService := Locator.ConnectServer (ComputerName, 'root\cimv2');


   


   WbemObject := WmiService.ExecQuery('Select * from Win32_Printer Where Default = True');


   enumPrinters := Enumerator(WbemObject);


   while not enumPrinters.AtEnd do


   begin


     objPrinter := enumPrinters.Item;


     Log.Message(objPrinter.Name);


     enumPrinters.MoveNext;


   end;


 end;