NetLocalGroupAddMembers API 调用出玩124错误,是什么原因?

Question

我在VB中调用了NetLocalGroupAddMembers这个函数,但在运行时出玩了124错误,请问下是什么原因造成的?应该如何解决?
我的原码下如:
Public Type LOCALGROUP_MEMBERS_INFO_3
    Name As String
End Type
Public Declare Function NetLocalGroupAddMembers Lib "netapi32.dll" (serverName As Byte, groupName As Byte, _
    level As Long, buf As Any, TotalEntries As Long) As Long
Public Function AddUserToLocalGroup(ByVal serverName As String, ByVal groupName As String, ByVal userName As String, ByRef returnString As String) As Boolean
On Error GoTo AddUserToLocalGroupErr
    Dim serverArray() As Byte, groupArray() As Byte, Result   As Long
    Dim userInfo As LOCALGROUP_MEMBERS_INFO_3
    
    AddUserToLocalGroup = False
    
    serverArray = serverName & vbNullChar
    groupArray = groupName & vbNullChar
    userInfo.Name = StrConv(userName, vbUnicode)
    
    Result = 0
    Result = NetLocalGroupAddMembers(serverArray(0), groupArray(0), 3, userInfo, 1)    If Result <> 0 Then GoTo AddUserToLocalGroupErr
    
    returnString = Format(Now, "yyyy-mm-dd hh:mm:ss") + ":  成功添加用户" + userName + "到组" + groupName + "中! " + Chr(13) + Chr(10)
    AddUserToLocalGroup = True
    Exit Function
AddUserToLocalGroupErr:
    returnString = Format(Now, "yyyy-mm-dd hh:mm:ss") + ":  添加用户" + userName + "到组" + groupName + "时出错! " + Err.Description + Chr(13) + Chr(10)
End Function

Answer 1

看这里有篇文章
http://www.xuevb.net/modules/news/article.php?storyid=577

Answer 2

我在MSDN上查了看是说第三个参数 level不合法,为什么?
MSDN上关于NetLocalGroupAddMembers 这个函数的说明就是要用3 的啊!
晕

Answer 3

整理了下，下面的代码可以直接用了Option Explicit
Private Const NERR_Success = 0
Private Const ERROR_MORE_DATA = 234&
Private Const MAX_PREFERRED_LENGTH = -1&
Private Const LG_INCLUDE_INDIRECT = &H1
Private Const User_Priv_User = &H1
Private Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Const NERR_BASE = 2100
Private Const MAX_NERR = NERR_BASE + 899
Private Const LOAD_LIBRARY_AS_DATAFILE = &H2
Private Const FORMAT_MESSAGE_FROM_HMODULE = &H800Private Type TUser1                    ' Level 1
    ptrName As Long
    ptrPassword As Long
    dwPasswordAge As Long
    dwPriv As Long
    ptrHomeDir As Long
    ptrComment As Long
    dwFlags As Long
    ptrScriptPath As Long
End TypePrivate Type USER_INFO_0
    usri0_name As Long
End TypePrivate Type LOCALGROUP_INFO_0
    lgrpi0_name As Long
End TypePrivate Type LOCALGROUP_USER_INFO_0
    lgrui0_name As Long
End TypePrivate Type UserInfo_1
    Username As String
    Password As String
    PasswordAge As Long
    Privilege As Long
    HomeDir As String
    Comment As Long
    Flags As Long
    ScriptPath As String
End TypePrivate Type LOCALGROUP_MEMBERS_INFO_3
    lgrmi3_domainandname As Long
End TypePrivate Type USER_INFO_1003
    usri1003_password As Long
