Some (Sys.argv.(1))
else
None in
- let conn = C.connect_readonly ?name () in
+ let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
(* List all domains (running and inactive). *)
let domains = D.get_domains_and_infos conn [D.ListAll] in