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 WHERE Default = True,dispatch* $2)) && ($comerr) goto a
  if ($com($2,Count,3)) %r = $com($2).result
  goto a
}

alias get_printer_defaut {
  set -l %com printer_defaut
  if (!$get_printer_locator(Win32_Printer,%com)) {
    if ($com(%com)) .comclose %com
    return
  }
  set -l %device $comval(%com,1,Name)
  .comclose %com
  if ($isid) return %device
}