alias -l get_printer_locator {
  :a
  if ($com(printer_locator)) .comclose printer_locator
  if ($com(printer_services)) .comclose printer_services
  if ($var(%r,1).local) return %r
  if ($com($2)) .comclose $2
  set -l %r
  .comopen printer_locator WbemScripting.SWbemLocator
  if ($comerr) goto a
  if (!$com(printer_locator,ConnectServer,3,dispatch* printer_services)) && ($comerr) goto a
  if (!$com(printer_services,ExecQuery,3,bstr,Select * from $1,dispatch* $2)) && ($comerr) goto a
  if ($com($2,Count,3)) %r = $com($2).result
  goto a
}

alias get_printers {
  set -l %com get_printers
  set -l %n $get_printer_locator(Win32_Printer,%com)
  if (!%n) {
    if ($com(%com)) .comclose %com
    return
  }
  if ($hget(%com)) hfree %com
  hmake %com
  set -l %x 1
  :l
  hadd %com %x $comval(%com,%x,Default) $comval(%com,%x,Name)
  inc %x
  if (%x <= %n) goto l
  .comclose %com
  if ($isid) return %n
}

alias exemplo_printers {
  if ($get_printers) {
    set -l %x $v1
    while %x {
      tokenize 32 $hget(get_printers,%x).data
      echo -a Padrão: $1 Nome: $2-
      dec %x
    }
  }
}