Интересный момент при использовании ф-ии SetComputerName

← →
DelphiN! © (2006-11-29 10:55) [0]

Как заявлено в справке функйия SetComputerName устанавливает сетевое имя компьютера, но при ее использовании добавляется еще одно имя компьютера, тоесть вызываю я функцию так :
SetComputerName("NewCompName");
Далее перезагружаю компьютер, смотрю имя компьютера в свойствах но оно не изменилось, пытаюсь зайти на компьютер под именем \\NewComputerName, заходит! Пытаюсь зайти на компьютер под старым именем, тоже заходит! Получается что ф-ия добавляет еще одно имя компьютеру?

← →
Anatoly Podgoretsky © (2006-11-29 11:09) [1]

> DelphiN! (29.11.2006 10:55:00) [0]

Получается, что ты не разбираешься в сетях, по крайней меро про кеширование не слышал.

← →
RASkov (2006-11-29 12:26) [2]

> DelphiN! © (29.11.06 10:55)

А ты пройдись по кабинетам где компы из локалки стоят, может в каком кобинете новый комп появился...:)
И потом сделай for n:= 0 to 5 do SetComputerName("NewCompName"+IntToStr(N));
Во... кайф, скока сразу компов новых....
Жаль, что после обновления кэша они пропадают:(

← →
BiN © (2006-11-29 12:30) [3]

> И потом сделай for n:= 0 to 5 do SetComputerName("NewCompName"+IntToStr(N));

Лучше просто
for n:= 0 to 5 do SetComputerName("NewCompName");

← →
RASkov (2006-11-29 12:39) [4]

> BiN © (29.11.06 12:30) [3]

Пардон, имелось ввиду примерно следующее:
var
lpInfo: ^ array [0..0] of SERVER_INFO_101;

NetServerEnum(nil, 101, lpInfo, @dwRead..
For i:=0 to dwRead-1 do
begin
lpInfo[i].sv101_name := "NewCompName";
NetServerSetInfo(nil, 101, @lpInfo[i], 0)
end;

Да, и главное не забыть потом освободить буфер с помощью NetApiBufferFree

-)

Интересный момент при использовании ф-ии SetComputerName Найти похожие ветки