<% page_header("columns", "ESP samr test");
include("/scripting/samr.js");
%>
Samba4 samr rpc test
<%
var conn = new Object();
var binding = "ncalrpc:";
status = rpc_connect(conn, binding, "samr");
check_status_ok(status);
handle = samrConnect(conn);
domains = samrEnumDomains(conn, handle);
for (i=0;iDomain " + domains[i].name + "\n");
sid = samrLookupDomain(conn, handle, domains[i].name);
dom_handle = samrOpenDomain(conn, handle, sid);
users = samrEnumDomainUsers(conn, dom_handle);
samrFillUserInfo(conn, dom_handle, users, 3);
if (users.length == 0) {
write("no users in domain
\n");
} else {
multi_table(users, "name");
}
samrClose(dom_handle);
}
%>
<% page_footer(); %>