Форум: "Сети";
Текущий архив: 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.042 c