2 backend code for provisioning a Samba4 server
3 Copyright Andrew Tridgell 2005
4 Released under the GNU GPL v2 or later
7 /* used to generate sequence numbers for records */
8 provision_next_usn = 1;
13 find a user or group from a list of possibilities
18 assert(arguments.length >= 2);
19 var nssfn = arguments[0];
20 for (i=1;i<arguments.length;i++) {
21 if (nssfn(arguments[i]) != undefined) {
25 printf("Unable to find user/group for %s\n", arguments[1]);
26 assert(i<arguments.length);
30 add a foreign security principle
32 function add_foreign(str, sid, desc, unixname)
35 dn: CN=${SID},CN=ForeignSecurityPrincipals,${BASEDN}
37 objectClass: foreignSecurityPrincipal
41 whenCreated: ${LDAPTIME}
42 whenChanged: ${LDAPTIME}
45 showInAdvancedViewOnly: TRUE
47 objectGUID: ${NEWGUID}
49 objectCategory: CN=Foreign-Security-Principal,CN=Schema,CN=Configuration,${BASEDN}
52 var sub = new Object();
55 sub.UNIXNAME = unixname;
56 return str + substitute_var(add, sub);
60 return current time as a nt time string
64 return "" + sys.nttime();
68 return current time as a ldap time string
72 return sys.ldaptime(sys.nttime());
76 return a date string suitable for a dns zone serial number
80 var t = sys.gmtime(sys.nttime());
81 return sprintf("%04u%02u%02u%02u",
82 t.tm_year+1900, t.tm_mon+1, t.tm_mday, t.tm_hour);
90 var list = sys.interfaces();
95 return current time as a ldap time string
99 provision_next_usn = provision_next_usn+1;
100 return provision_next_usn;
104 return first part of hostname
108 var s = split(".", sys.hostname());
114 setup a ldb in the private dir
116 function setup_ldb(ldif, dbname, subobj)
119 var ldb = ldb_init();
121 if (arguments.length == 4) {
122 extra = arguments[3];
125 var dbfile = lpGet("private dir") + "/" + dbname;
126 var src = lpGet("setup directory") + "/" + ldif;
130 var data = sys.file_load(src);
132 data = substitute_var(data, subobj);
134 var ok = ldb.connect(dbfile);
142 setup a file in the private dir
144 function setup_file(template, fname, subobj)
146 var f = lpGet("private dir") + "/" + fname;
147 var src = lpGet("setup directory") + "/" + template;
151 var data = sys.file_load(src);
152 data = substitute_var(data, subobj);
154 ok = sys.file_save(f, data);
159 provision samba4 - caution, this wipes all existing data!
161 function provision(subobj, message)
166 some options need to be upper/lower case
168 subobj.REALM = strlower(subobj.REALM);
169 subobj.HOSTNAME = strlower(subobj.HOSTNAME);
170 subobj.DOMAIN = strupper(subobj.DOMAIN);
171 subobj.NETBIOSNAME = strupper(subobj.HOSTNAME);
173 data = add_foreign(data, "S-1-5-7", "Anonymous", "${NOBODY}");
174 data = add_foreign(data, "S-1-1-0", "World", "${NOGROUP}");
175 data = add_foreign(data, "S-1-5-2", "Network", "${NOGROUP}");
176 data = add_foreign(data, "S-1-5-18", "System", "${ROOT}");
177 data = add_foreign(data, "S-1-5-11", "Authenticated Users", "${USERS}");
179 provision_next_usn = 1;
181 message("Setting up hklm.ldb\n");
182 setup_ldb("hklm.ldif", "hklm.ldb", subobj);
183 message("Setting up sam.ldb\n");
184 setup_ldb("provision.ldif", "sam.ldb", subobj, data);
185 message("Setting up rootdse.ldb\n");
186 setup_ldb("rootdse.ldif", "rootdse.ldb", subobj);
187 message("Setting up secrets.ldb\n");
188 setup_ldb("secrets.ldif", "secrets.ldb", subobj);
189 message("Setting up DNS zone file\n");
190 setup_file("provision.zone", subobj.DNSDOMAIN + ".zone", subobj);
194 guess reasonably default options for provisioning
196 function provision_guess()
198 var subobj = new Object();
199 var nss = nss_init();
201 subobj.REALM = lpGet("realm");
202 subobj.DOMAIN = lpGet("workgroup");
203 subobj.HOSTNAME = hostname();
204 subobj.HOSTIP = hostip();
205 subobj.DOMAINGUID = randguid();
206 subobj.DOMAINSID = randsid();
207 subobj.HOSTGUID = randguid();
208 subobj.INVOCATIONID = randguid();
209 subobj.KRBTGTPASS = randpass(12);
210 subobj.MACHINEPASS = randpass(12);
211 subobj.ADMINPASS = randpass(12);
212 subobj.DEFAULTSITE = "Default-First-Site-Name";
213 subobj.NEWGUID = randguid;
214 subobj.NTTIME = nttime;
215 subobj.LDAPTIME = ldaptime;
216 subobj.DATESTRING = datestring;
217 subobj.USN = nextusn;
218 subobj.ROOT = findnss(nss.getpwnam, "root");
219 subobj.NOBODY = findnss(nss.getpwnam, "nobody");
220 subobj.NOGROUP = findnss(nss.getgrnam, "nogroup", "nobody");
221 subobj.WHEEL = findnss(nss.getgrnam, "wheel", "root");
222 subobj.USERS = findnss(nss.getgrnam, "users", "guest", "other");
223 subobj.DNSDOMAIN = strlower(subobj.REALM);
224 subobj.DNSNAME = sprintf("%s.%s",
225 strlower(subobj.HOSTNAME),
227 subobj.BASEDN = "DC=" + join(",DC=", split(".", subobj.REALM));
232 search for one attribute as a string
234 function searchone(ldb, expression, attribute)
236 var attrs = new Array(attribute);
237 res = ldb.search(expression, attrs);
238 if (res.length != 1 ||
239 res[0][attribute] == undefined) {
242 return res[0][attribute];
246 add a new user record
248 function newuser(username, unixname, password, message)
250 var samdb = lpGet("sam database");
251 var ldb = ldb_init();
253 /* connect to the sam */
254 var ok = ldb.connect(samdb);
257 /* find the DNs for the domain and the domain users group */
258 var domain_dn = searchone(ldb, "objectClass=domainDNS", "dn");
259 assert(domain_dn != undefined);
260 var dom_users = searchone(ldb, "name=Domain Users", "dn");
261 assert(dom_users != undefined);
263 var user_dn = sprintf("CN=%s,CN=Users,%s", username, domain_dn);
267 the new user record. note the reliance on the samdb module to fill
280 user_dn, username, username, dom_users,
281 unixname, randguid(), password);
283 add the user to the users group as well
285 var modgroup = sprintf("
297 message("Adding user %s\n", user_dn);
300 message("Failed to add %s - %s\n", user_dn, ldb.errstring());
304 message("Modifying group %s\n", dom_users);
305 ok = ldb.modify(modgroup);
307 message("Failed to modify %s - %s\n", dom_users, ldb.errstring());