dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: NT
Expertise: Beginner
Oct 22, 1999

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


Using NetAddUsers

Question:
I created a program to Add User Account to my NT Server. It reads from a text file which provides the user info. Everything works fine, except that the user's full name takes the value from the user id. I used USER_INFO_2 and I specified the flag usri2_full_name to take the values from the text file (the value has been changed to unicode). This really puzzles me as the rest works fine. Please advice.

Answer:
It's really hard to say without seeing both the code and the declares, but there are lots of way to go wrong with the unicode functions, and only a couple of ways to do it correctly. The following VB code will allow you to add users, including full names, to either the local machine or the server.

' ***********************************************
' IN A MODULE (*.BAS) FILE
' ***********************************************
Option Explicit

Private Declare Function lstrlenW _
   Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Sub CopyMem _
 Lib "kernel32" Alias "RtlMoveMemory" _
 (pTo As Any, _
  uFrom As Any, _
  ByVal lSize As Long)

' **************************************************' Inputs       : ByVal xi_lngStrPtr:Long  -- Pointer to a string
' Outputs      : String: Translated string
' Description  : When passed a pointer to a string,
'              :     return that string
' **************************************************Public Function PointerToStringW(xi_lngPtrString As Long) As String
On Error Resume Next                 ' Don't accept error here
 Dim p_abytBuffer()                As Byte
 Dim p_lngLength                   As Long

 If xi_lngPtrString <> 0 Then
    p_lngLength = lstrlenW(xi_lngPtrString) * 2
    If p_lngLength Then
       ReDim p_abytBuffer(0 To (p_lngLength - 1)) As Byte
       CopyMem p_abytBuffer(0), ByVal xi_lngPtrString, p_lngLength
       PointerToStringW = p_abytBuffer
    End If
 End If
   
On Error GoTo 0
End Function

' **************************************************' Inputs       : ByVal xi_lngDWord:Long  -- Pointer to a DWord
' Outputs      : String: Pointer
' Description  : When passed a DWord, return a pointer to
'              :   that DWord
' **************************************************Public Function PointerToDWord(xi_lngDWord As Long) As Long
On Error Resume Next               ' Don't accept error here
 Dim p_lngRtn                    As Long
   
 If xi_lngDWord <> 0 Then
    CopyMem p_lngRtn, ByVal xi_lngDWord, 4
    PointerToDWord = p_lngRtn
 End If
   
On Error GoTo 0
End Function

' ***********************************************
' IN A FORM (*.FRM) FILE
' ***********************************************
Option Explicit

' ---------------------------------------------
' API calls
' ---------------------------------------------
Private Declare Function NetUserAdd _
   Lib "netapi32.dll" _
   (ServerName As Byte, _
    ByVal Level As Long, _
    Buffer As USER_INFO_3, _
    parm_err As Long) As Long

' ---------------------------------------------
' Possible errors with API call
' ---------------------------------------------
Private Const ERROR_ACCESS_DENIED    As Long = 5
Private Const NERR_BASE              As Long = 2100
Private Const NERR_GroupExists       As Long = NERR_BASE + 123
Private Const NERR_NotPrimary        As Long = NERR_BASE + 126
Private Const NERR_UserExists        As Long = NERR_BASE + 124
Private Const NERR_PasswordTooShort  As Long = NERR_BASE + 145
Private Const NERR_InvalidComputer   As Long = NERR_BASE + 251

' ---------------------------------------------
' General constants used
' ---------------------------------------------
Private Const constUserInfoLevel3    As Long = 3
Private Const TIMEQ_FOREVER          As Long = -1&
Private Const MAX_PATH               As Long = 260&
Private Const DOMAIN_GROUP_RID_USERS As Long = &H201&
Private Const USER_MAXSTORAGE_UNLIMITED As Long = -1&

