Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Имя компьютера юзера   Найти похожие ветки 

← →
Жук ©   (2003-03-07 13:12) [0]

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

---

← →
Smashich ©   (2003-03-07 13:13) [1]

а на крена?

---

← →
Жук ©   (2003-03-07 13:16) [2]

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

---

← →
Alexandr ©   (2003-03-07 13:20) [3]

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

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:24) [4]

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

---

← →
Жук ©   (2003-03-07 13:28) [5]

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

---

← →
Alexandr ©   (2003-03-07 13:29) [6]

никак.

---

← →
Соловьев ©   (2003-03-07 13:30) [7]

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

---

← →
Alexandr ©   (2003-03-07 13:32) [8]

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

---

← →
Val ©   (2003-03-07 13:35) [9]

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

---

← →
Жук ©   (2003-03-07 13:46) [10]

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

---

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

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c