| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя компьютера юзера [D6, IB6.x]

Жук ©   (2003-03-07 13:12:00) 

Можно ли как-то вытащить имя компа, с которого юзер законнектился к базе ? Если да, то как ?

---

Жук   (2003-03-07 13:46:00) [1]

ОК. Всем спасибо.

---

Val   (2003-03-07 13:35:00) [2]

>Жук © (07.03.03 13:16)
немного неверный подход - сначала следует нагибать юзера, который прое..л конфиденциальную информацию :)

---

Alexandr   (2003-03-07 13:32:00) [3]

да, а мож на парадоксе такая функция есть, а?
Да и имя компьютера весьма относительно...

---

Соловьев   (2003-03-07 13:30:00) [4]

Это конечно пробел в IB...

---

Alexandr   (2003-03-07 13:29:00) [5]

никак.

---

Жук   (2003-03-07 13:28:00) [6]

А если юзер через IBConsol or Explorer коннектится ?

---

Соловьев   (2003-03-07 13:24:00) [7]

я например, когда, конектится юзер сразу шлю от клинта привет серверу. Использую TNMHTTP.LocalIP

---

Alexandr   (2003-03-07 13:20:00) [8]

ну есть много способов. Вот один из них

function GetCompName: string;
var
Registry: TRegistry;
a:string;
begin
Registry:=TRegistry.Create;
try
Result:="";
Registry.RootKey:=HKEY_LOCAL_MACHINE;
Registry.OpenKey("\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName",False);
try
a:=Registry.ReadString("ComputerName");
a:=OEMtoANSIStr(a);
Result := a;
except
end;
finally
Registry.CloseKey;
Registry.Free;
if Result = "" then Result := "Unknown";
end;
end;


---

Жук   (2003-03-07 13:16:00) [9]

Чтобы пойти и спросить, какого хрена он под чужим логином законнектился, и откуда у него эта инфа. :-)

---

Smashich   (2003-03-07 13:13:00) [10]

а на крена?

---

Наверх