Имам следния код (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 клиентска рамка.