' ---------------------------------------------
' Used by usri3_flags element of data structure
' ---------------------------------------------
Private Const UF_SCRIPT              As Long = &H1&
Private Const UF_ACCOUNTDISABLE      As Long = &H2&
Private Const UF_HOMEDIR_REQUIRED    As Long = &H8&
Private Const UF_LOCKOUT             As Long = &H10&
Private Const UF_PASSWD_NOTREQD      As Long = &H20&
Private Const UF_PASSWD_CANT_CHANGE  As Long = &H40&
Private Const UF_DONT_EXPIRE_PASSWD  As Long = &H10000
Private Const STILL_ACTIVE           As Long = &H103&
Private Const UF_NORMAL_ACCOUNT      As Long = &H200&
Private Const UF_SERVER_TRUST_ACCOUNT  As Long = &H2000&
Private Const PROCESS_QUERY_INFORMATION  As Long = &H400&
Private Const UF_TEMP_DUPLICATE_ACCOUNT   As Long = &H100&
Private Const UF_INTERDOMAIN_TRUST_ACCOUNT   As Long = &H800&
Private Const UF_WORKSTATION_TRUST_ACCOUNT   As Long = &H1000&

' ---------------------------------------------
' The USER_INFO_3 data structure
' ---------------------------------------------
Private Type USER_INFO_3
 usri3_name            As Long
 usri3_password        As Long
 usri3_password_age    As Long
 usri3_priv            As Long
 usri3_home_dir        As Long
 usri3_comment         As Long
 usri3_flags           As Long
 usri3_script_path     As Long
 usri3_auth_flags      As Long
 usri3_full_name       As Long
 usri3_usr_comment     As Long
 usri3_parms           As Long
 usri3_workstations    As Long
 usri3_last_logon      As Long
 usri3_last_logoff     As Long
 usri3_acct_expires    As Long
 usri3_max_storage     As Long
 usri3_units_per_week  As Long
 usri3_logon_hours     As Long
 usri3_bad_pw_count    As Long
 usri3_num_logons      As Long
 usri3_logon_server    As Long
 usri3_country_code    As Long
 usri3_code_page       As Long
 usri3_user_id         As Long
 usri3_primary_group_id As Long
 usri3_profile          As Long
 usri3_home_dir_drive   As Long
 usri3_password_expired As Long
End Type

Private Sub Command2_Click()
  Dim p_blnRtn                      As Boolean
   
 On Error Resume Next
 p_blnRtn = AddUser(xi_strServerName:="PDCNEW", _
                    xi_strUserName:="MyUser1", _
                    xi_strPassword:="ABCDEF", _
                    xi_strUserFullName:="Long Name for MyUser", _
                    xi_strUserComment:="This is a comment")
 If Err.Number <> 0 Then
    MsgBox "Error: " & Err.Description & " in the function " & Err.Source
 End If
   
End Sub

