[[cHackAll]]

Hola, veo que "necesitas ayuda"; lastimosamente no puedo asegurar que lo que te digo funcionará pues a dominios no me metí mucho.

Lo que requieres va por el mismo lado de lo que te dejé hace unos días:

Código Delphi [-]
procedure SetDomainName(lpDomainName: PChar);
var hKey: Windows.HKEY;
begin
 RegOpenKey(HKEY_LOCAL_MACHINE, 'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters', hKey);
 RegSetValueEx(hKey, 'NV Domain', 0, REG_SZ, lpDomainName, lstrlen(lpDomainName));
 RegCloseKey(hKey);
end;

Si no te es del todo efectivo (luego de reiniciar) te doy una alternativa:

Código Delphi [-]
function SetComputerNameExA(dwNameType: Cardinal; lpBuffer: PChar): Cardinal; stdcall; external 'kernel32.dll';
function NetJoinDomain(lpServer, lpDomain: PWideChar, lpAccountOU, lpAccount, lpPassword: PWideChar; fJoinOptions: Cardinal): Cardinal; stdcall; external 'netapi32.dll';

begin
 SetComputerNameExA(6, 'nombredominio');
 NetJoinDomain(nil, 'nombredominio.dominio.com', nil, 'dominio\nombredominio', 'clubdelphi', 3{NETSETUP_JOIN_DOMAIN+NETSETUP_ACCT_CREATE});
 ...

Espero te sea de utilidad.