| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Определить сетевое имя пользователя [D6, Win95/98, Win2k, WinXP]

СергейМ ©   (2004-02-02 08:26:00) 

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

---

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

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

---

LordBTR   (2004-02-02 17:38:00) [2]

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

---

Soi   (2004-02-02 17:32:00) [3]

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

---

LordBTR   (2004-02-02 16:39:00) [4]

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

---

Soi   (2004-02-02 11:07:00) [5]

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

---

Soi   (2004-02-02 11:05:00) [6]

//Определение имени домена 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; //Конец функций

---

Наверх