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);
...
Espero te sea de utilidad.