определить контроллер домена

[mshak]

Добрый день. прошу заранее прощение, если буду некорректно излагать свою мысль.
Имеется компьютер, находящийся в домене. как можно программно определить имя домена и как можно определить залогинен локальный пользователь или доменный? т.к. предполагается что программа будет запускаться в различных сетях, с различной структурой.
нужно для использования с winApi

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

Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal UserName As String, ByVal level As Long, bufptr As Long) As Long


в качестве первого параметра. Имя пользователя получаю с помощью

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

Private Declare Function GetUserNameW Lib "advapi32.dll" (lpBuffer As Byte, nSize As Long) As Long


--------------------
мучался долго.. ... в итоге нашел след способ:

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

    Dim wshNet As WshNetwork
    Dim strDomain As String
    Set wshNet = CreateObject("WScript.Network")
    strDomain = wshNet.UserDomain
    Label3.Caption = strDomain


а через WinApi никто не знает как сделать?

[Viper]

Определить контроллер домена можно, например, при помощи функции NetServerEnum.
З.Ы. Где-то на форуме я помнится некоторое время назад выкладывал модуль для работы с сетью. Можно попробовать поискать.

[mshak]

возникла еще одна проблема... получаю я контроллер домена при помощи NetGetDCName
и если вызывать

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

    ret = NetUserGetInfo(StrConv(strServer, vbUnicode), StrConv(strUserName, vbUnicode), 3, lpBuf)

где strServer - адрес контроллера домена (допустим для примера "\\server"
а strUserName="testUser"
то в структуре UserInfo, определяется как
Dim UserInfo As USER_INFO_3
а потом в нее заношу через
Call MoveMemory(UserInfo, ByVal lpBuf, Len(UserInfo))
то UserInfo.Privilege равняется USER_PRIV_USER хотя пользователь добавлен в локальную группу администраторов.
как можно узнать что он действительно в группе локальных администраторов?
если вызывать NetUserGetInfo с первым параметром "" то возвращается ошибка что пользователь не найден.