Главная страница
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.028 c
3-1081831042
_новый_
2004-04-13 08:37
2004.04.11
Как записать в BLOB поле файл?


8-1076746407
iudjen
2004-02-14 11:13
2004.04.11
только height или witdth на TImage


1-1080090193
lord vader
2004-03-24 04:03
2004.04.11
Private поля в классах


8-1075965594
mastervel
2004-02-05 10:19
2004.04.11
DirectShow и CDDA


8-1076495169
ГС ТОФ
2004-02-11 13:26
2004.04.11
Работа с компонентом Image