Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

 
СергейМ   (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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.043 c
3-1081923497
loger
2004-04-14 10:18
2004.04.11
D5-Access


7-1080213943
jetty
2004-03-25 14:25
2004.04.11
Секундомер (от системного таймера)


3-1081599322
Locker
2004-04-10 16:15
2004.04.11
Ограничение длины результирующих полей


6-1079489907
Gym
2004-03-17 05:18
2004.04.11
TIdFTPServer.OnStoreFile


7-1075199063
Sour
2004-01-27 13:24
2004.04.11
Почтовый клиент по умолчанию





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский