Скачать: CL | DM;

Интересный момент при использовании ф-ии 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]

Это что бы они все в одном кабинете появились:)

---

← →
BiN ©   (2006-11-29 12:50) [5]

> 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

-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c