End TypePrivate Usr1 As UserInfo_1'用户所在组
Private Declare Function NetUserGetLocalGroups Lib "netapi32.dll" (ByVal ServerName As String, ByVal Username As String, ByVal Level As Long, ByVal flag As Long, bufptr As Any, ByVal prefmaxlen As Long, entriesread As Long, totalentries As Long) As Long
'本地组
Private Declare Function NetLocalGroupEnum Lib "netapi32.dll" (ByVal ServerName As String, ByVal Level As Long, bufptr As Any, ByVal prefmaxlen As Long, entriesread As Long, totalentries As Long, resumehandle As Long) As Long
Private Declare Function lstrlen Lib "Kernel32.dll" Alias "lstrlenW" (ByVal lpszString As Long) As Long
Private Declare Function lstrcpy Lib "Kernel32.dll" Alias "lstrcpyW" (lpszString1 As Any, lpszString2 As Any) As Long
Private Declare Function NetApiBufferFree Lib "netapi32.dll" (ByVal Buffer As Long) As Long
Declare Sub RtlMoveMemory Lib "Kernel32.dll" (Destination As Any, Source As Any, ByVal Length As Long)
'添加用户
Private Declare Function NetUserAdd Lib "Netapi32" (ByVal ServerName As String, ByVal Level As Long, Buffer As Any, ParamErr As Long) As Long
'用户列表
Private Declare Function NetUserEnum Lib "netapi32.dll" (ByVal ServerName As String, ByVal Level As Long, ByVal filter As Long, bufptr As Any, ByVal prefmaxlen As Long, entriesread As Long, totalentries As Long, resume_handle As Long) As Long
'添加到本地组
Private Declare Function NetLocalGroupAddMembers Lib "netapi32.dll" (ByVal ServerName As String, ByVal GroupName As String, ByVal Level As Long, buf As Any, ByVal totalentries As Long) As Long
'删除用户
Private Declare Function NetUserDel Lib "netapi32.dll" (ServerName As Byte, Username As Byte) As Long
'从组中删除用户
Private Declare Function NetGroupDelUser Lib "netapi32.dll" (ServerName As Byte, GroupName As Byte, Username As Byte) As Long
'修改密码
Private Declare Function NetUserChangePassword Lib "netapi32.dll" (ByVal domainname As String, ByVal Username As String, ByVal OldPassword As String, ByVal NewPassword As String) As Long
Private Declare Function NetGetDCName Lib "netapi32.dll" (ServerName As Long, domainname As Byte, bufptr As Long) As Long
Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Private Declare Function NetUserSetInfo Lib "netapi32.dll" (ByVal ServerName As String, ByVal Username As String, ByVal Level As Long, UserInfo As Any, ParmError As Long) As Long
Private Declare Sub lstrcpyW Lib "kernel32" (dest As Any, ByVal src As Any)
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, ByVal lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long'函数部分'修改密码Public Function ChangePassword(ByVal ServerName As String, ByVal Username As String, ByVal OldPassword As String, ByVal NewPassword As String)
    Dim strServer As String, strUserName As String
    Dim strNewPassword As String, strOldPassword As String
    Dim UI1003 As USER_INFO_1003
    Dim dwLevel As Long
    Dim lRet As String
    Dim sNew As String
    
    'strServer = StrConv(ServerName, vbUnicode)
    strUserName = StrConv(Username, vbUnicode)
    'strOldPassword = StrConv(OldPassword, vbUnicode)
    strNewPassword = StrConv(NewPassword, vbUnicode)
    If Left(ServerName, 2) = "\\" Then
        strServer = StrConv(ServerName, vbUnicode)
    Else
        ' Domain was referenced, get the Primary Domain Controller
        strServer = StrConv(GetPrimaryDCName(ServerName), vbUnicode)
    End If
    If OldPassword = "" Then
         ' Administrative over-ride of existing password.
         ' Does not require old password        dwLevel = 1003
        sNew = NewPassword
        UI1003.usri1003_password = StrPtr(sNew)
        lRet = NetUserSetInfo(strServer, strUserName, dwLevel, UI1003, 0&)
    Else
         ' Set the Old Password and attempt to change the user's password
        strOldPassword = StrConv(OldPassword, vbUnicode)
        lRet = NetUserChangePassword(strServer, strUserName, strOldPassword, strNewPassword)
    End If
    If lRet <> 0 Then
         DisplayError lRet
    Else
         MsgBox "Password Change was Successful"
    End If