' **********************************************
' Add a user either to NT -- you *MUST* have admin or
'     account operator priviledges to successfully run
'     this function
' **********************************************
Public Function AddUser(ByVal xi_strServerName As String, _
                      ByVal xi_strUserName As String, _
                      ByVal xi_strPassword As String, _
                      Optional ByVal xi_strUserFullName As String = vbNullString, _
                      Optional ByVal xi_strUserComment As String = vbNullString) As Boolean
 Dim p_strErr                      As String
 Dim p_lngRtn                      As Long
 Dim p_lngPtrUserName              As Long
 Dim p_lngPtrPassword              As Long
 Dim p_lngPtrUserFullName          As Long
 Dim p_lngPtrUserComment           As Long
 Dim p_lngParameterErr             As Long
 Dim p_lngFlags                    As Long
 Dim p_abytServerName()            As Byte
 Dim p_abytUserName()              As Byte
 Dim p_abytPassword()              As Byte
 Dim p_abytUserFullName()          As Byte
 Dim p_abytUserComment()           As Byte
 Dim p_strServerName               As String
 Dim p_typUserInfo3                As USER_INFO_3
    
 If xi_strUserFullName = vbNullString Then
    xi_strUserName = xi_strUserName
 End If
   
 If Len(xi_strServerName) < 1 Then
    p_strServerName = ""
 Else
    p_strServerName = UCase$(xi_strServerName)
    If Left$(p_strServerName, 2) <> "\\" Then
       p_strServerName = "\\" & p_strServerName
    End If
 End If
   
   
   ' ------------------------------------------
   ' Create byte arrays to avoid Unicode hassles
   ' ------------------------------------------
 p_abytServerName = p_strServerName & vbNullChar
 p_abytUserName = xi_strUserName & vbNullChar
 p_abytUserFullName = xi_strUserFullName & vbNullChar
 p_abytPassword = xi_strPassword & vbNullChar
 p_abytUserComment = xi_strUserComment & vbNullChar
   
 ' ------------------------------------------
 ' Get pointers to the byte arrays
 ' ------------------------------------------
 p_lngPtrUserName = VarPtr(p_abytUserName(0))
 p_lngPtrUserFullName = VarPtr(p_abytUserFullName(0))
 p_lngPtrPassword = VarPtr(p_abytPassword(0))
 p_lngPtrUserComment = VarPtr(p_abytUserComment(0))
 
 ' ------------------------------------------
 ' Fill the VB structure
 ' ------------------------------------------
 p_lngFlags = UF_NORMAL_ACCOUNT Or _
              UF_SCRIPT Or _
              UF_DONT_EXPIRE_PASSWD
 With p_typUserInfo3
    .usri3_acct_expires = TIMEQ_FOREVER            ' Never expires
    .usri3_comment = p_lngPtrUserComment           ' Comment
    .usri3_flags = p_lngFlags                      ' There are a number of variations
    .usri3_full_name = p_lngPtrUserFullName        ' User's full name
    .usri3_max_storage = USER_MAXSTORAGE_UNLIMITED   ' Can use any amount of disk space
    .usri3_name = p_lngPtrUserName                   ' Name of user account
    .usri3_password = p_lngPtrPassword               ' Password for user account
    .usri3_primary_group_id = DOMAIN_GROUP_RID_USERS ' You MUST use this constant for NetUserAdd
    .usri3_script_path = 0&     ' Path of user's logon script
    .usri3_auth_flags = 0&      ' Ignored by NetUserAdd
    .usri3_bad_pw_count = 0&    ' Ignored by NetUserAdd
    .usri3_code_page = 0&       ' Code page for user's language
    .usri3_country_code = 0&    ' Country code for user's language
    .usri3_home_dir = 0&        ' Can specify path of home directory of this user
    .usri3_home_dir_drive = 0&  ' Drive letter assign to user's profile
    .usri3_last_logoff = 0&     ' Not needed when adding a user
    .usri3_last_logon = 0&      ' Ignored by NetUserAdd
    .usri3_logon_hours = 0&     ' Null means no restrictions
    .usri3_logon_server = 0&    ' Null means logon to domain server
    .usri3_num_logons = 0&      ' Ignored by NetUserAdd
    .usri3_parms = 0&           ' Used by specific applications
    .usri3_password_age = 0&    ' Ignored by NetUserAdd
    .usri3_password_expired = 0& ' None-zero means user must change password at next logon
    .usri3_priv = 0&            ' Ignored by NetUserAdd
    .usri3_profile = 0&         ' Path to a user's profile
    .usri3_units_per_week = 0&  ' Ignored by NetUserAdd
    .usri3_user_id = 0&         ' Ignored by NetUserAdd
    .usri3_usr_comment = 0&     ' User comment
    .usri3_workstations = 0&    ' Workstations a user can log onto (null = all stations)
   End With
   
' ------------------------------------------
' Attempt to add the user
' ------------------------------------------
 p_lngRtn = NetUserAdd(p_abytServerName(0), _
                       constUserInfoLevel3, _
                       p_typUserInfo3, _
                       p_lngParameterErr)
   
' ------------------------------------------
' Check for error
' ------------------------------------------
 If p_lngRtn <> 0 Then
    AddUser = False
    Select Case p_lngRtn
       Case ERROR_ACCESS_DENIED
          p_strErr = "User doesn't have sufficient access rights."
       Case NERR_GroupExists
          p_strErr = "The group already exists."
       Case NERR_NotPrimary
          p_strErr = "Can only do this operation on the PDC of the domain."
       Case NERR_UserExists
          p_strErr = "The user account already exists."
       Case NERR_PasswordTooShort
          p_strErr = "The password is shorter than required."
       Case NERR_InvalidComputer
          p_strErr = "The computer name is invalid."
       Case Else
          p_strErr = "Unknown error #" & CStr(p_lngRtn)
    End Select
      
    On Error GoTo 0
    Err.Raise Number:=p_lngRtn, _
              Description:=p_strErr & vbCrLf & _
                           "Error in parameter " & p_lngParameterErr & _
                           " when attempting to add the user, " & xi_strUserName, _
              Source:="Form1.AddUser"
 Else
    AddUser = True
 End If

End Function
DevX Pro
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date