Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Определить сетевое имя пользователя   Найти похожие ветки 

 
СергейМ   (2004-02-02 08:26) [0]

Помогите!Срочно
Как можно определить сетевое имя машины и сетевое имя зарегистрированного пользователя, и если пользователь входит в домен, то и имя домена?


 
Soi ©   (2004-02-02 11:05) [1]

//Определение имени доменаfunction GetNTDomainName: string;
var
hReg: TRegistry;
begin
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.OpenKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", false);
Result := hReg.ReadString( "DefaultDomainName" );
hReg.CloseKey;
hReg.Destroy;
end;
//Конец функции

//Вычисление имени компьютераfunction GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := ""
end;
//Конец функции

//Вычисление имени пользователяFunction GetUserFromWindows: string;
Var
UserName    : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
If GetUserName(PChar(UserName), UserNameLen) Then
Result := Copy(UserName,1,UserNameLen - 1)
Else
Result := "Unknown";
End;
//Конец функций


 
Soi ©   (2004-02-02 11:07) [2]

Под Ntшкой и XP работает без проблем (у меня по крайней мере), под остальными осями незнаю. Должно пахать.


 
LordBTR   (2004-02-02 16:39) [3]

Вопрос вдогонку: А как определить группу в домене, к которой принадлежит пользователь?


 
Soi ©   (2004-02-02 17:32) [4]

Удалено модератором
Примечание: Личная переписка...


 
LordBTR   (2004-02-02 17:38) [5]

Удалено модератором
Примечание: Личная переписка...


 
СергейМ   (2004-02-02 17:46) [6]

Спасибо! Очень выручили!



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

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

Наверх




Память: 0.47 MB
Время: 0.032 c
1-1082841875
hiperLogun
2004-04-25 01:24
2004.04.11
Установка компонентов


9-1065605196
x22n
2003-10-08 13:26
2004.04.11
Перемещение. Шаги игрока.


1-1082042322
Erik
2004-04-15 19:18
2004.04.11
Анализ структуры файла.


8-1076386138
scorpi
2004-02-10 07:08
2004.04.11
OpenGL


3-1079438351
jack128
2004-03-16 14:59
2004.04.11
EditButtons в DBGridEh