Get the default printer

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

 

 

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

 

 

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;

 

It looks like it's only me here who can read Russian :) That's why, we recommend using English for discussions.

 

As for your question, it looks like there is some issue with the Enumerator function in DelphiScript in TC 10.30. In TestComplete 10.40 (I used this test version), everything works fine.

Do you use the WMI object in your test? This object is implemented in TestComplete's script extension. I suggest that you modify this extension and add the new GetDefaultPrinter function there. Once you do it, you can call the WMI.GetDefaultPrinter method to get the info about the default printer. Here is the VBScript code for this (the extension is written in this script language):

 

Function GetDefaultPrinter

 

  Set oWMI = GetObject("winmgmts:root/cimv2")

  Set res = oWMI.ExecQuery("Select * from Win32_Printer Where Default = True")

  For Each objPrinter in res

    Log.Message(objPrinter.Name)

  Next

End Function

 

Here are some helper resources about script extensions:

 -- the "Script Extensions" article

 -- the TestComplete Extensions Workshop recorded webinar

 

Please let us know if you have anymore questions.