Имя пользователя в ХР

[Фёдор]

Не подскажете ли как можно получить имя пользователя не так, как он логинится при входе в систему (при загрузке ХР), а так, как оно отображается в меню "Пуск"

[Kurt]

Да простят мою тупость, но не понял, в чем разница?
В чем проявляется разница имен?

[alibek]

Код: Выделить всё

' Используется Active Directory
Public Function GetUserList(FullNamesList As Variant, _
         Optional DomainName As String) As Variant
    ' возвращает полный список юзеров данного домейна.
    ' В аргумент FullNamesList будет положен массив с
    ' полными именами пользователей.
   
    Dim curDomServer As String
    Dim Ulist() As String
    Dim FNlist() As String
   
    ' если  имя домейна не задано при вызове этого метода
    ' берем текущее имя. 
    ' Оно хранится в этом же классе в переменной sCurrentDomain
    If DomainName = "" Then
        curDomServer = sCurrentDomain
    Else
        curDomServer = DomainName
    End If
    Dim sUserInfo
    Dim oIADs As ActiveDs.IADs
    Dim oContainer As ActiveDs.IADsContainer
    Dim oUser As IADsUser
   
   ' Теперь контейнер создается не на полном namespaсe,
   ' а на базе конкретного имени домейна
   Set oContainer = GetObject("WinNT://" + curDomServer)
   ' И нужен нам оттуда именно список пользователей
   ' какие еще фильтры вы можете применять -
   ' можно посмотреть в прилагаемом хелпе
   oContainer.Filter = Array("User")
   ReDim Ulist(0)
   ReDim FNlist(0)
   For Each oIADs In oContainer
      Set oUser = oIADs
      ' заполняем массивы
      ReDim Preserve Ulist(UBound(Ulist) + 1)
      ReDim Preserve FNlist(UBound(FNlist) + 1)
      Ulist(UBound(Ulist)) = oUser.Name
      FNlist(UBound(FNlist)) = oUser.FullName
   Next oIADs

   ' возвращаем значения
   GetUserList = Ulist
   FullNamesList = FNlist
   ' не забываем сбросить референсы в Nothing
   Set oUser = Nothing
   Set oContainer = Nothing
End Function


[Фёдор]

На sCurrentDomain ругается пишет "Not defined". Оно в какой библиотеке находится?

[seelts]

Да простят мою тупость, но не понял, в чем разница?
В чем проявляется разница имен?

а я тоже не понял в чём разница???

[Фёдор]

Да простят мою тупость, но не понял, в чем разница?
В чем проявляется разница имен?

Ну при воде в систему я например ввожу login: yudin, а в меню "Пуск" отбражается "Юдин Фёдор"
PS. Помогите плиз с sCurrentDomain если кто знает, в какой библиотеке лежит

[alibek]

Какая библиотека? Это строковая переменная. Объяви ее в процедуре и задай значение.

[seelts]

Ну при воде в систему я например ввожу login: yudin, а в меню "Пуск" отбражается "Юдин Фёдор"

значит вы сейчас здесь все пытаетесь определить не имя пользователя а его описание...

[alibek]

Описание это Description, а это Full Name.

[seelts]

ну да ...я просто не правильно выразился...но всёравно это не имя пользователя...(точнее оно может с им совпадать , но по определению - это не оно...)