Главная страница
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.036 c
1-1079961427
Tyama
2004-03-22 16:17
2004.04.11
2 звука одновременно


1-1079714066
sherminator
2004-03-19 19:34
2004.04.11
перевод типов


1-1079949902
Ozone
2004-03-22 13:05
2004.04.11
MS Video Control (ActiveX)


3-1081926168
Manfred7
2004-04-14 11:02
2004.04.11
Возможна ли фильтрация записей в детализирующей таблице


3-1081584601
Алексей (Гость)
2004-04-10 12:10
2004.04.11
Как обратиться из запроса к значению MaskEdit?