Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colInstalledPrinters= objWMIService.ExecQuery ("Select * from Win32_Printer")

For Each objPrinter In colInstalledPrinters

  if (UCase(objPrinter.Default)="ИСТИНА") or (UCase(objPrinter.Default)="TRUE") then
    Wscript.Echo "Обнаружен принтер по умолчанию " & objPrinter.Name & _
                      "  " & objPrinter.PortName & "  " &  objPrinter.Default
  End if

Next