изменить имя компьютера находящихся в домене

[Hint_reg]

Всем привет! Подскажите пожалуйста как в дельфи ихменить имя компа, комп находится в сети в домене.
у меня что то не получается
код

procedure TForm1.Button1Click(Sender: TObject);
begin
SetComputerName(PChar(Edit1.text));
end;

[Rififi]

Hint_reg

Подскажите пожалуйста как в дельфи ихменить имя компа, комп находится в сети в домене.
у меня что то не получается

естессно, не получится. имя компа сидит в базе AD, там и надо менять.

Коннектишься к DC по LDAP через интерфейс ADSI (см. ADsGetObject), получаешь Organization Unit (IADsOU), которому принадлежит комп, далее MoveHere

подробности смотри в гоогле

[FaTaL]

B MSDN написано следуещее:

To set the DNS host name or the DNS domain name, call the SetComputerNameEx function.

Так что попробуйте, то что советуют.