Search
Module:
Directory

   Desktop Functions:

   Smart Device Functions:


Show Recent Changes
Subscribe (RSS)
Misc. Pages
Comments
FAQ
Helpful Tools
Playground
Suggested Reading
Website TODO List
Download Visual Studio Add-In

NetUserAdd (netapi32)
 
.
Summary
Adds a user account.

C# Signature:

[DllImport("netapi32.dll", CharSet=CharSet.Unicode, SetLastError=true)]
private static extern int NetUserAdd(
     [MarshalAs(UnmanagedType.LPWStr)] string servername,
     UInt32 level,
     IntPtr userInfo,
     out UInt32 parm_err);

VB Signature:

Private Declare Function NetUserAdd Lib "Netapi32.dll" ( _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal servername As String, _
    ByVal level As Integer, _
    ByRef buf As USER_INFO_1, _
    ByRef param_error As Integer) As Integer

User-Defined Types:

USER_INFO_1

Alternative Managed API:

Do you know one? Please contribute it!

Notes:

If the method will only be used with a single user info level, then the userInfo parameter can be simplified to be ref USER_INFO_# userInfo where # is the level you intend to pass.

Tips & Tricks:

Please add some!

Sample Code:

  <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
       Private Structure USER_INFO_1
    Dim Username As String
    Dim Password As String
    Dim Password_age As Integer
    Dim Priv As Integer
    Dim HomeDir As String
    Dim Comments As String
    Dim Flag As Integer
    Dim Script_Path As String
    End Structure

    Private Declare Function NetUserAdd Lib "Netapi32.dll" ( _
    <MarshalAs(UnmanagedType.LPWStr)> ByVal servername As String, _
    ByVal level As Integer, _
    ByRef buf As USER_INFO_1, _
    ByRef param_error As Integer) As Integer

   Public Shared Function AddUser(ByVal UserName As String, Optional ByVal Server As String = "") As String

    Dim NewUser As New USER_INFO_1
    Dim bufPtr As IntPtr
    Dim Out As Integer

    With NewUser
        .Comments = "New user account setup by LocalUser.dll"
        .Password = "P@ssword"
        .HomeDir = ""
        .Script_Path = ""
        .Username = UserName.Trim
        .Priv = 1
    End With

    Dim RetVal As Integer = NetUserAdd(Server, 1, NewUser, Out)

    If RetVal <> 0 Then
        Return New System.ComponentModel.Win32Exception(RetVal).Message
    Else
        Return "Success"
    End If

    End Function

Documentation
NetUserAdd on MSDN

Please edit this page!

Do you have...

  • helpful tips or sample code to share for using this API in managed code?
  • corrections to the existing content?
  • variations of the signature you want to share?
  • additional languages you want to include?

Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).

 
Access PInvoke.net directly from VS:
Terms of Use
Edit This Page
Find References
Show Printable Version
Revisions