End FunctionPrivate Sub DisplayError(ByVal lCode As Long)
    Dim sMsg As String
    Dim sRtrnCode As String
    Dim lFlags As Long
    Dim hModule As Long
    Dim lRet As Long    hModule = 0
    sRtrnCode = Space$(256)
    lFlags = FORMAT_MESSAGE_FROM_SYSTEM    ' if lRet is in the network range, load the message source    If (lCode >= NERR_BASE And lCode <= MAX_NERR) Then
        hModule = LoadLibraryEx("netmsg.dll", 0&, LOAD_LIBRARY_AS_DATAFILE)        If (hModule <> 0) Then
            lFlags = lFlags Or FORMAT_MESSAGE_FROM_HMODULE
        End If    End If    ' Call FormatMessage() to allow for message text to be acquired
    ' from the system or the supplied module handle.
    '    lRet = FormatMessage(lFlags, hModule, lCode, 0&, _
                             sRtrnCode, 256&, 0&)
    If lRet = 0 Then
        MsgBox "FormatMessage Error : " & Err.LastDllError
    End If    ' if you loaded a message source, unload it.
    '
    If (hModule <> 0) Then
        FreeLibrary (hModule)
    End If    '//... now display this string
    sMsg = "ERROR: " & lCode & " - " & sRtrnCode    MsgBox sMsgEnd Sub

Answer 4

Private Function GetPrimaryDCName(ByVal DName As String) As String
    Dim DCName As String, DCNPtr As Long
    Dim DNArray() As Byte, DCNArray(100) As Byte
    Dim result As Long    DNArray = DName & vbNullChar
    ' Lookup the Primary Domain Controller
    result = NetGetDCName(0&, DNArray(0), DCNPtr)
    If result <> 0 Then
        MsgBox "Error: " & result
        Exit Function
    End If
    lstrcpyW DCNArray(0), DCNPtr
    result = NetApiBufferFree(DCNPtr)
    DCName = DCNArray()
    GetPrimaryDCName = Left(DCName, InStr(DCName, Chr(0)) - 1)End Function'添加用户
Public Function UserAdd(ByVal ServerName As String, ByVal Username As String, ByVal Password As String) As String
    ServerName = StrConv(ServerName, vbUnicode)
    Usr1.Username = StrConv(Username, vbUnicode)
    Usr1.Password = StrConv(Password, vbUnicode)
    Usr1.Privilege = User_Priv_User
    Usr1.Comment = 0
    Usr1.Flags = 0
    UserAdd = NetUserAdd(ServerName, 1, Usr1, 0)
End Function'添加用户到组
Public Function AddUserToGroup(ByVal ServerName As String, ByVal GroupName As String, ByVal Username As String) As Long
    Dim lngWin32apiResultCode As Long
    Dim strServerName         As String
    Dim strLocalGroupName     As String
    Dim lngBufPtr             As Long
    Dim udtLGMemInfo          As LOCALGROUP_MEMBERS_INFO_3
    Dim strName               As String
    
    strServerName = StrConv(ServerName, vbUnicode)
    strLocalGroupName = StrConv(GroupName, vbUnicode)
    'strName = StrConv(UserName, vbUnicode)
    strName = Username
    
    udtLGMemInfo.lgrmi3_domainandname = StrPtr(strName)
    lngWin32apiResultCode = NetLocalGroupAddMembers(strServerName, strLocalGroupName, 3, udtLGMemInfo, 1)
    NetApiBufferFree lngBufPtr
End Function'列举用户
Public Sub EnumUsers(cboUsers As ComboBox)
    Dim lngWin32apiResultCode As Long
    Dim strServerName         As String
    Dim lngBufPtr             As Long
    Dim lngMaxLen             As Long
    Dim lngEntriesRead        As Long
    Dim lngTotalEntries       As Long
    Dim lngResumeHandle       As Long
    Dim udtUserInfo0          As USER_INFO_0
    Dim lngEntry              As Long
    
    strServerName = StrConv("", vbUnicode)
    Do
        lngWin32apiResultCode = NetUserEnum(strServerName, 0, 0, lngBufPtr, lngMaxLen, lngEntriesRead, lngTotalEntries, lngResumeHandle)
        If (lngWin32apiResultCode = NERR_Success) Or (lngWin32apiResultCode = ERROR_MORE_DATA) Then
            For lngEntry = 0 To lngEntriesRead - 1
                RtlMoveMemory udtUserInfo0, ByVal lngBufPtr + Len(udtUserInfo0) * lngEntry, Len(udtUserInfo0)
                cboUsers.AddItem PointerToString(udtUserInfo0.usri0_name)
            Next
        End If
        If lngBufPtr <> 0 Then
            NetApiBufferFree lngBufPtr
        End If
    Loop Until lngEntriesRead = lngTotalEntries
