- $ret->{DC_SERVER} = $dcvars->{SERVER};
- $ret->{DC_SERVER_IP} = $dcvars->{SERVER_IP};
- $ret->{DC_NETBIOSNAME} = $dcvars->{NETBIOSNAME};
- $ret->{DC_NETBIOSALIAS} = $dcvars->{NETBIOSALIAS};
- $ret->{DC_USERNAME} = $dcvars->{USERNAME};
- $ret->{DC_PASSWORD} = $dcvars->{PASSWORD};
+ $ret->{MEMBER_SERVER} = $ret->{SERVER};
+ $ret->{MEMBER_SERVER_IP} = $ret->{SERVER_IP};
+ $ret->{MEMBER_NETBIOSNAME} = $ret->{NETBIOSNAME};
+ $ret->{MEMBER_NETBIOSALIAS} = $ret->{NETBIOSALIAS};
+ $ret->{MEMBER_USERNAME} = $ret->{USERNAME};
+ $ret->{MEMBER_PASSWORD} = $ret->{PASSWORD};
+
+ $ret->{DC_SERVER} = $dcvars->{DC_SERVER};
+ $ret->{DC_SERVER_IP} = $dcvars->{DC_SERVER_IP};
+ $ret->{DC_NETBIOSNAME} = $dcvars->{DC_NETBIOSNAME};
+ $ret->{DC_NETBIOSALIAS} = $dcvars->{DC_NETBIOSALIAS};
+ $ret->{DC_USERNAME} = $dcvars->{DC_USERNAME};
+ $ret->{DC_PASSWORD} = $dcvars->{DC_PASSWORD};
+
+ return $ret;
+}
+
+sub provision_rpc_proxy($$$)
+{
+ my ($self, $prefix, $dcvars) = @_;
+ print "PROVISIONING RPC PROXY...";
+
+ my $extra_smbconf_options = "dcerpc_remote:binding = ncacn_ip_tcp:localdc1
+ dcerpc endpoint servers = epmapper, remote
+ dcerpc_remote:interfaces = rpcecho
+";
+
+ my $ret = $self->provision($prefix,
+ "member server",
+ "localrpcproxy4",
+ "localrpcproxy",
+ 4,
+ "localrpcproxypass",
+ $dcvars->{SERVER_IP},
+ $extra_smbconf_options);
+
+ $ret or die("Unable to provision");
+
+ my $net = $self->bindir_path("net");
+ my $cmd = "";
+ $cmd .= "SOCKET_WRAPPER_DEFAULT_IFACE=\"$ret->{SOCKET_WRAPPER_DEFAULT_IFACE}\" ";
+ $cmd .= "KRB5_CONFIG=\"$ret->{KRB5_CONFIG}\" ";
+ $cmd .= "$net join $ret->{CONFIGURATION} $dcvars->{DOMAIN} member";
+ $cmd .= " -U$dcvars->{DC_USERNAME}\%$dcvars->{DC_PASSWORD}";
+
+ system($cmd) == 0 or die("Join failed\n$cmd");
+
+ $ret->{RPC_PROXY_SERVER} = $ret->{SERVER};
+ $ret->{RPC_PROXY_SERVER_IP} = $ret->{SERVER_IP};
+ $ret->{RPC_PROXY_NETBIOSNAME} = $ret->{NETBIOSNAME};
+ $ret->{RPC_PROXY_NETBIOSALIAS} = $ret->{NETBIOSALIAS};
+ $ret->{RPC_PROXY_USERNAME} = $ret->{USERNAME};
+ $ret->{RPC_PROXY_PASSWORD} = $ret->{PASSWORD};