r26327: Explicit loadparm_context for RPC client functions.
[gd/samba-autobuild/.git] / source4 / winbind / wb_init_domain.c
1 /* 
2    Unix SMB/CIFS implementation.
3
4    A composite API for initializing a domain
5
6    Copyright (C) Volker Lendecke 2005
7    Copyright (C) Andrew Bartlett <abartlet@samba.org> 2007
8
9    This program is free software; you can redistribute it and/or modify
10    it under the terms of the GNU General Public License as published by
11    the Free Software Foundation; either version 3 of the License, or
12    (at your option) any later version.
13    
14    This program is distributed in the hope that it will be useful,
15    but WITHOUT ANY WARRANTY; without even the implied warranty of
16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17    GNU General Public License for more details.
18    
19    You should have received a copy of the GNU General Public License
20    along with this program.  If not, see <http://www.gnu.org/licenses/>.
21 */
22
23 #include "includes.h"
24 #include "libcli/composite/composite.h"
25 #include "libcli/smb_composite/smb_composite.h"
26 #include "winbind/wb_server.h"
27 #include "winbind/wb_async_helpers.h"
28 #include "winbind/wb_helper.h"
29 #include "smbd/service_task.h"
30 #include "librpc/gen_ndr/ndr_netlogon.h"
31 #include "librpc/gen_ndr/ndr_lsa_c.h"
32 #include "librpc/gen_ndr/ndr_samr_c.h"
33 #include "libcli/libcli.h"
34
35 #include "libcli/auth/credentials.h"
36 #include "libcli/security/security.h"
37
38 #include "libcli/ldap/ldap_client.h"
39
40 #include "auth/credentials/credentials.h"
41 #include "param/param.h"
42
43 /*
44  * Initialize a domain:
45  *
46  * - With schannel credentials, try to open the SMB connection and
47  *   NETLOGON pipe with the machine creds. This works against W2k3SP1
48  *   with an NTLMSSP session setup. Fall back to anonymous (for the CIFS level).
49  *
50  * - If we have schannel creds, do the auth2 and open the schannel'ed netlogon
51  *   pipe.
52  *
53  * - Open LSA. If we have machine creds, try to open with SPNEGO or NTLMSSP. Fall back
54  *   to schannel.
55  *
56  * - With queryinfopolicy, verify that we're talking to the right domain
57  *
58  * A bit complex, but with all the combinations I think it's the best we can
59  * get. NT4, W2k3 and W2k all have different combinations, but in the end we
60  * have a signed&sealed lsa connection on all of them.
61  *
62  * Not sure if it is overkill, but it seems to work.
63  */
64
65 struct init_domain_state {
66         struct composite_context *ctx;
67         struct wbsrv_domain *domain;
68         struct wbsrv_service *service;
69
70         struct lsa_ObjectAttribute objectattr;
71         struct lsa_OpenPolicy2 lsa_openpolicy;
72         struct lsa_QueryInfoPolicy queryinfo;
73 };
74
75 static void init_domain_recv_netlogonpipe(struct composite_context *ctx);
76 static void init_domain_recv_lsa_pipe(struct composite_context *ctx);
77 static void init_domain_recv_lsa_policy(struct rpc_request *req);
78 static void init_domain_recv_queryinfo(struct rpc_request *req);
79 static void init_domain_recv_ldapconn(struct composite_context *ctx);
80 static void init_domain_recv_samr(struct composite_context *ctx);
81
82 static struct dcerpc_binding *init_domain_binding(struct init_domain_state *state, 
83                                                   const struct ndr_interface_table *table) 
84 {
85         struct dcerpc_binding *binding;
86         NTSTATUS status;
87
88         /* Make a binding string */
89         {
90                 char *s = talloc_asprintf(state, "ncacn_np:%s", state->domain->dc_name);
91                 if (s == NULL) return NULL;
92                 status = dcerpc_parse_binding(state, s, &binding);
93                 talloc_free(s);
94                 if (!NT_STATUS_IS_OK(status)) {
95                         return NULL;
96                 }
97         }
98
99         /* Alter binding to contain hostname, but also address (so we don't look it up twice) */
100         binding->target_hostname = state->domain->dc_name;
101         binding->host = state->domain->dc_address;
102
103         /* This shouldn't make a network call, as the mappings for named pipes are well known */
104         status = dcerpc_epm_map_binding(binding, binding, table, state->service->task->event_ctx,
105                                         state->service->task->lp_ctx);
106         if (!NT_STATUS_IS_OK(status)) {
107                 return NULL;
108         }
109
110         return binding;
111 }
112
113 struct composite_context *wb_init_domain_send(TALLOC_CTX *mem_ctx,
114                                               struct wbsrv_service *service,
115                                               struct wb_dom_info *dom_info)
116 {
117         struct composite_context *result, *ctx;
118         struct init_domain_state *state;
119
120         result = composite_create(mem_ctx, service->task->event_ctx);
121         if (result == NULL) goto failed;
122
123         state = talloc_zero(result, struct init_domain_state);
124         if (state == NULL) goto failed;
125         state->ctx = result;
126         result->private_data = state;
127
128         state->service = service;
129
130         state->domain = talloc(state, struct wbsrv_domain);
131         if (state->domain == NULL) goto failed;
132
133         state->domain->info = talloc_reference(state->domain, dom_info);
134         if (state->domain->info == NULL) goto failed;
135
136         /* Caller should check, but to be safe: */
137         if (dom_info->num_dcs < 1) {
138                 goto failed;
139         }
140         
141         /* For now, we just pick the first.  The next step will be to
142          * walk the entire list.  Also need to fix finddcs() to return
143          * the entire list */
144         state->domain->dc_name = dom_info->dcs[0].name;
145         state->domain->dc_address = dom_info->dcs[0].address;
146
147         state->domain->libnet_ctx = libnet_context_init(service->task->event_ctx, 
148                                                         service->task->lp_ctx);
149
150         /* Create a credentials structure */
151         state->domain->libnet_ctx->cred = cli_credentials_init(state->domain);
152         if (state->domain->libnet_ctx->cred == NULL) goto failed;
153
154         cli_credentials_set_event_context(state->domain->libnet_ctx->cred, service->task->event_ctx);
155
156         cli_credentials_set_conf(state->domain->libnet_ctx->cred, service->task->lp_ctx);
157
158         /* Connect the machine account to the credentials */
159         state->ctx->status =
160                 cli_credentials_set_machine_account(state->domain->libnet_ctx->cred);
161         if (!NT_STATUS_IS_OK(state->ctx->status)) goto failed;
162
163         state->domain->netlogon_binding = init_domain_binding(state, &ndr_table_netlogon);
164
165         state->domain->netlogon_pipe = NULL;
166
167         if ((!cli_credentials_is_anonymous(state->domain->libnet_ctx->cred)) &&
168             ((lp_server_role(service->task->lp_ctx) == ROLE_DOMAIN_MEMBER) ||
169              (lp_server_role(service->task->lp_ctx) == ROLE_DOMAIN_CONTROLLER)) &&
170             (dom_sid_equal(state->domain->info->sid,
171                            state->service->primary_sid))) {
172                 state->domain->netlogon_binding->flags |= DCERPC_SCHANNEL;
173
174                 /* For debugging, it can be a real pain if all the traffic is encrypted */
175                 if (lp_winbind_sealed_pipes(service->task->lp_ctx)) {
176                         state->domain->netlogon_binding->flags |= (DCERPC_SIGN | DCERPC_SEAL );
177                 } else {
178                         state->domain->netlogon_binding->flags |= (DCERPC_SIGN);
179                 }
180         }
181
182         /* No encryption on anonymous pipes */
183
184         ctx = dcerpc_pipe_connect_b_send(state, state->domain->netlogon_binding, 
185                                          &ndr_table_netlogon,
186                                          state->domain->libnet_ctx->cred,
187                                          service->task->event_ctx,
188                                          service->task->lp_ctx);
189         
190         if (composite_nomem(ctx, state->ctx)) {
191                 goto failed;
192         }
193         
194         composite_continue(state->ctx, ctx, init_domain_recv_netlogonpipe,
195                            state);
196         return result;
197  failed:
198         talloc_free(result);
199         return NULL;
200 }
201
202 /* Having make a netlogon connection (possibly secured with schannel),
203  * make an LSA connection to the same DC, on the same IPC$ share */
204 static void init_domain_recv_netlogonpipe(struct composite_context *ctx)
205 {
206         struct init_domain_state *state =
207                 talloc_get_type(ctx->async.private_data,
208                                 struct init_domain_state);
209
210         state->ctx->status = dcerpc_pipe_connect_b_recv(ctx, state->domain, 
211                                                    &state->domain->netlogon_pipe);
212         
213         if (!composite_is_ok(state->ctx)) {
214                 talloc_free(state->domain->netlogon_binding);
215                 return;
216         }
217         talloc_steal(state->domain->netlogon_pipe, state->domain->netlogon_binding);
218
219         state->domain->lsa_binding = init_domain_binding(state, &ndr_table_lsarpc);
220
221         /* For debugging, it can be a real pain if all the traffic is encrypted */
222         if (lp_winbind_sealed_pipes(state->service->task->lp_ctx)) {
223                 state->domain->lsa_binding->flags |= (DCERPC_SIGN | DCERPC_SEAL );
224         } else {
225                 state->domain->lsa_binding->flags |= (DCERPC_SIGN);
226         }
227
228         state->domain->libnet_ctx->lsa.pipe = NULL;
229
230         /* this will make the secondary connection on the same IPC$ share, 
231            secured with SPNEGO or NTLMSSP */
232         ctx = dcerpc_secondary_auth_connection_send(state->domain->netlogon_pipe,
233                                                     state->domain->lsa_binding,
234                                                     &ndr_table_lsarpc,
235                                                     state->domain->libnet_ctx->cred,
236                                                     state->domain->libnet_ctx->lp_ctx
237                 );
238         composite_continue(state->ctx, ctx, init_domain_recv_lsa_pipe, state);
239 }
240
241 static bool retry_with_schannel(struct init_domain_state *state, 
242                                 struct dcerpc_binding *binding,
243                                 const struct ndr_interface_table *table,
244                                 void (*continuation)(struct composite_context *))
245 {
246         struct composite_context *ctx;
247         state->ctx->status = NT_STATUS_OK;
248         if (state->domain->netlogon_binding->flags & DCERPC_SCHANNEL 
249             && !(binding->flags & DCERPC_SCHANNEL)) {
250                 /* Opening a policy handle failed, perhaps it was
251                  * because we don't get a 'wrong password' error on
252                  * NTLMSSP binds */
253
254                 /* Try again with schannel */
255                 binding->flags |= DCERPC_SCHANNEL;
256
257                 /* Try again, likewise on the same IPC$ share, 
258                    secured with SCHANNEL */
259                 ctx = dcerpc_secondary_auth_connection_send(state->domain->netlogon_pipe,
260                                                             binding,
261                                                             table, 
262                                                             state->domain->libnet_ctx->cred,
263                                                             state->domain->libnet_ctx->lp_ctx);
264                 composite_continue(state->ctx, ctx, continuation, state);               
265                 return true;
266         } else {
267                 return false;
268         }
269 }
270 /* We should now have either an authenticated LSA pipe, or an error.  
271  * On success, open a policy handle
272  */     
273 static void init_domain_recv_lsa_pipe(struct composite_context *ctx)
274 {
275         struct rpc_request *req;
276         struct init_domain_state *state =
277                 talloc_get_type(ctx->async.private_data,
278                                 struct init_domain_state);
279
280         state->ctx->status = dcerpc_secondary_auth_connection_recv(ctx, state->domain,
281                                                                    &state->domain->libnet_ctx->lsa.pipe);
282         if (NT_STATUS_EQUAL(state->ctx->status, NT_STATUS_LOGON_FAILURE)) {
283                 if (retry_with_schannel(state, state->domain->lsa_binding, 
284                                         &ndr_table_lsarpc,
285                                         init_domain_recv_lsa_pipe)) {
286                         return;
287                 }
288         }
289         if (!composite_is_ok(state->ctx)) return;
290
291         talloc_steal(state->domain->libnet_ctx, state->domain->libnet_ctx->lsa.pipe);
292         talloc_steal(state->domain->libnet_ctx->lsa.pipe, state->domain->lsa_binding);
293         state->domain->libnet_ctx->lsa.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
294         state->domain->libnet_ctx->lsa.name = state->domain->info->name;
295
296         ZERO_STRUCT(state->domain->libnet_ctx->lsa.handle);
297         state->lsa_openpolicy.in.system_name =
298                 talloc_asprintf(state, "\\\\%s",
299                                 dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe));
300         ZERO_STRUCT(state->objectattr);
301         state->lsa_openpolicy.in.attr = &state->objectattr;
302         state->lsa_openpolicy.in.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
303         state->lsa_openpolicy.out.handle = &state->domain->libnet_ctx->lsa.handle;
304
305         req = dcerpc_lsa_OpenPolicy2_send(state->domain->libnet_ctx->lsa.pipe, state,
306                                           &state->lsa_openpolicy);
307
308         composite_continue_rpc(state->ctx, req, init_domain_recv_lsa_policy, state);
309 }
310
311 /* Receive a policy handle (or not, and retry the authentication) and
312  * obtain some basic information about the domain */
313
314 static void init_domain_recv_lsa_policy(struct rpc_request *req)
315 {
316         struct init_domain_state *state =
317                 talloc_get_type(req->async.private_data,
318                                 struct init_domain_state);
319
320         state->ctx->status = dcerpc_ndr_request_recv(req);
321         if ((!NT_STATUS_IS_OK(state->ctx->status)
322               || !NT_STATUS_IS_OK(state->lsa_openpolicy.out.result))) {
323                 if (retry_with_schannel(state, state->domain->lsa_binding, 
324                                         &ndr_table_lsarpc,
325                                         init_domain_recv_lsa_pipe)) {
326                         return;
327                 }
328         }
329         if (!composite_is_ok(state->ctx)) return;
330         state->ctx->status = state->lsa_openpolicy.out.result;
331         if (!composite_is_ok(state->ctx)) return;
332
333         state->queryinfo.in.handle = &state->domain->libnet_ctx->lsa.handle;
334         state->queryinfo.in.level = LSA_POLICY_INFO_ACCOUNT_DOMAIN;
335
336         req = dcerpc_lsa_QueryInfoPolicy_send(state->domain->libnet_ctx->lsa.pipe, state,
337                                               &state->queryinfo);
338         composite_continue_rpc(state->ctx, req,
339                                init_domain_recv_queryinfo, state);
340 }
341
342 static void init_domain_recv_queryinfo(struct rpc_request *req)
343 {
344         struct init_domain_state *state =
345                 talloc_get_type(req->async.private_data, struct init_domain_state);
346         struct lsa_DomainInfo *dominfo;
347         struct composite_context *ctx;
348
349         state->ctx->status = dcerpc_ndr_request_recv(req);
350         if (!composite_is_ok(state->ctx)) return;
351         state->ctx->status = state->queryinfo.out.result;
352         if (!composite_is_ok(state->ctx)) return;
353
354         dominfo = &state->queryinfo.out.info->account_domain;
355
356         if (strcasecmp(state->domain->info->name, dominfo->name.string) != 0) {
357                 DEBUG(2, ("Expected domain name %s, DC %s said %s\n",
358                           state->domain->info->name,
359                           dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe),
360                           dominfo->name.string));
361                 composite_error(state->ctx, NT_STATUS_INVALID_DOMAIN_STATE);
362                 return;
363         }
364
365         if (!dom_sid_equal(state->domain->info->sid, dominfo->sid)) {
366                 DEBUG(2, ("Expected domain sid %s, DC %s said %s\n",
367                           dom_sid_string(state, state->domain->info->sid),
368                           dcerpc_server_name(state->domain->libnet_ctx->lsa.pipe),
369                           dom_sid_string(state, dominfo->sid)));
370                 composite_error(state->ctx, NT_STATUS_INVALID_DOMAIN_STATE);
371                 return;
372         }
373
374         state->domain->samr_binding = init_domain_binding(state, &ndr_table_samr);
375
376         /* We want to use the same flags as the LSA pipe did (so, if
377          * it needed schannel, then we need that here too) */
378         state->domain->samr_binding->flags = state->domain->lsa_binding->flags;
379
380         state->domain->libnet_ctx->samr.pipe = NULL;
381
382         ctx = wb_connect_samr_send(state, state->domain);
383         composite_continue(state->ctx, ctx, init_domain_recv_samr, state);
384 }
385
386 /* Recv the SAMR details (SamrConnect and SamrOpenDomain handle) and
387  * open an LDAP connection */
388 static void init_domain_recv_samr(struct composite_context *ctx)
389 {
390         const char *ldap_url;
391         struct init_domain_state *state =
392                 talloc_get_type(ctx->async.private_data,
393                                 struct init_domain_state);
394
395         state->ctx->status = wb_connect_samr_recv(
396                 ctx, state->domain,
397                 &state->domain->libnet_ctx->samr.pipe,
398                 &state->domain->libnet_ctx->samr.handle, 
399                 &state->domain->libnet_ctx->samr.handle);
400         if (!composite_is_ok(state->ctx)) return;
401
402         talloc_steal(state->domain->libnet_ctx->samr.pipe, state->domain->samr_binding);
403         state->domain->libnet_ctx->samr.access_mask = SEC_FLAG_MAXIMUM_ALLOWED;
404         state->domain->libnet_ctx->samr.name = state->domain->info->name;
405         state->domain->libnet_ctx->samr.sid = state->domain->info->sid;
406
407         state->domain->ldap_conn =
408                 ldap4_new_connection(state->domain, state->ctx->event_ctx);
409         composite_nomem(state->domain->ldap_conn, state->ctx);
410
411         ldap_url = talloc_asprintf(state, "ldap://%s/",
412                                    state->domain->dc_address);
413         composite_nomem(ldap_url, state->ctx);
414
415         ctx = ldap_connect_send(state->domain->ldap_conn, ldap_url);
416         composite_continue(state->ctx, ctx, init_domain_recv_ldapconn, state);
417 }
418
419 static void init_domain_recv_ldapconn(struct composite_context *ctx)
420 {
421         struct init_domain_state *state =
422                 talloc_get_type(ctx->async.private_data,
423                                 struct init_domain_state);
424
425         state->ctx->status = ldap_connect_recv(ctx);
426         if (NT_STATUS_IS_OK(state->ctx->status)) {
427                 state->domain->ldap_conn->host =
428                         talloc_strdup(state->domain->ldap_conn,
429                                       state->domain->dc_name);
430                 state->ctx->status =
431                         ldap_bind_sasl(state->domain->ldap_conn,
432                                        state->domain->libnet_ctx->cred);
433                 DEBUG(0, ("ldap_bind returned %s\n",
434                           nt_errstr(state->ctx->status)));
435         }
436
437         composite_done(state->ctx);
438 }
439
440 NTSTATUS wb_init_domain_recv(struct composite_context *c,
441                              TALLOC_CTX *mem_ctx,
442                              struct wbsrv_domain **result)
443 {
444         NTSTATUS status = composite_wait(c);
445         if (NT_STATUS_IS_OK(status)) {
446                 struct init_domain_state *state =
447                         talloc_get_type(c->private_data,
448                                         struct init_domain_state);
449                 *result = talloc_steal(mem_ctx, state->domain);
450         }
451         talloc_free(c);
452         return status;
453 }
454
455 NTSTATUS wb_init_domain(TALLOC_CTX *mem_ctx, struct wbsrv_service *service,
456                         struct wb_dom_info *dom_info,
457                         struct wbsrv_domain **result)
458 {
459         struct composite_context *c =
460                 wb_init_domain_send(mem_ctx, service, dom_info);
461         return wb_init_domain_recv(c, mem_ctx, result);
462 }