End Sub'列举本地组
Public Sub EnumLocalGroups(lstLocalGroups As ListBox)
    Dim lngWin32apiResultCode As Long
    Dim strServerName         As String
    Dim lngBufPtr             As Long
    Dim lngEntriesRead        As Long
    Dim lngTotalEntries       As Long
    Dim lngResumeHandle       As Long
    Dim udtLGInfo0            As LOCALGROUP_INFO_0
    Dim lngEntry              As Long
    
    lstLocalGroups.Clear
    strServerName = StrConv("", vbUnicode)
    Do
        lngWin32apiResultCode = NetLocalGroupEnum(strServerName, 0, lngBufPtr, MAX_PREFERRED_LENGTH, lngEntriesRead, lngTotalEntries, lngResumeHandle)
        If (lngWin32apiResultCode = NERR_Success) Or (lngWin32apiResultCode = ERROR_MORE_DATA) Then
            For lngEntry = 0 To lngEntriesRead - 1
                RtlMoveMemory udtLGInfo0, ByVal lngBufPtr + Len(udtLGInfo0) * lngEntry, Len(udtLGInfo0)
                lstLocalGroups.AddItem PointerToString(udtLGInfo0.lgrpi0_name)
            Next
        End If
        If lngBufPtr <> 0 Then
            NetApiBufferFree lngBufPtr
        End If
    Loop While lngWin32apiResultCode = ERROR_MORE_DATA
End Sub'用户所在组
Public Sub EnumUserLocalGroups(lstUserLocalGroups As ListBox, lstLocalGroups As ListBox, cmbUser As ComboBox)    Dim lngWin32apiResultCode As Long
    Dim strServerName   As String
    Dim strUserName     As String
    Dim lngBufPtr       As Long
    Dim lngEntriesRead  As Long
    Dim lngTotalEntries As Long
    Dim lngResumeHandle As Long
    Dim udtLGInfo0      As LOCALGROUP_USER_INFO_0
    Dim lngEntry        As Long
    Dim strLocalGroup   As String
    Dim lngListCounter  As Long
    
    lstUserLocalGroups.Clear
    strServerName = StrConv("", vbUnicode)
    strUserName = StrConv(cmbUser.Text, vbUnicode)
    Do
        lngWin32apiResultCode = NetUserGetLocalGroups(strServerName, strUserName, 0, LG_INCLUDE_INDIRECT, lngBufPtr, MAX_PREFERRED_LENGTH, lngEntriesRead, lngTotalEntries)
        If (lngWin32apiResultCode = NERR_Success) Or (lngWin32apiResultCode = ERROR_MORE_DATA) Then
            For lngEntry = 0 To lngEntriesRead - 1
                RtlMoveMemory udtLGInfo0, ByVal lngBufPtr + Len(udtLGInfo0) * lngEntry, Len(udtLGInfo0)
                strLocalGroup = PointerToString(udtLGInfo0.lgrui0_name)
                lstUserLocalGroups.AddItem strLocalGroup
                'With lstLocalGroups
                    'For lngListCounter = 0 To .ListCount - 1
                        'If strLocalGroup = .List(lngListCounter) Then
                            '.RemoveItem (lngListCounter)
                        'End If
                    'Next
                'End With
            Next
        End If
        If lngBufPtr <> 0 Then
            NetApiBufferFree lngBufPtr
        End If
    Loop Until lngEntriesRead = lngTotalEntries
End Sub'删除用户Public Function DelUser(ByVal SName As String, ByVal UName As String) As Long
    Dim UNArray() As Byte, SNArray() As Byte
    UNArray = UName & vbNullChar
    SNArray = SName & vbNullChar
    DelUser = NetUserDel(SNArray(0), UNArray(0))
End FunctionPrivate Function PointerToString(ByVal dwData As Long) As String
   Dim tmp()            As Byte
   Dim tmplen           As Long
   If dwData <> 0 Then
      tmplen = lstrlen(dwData) * 2
      If tmplen <> 0 Then
         ReDim tmp(0 To (tmplen - 1)) As Byte
         RtlMoveMemory tmp(0), ByVal dwData, tmplen
         PointerToString = tmp
      End If
   End If
End Function