Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
3-87846
Kolyan
2003-03-10 19:28
2003.03.27
При выполнении DELETE FROM ЛА-ЛА-ЛА через ADOQuery - лажа!


3-87836
WoWa
2003-03-10 16:33
2003.03.27
ADO


14-88156
Supreme 2
2003-03-12 15:00
2003.03.27
Соц. опрос:


1-87994
MiXen
2003-03-13 22:02
2003.03.27
замена Yes на Да


14-88172
Anton.
2003-03-10 16:11
2003.03.27
DeleteFile