У меня есть следующий код (VB.NET), который предназначен для определения того, относится ли данное имя учетной записи к локальной группе или учетной записи пользователя. Это будет вызываться только для учетных записей/групп на машине, а не для домена.
Module netapi
Private Declare Function NetUserGetInfo Lib "Netapi32.dll" ( _
ByVal ServerName As String, _
ByVal UserName As String, _
ByVal level As Integer, _
ByRef BufPtr As IntPtr) As Integer
Private Declare Function NetLocalGroupGetInfo Lib "Netapi32.dll" ( _
ByVal ServerName As String, _
ByVal GroupName As String, _
ByVal level As Integer, _
ByRef BufPtr As IntPtr) As Integer
Declare Unicode Function NetApiBufferFree Lib "Netapi32.dll" _
(ByRef buffer As IntPtr) As Long
Public Function GetPrincipalType(ByVal MachineName As String, ByVal AccountName As String) As String
Dim bufPtr As IntPtr
Dim lngReturn As Integer = NetUserGetInfo("\\" & MachineName, AccountName, 0, bufPtr)
Console.WriteLine("NetUserGetInfo return value = " & lngReturn)
Call NetApiBufferFree(bufPtr)
bufPtr = IntPtr.Zero
If lngReturn = 0 Then
Return "User"
End If
lngReturn = NetLocalGroupGetInfo("\\" & MachineName, AccountName, 0, bufPtr)
Console.WriteLine("NetLocalGroupGetInfo return value = " & lngReturn)
Call NetApiBufferFree(bufPtr)
bufPtr = IntPtr.Zero
If lngReturn = 0 Then
Return "Group"
End If
Return "NotFound"
End Function
End Module
Моя проблема в том, что вызовы NetUserGetInfo/NetLocalGroupGetInfo всегда возвращают код ошибки 1722 (сервер RPC недоступен). Я пробовал использовать имя локальной машины и имя удаленных серверов Windows, на которых у меня есть права администратора, с тем же результатом.
Если я заменю "\\" & MachineName
на Nothing
, то получу ошибку 2221/2220 (Пользователь/группа не найдена) независимо от того, действительно ли существует учетная запись/группа, на которую ссылается AccountName
.
Пожалуйста помоги. Что я делаю не так?
Обновление: не уверен, поможет ли это, но я пытался запустить описанное выше как на Win 7, так и на Win XP SP3. Моя компиляция нацелена на клиентскую среду .NET 4.0.