If any one now.How to Create User Account In Vb.Net Windows Application.

Recommended Answers

All 9 Replies

I beleive this is what your looking for,

Module Module1
Sub Main()
'Create Account
On Error Resume Next
Dim strUser As String = "UserID"
Dim oDomain As Object = GetObject("WinNT://computername")
Dim oUser As Object = oDomain.Create("user", strUser)
If (Err.Number = 0) Then
oUser.SetInfo()
oUser.SetPassword("Password")
oUser.SetInfo()
End If

'Add to addministrators
strUser = "UserID"
Dim strGroup As String = "Administrators"
oDomain = GetObject("WinNT://computername")
Dim oGroup As Object = oDomain.GetObject("Group", strGroup)
oGroup.Add("WinNT://computername/" & strUser)
End Sub
End Module

commented: i can't create user account.use this code.did u know why this problem occur.i am using windows 7 os. +0

Please specify more details....

i am using following code but i got "access is denied" error message

Imports System.DirectoryServices
Imports System.DirectoryServices.DirectoryEntries
Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    AddUser(txtlogin_name.Text, txtpassword.Text, txtfullname.Text)
    MsgBox("New User Account Created")
End Sub
Private Sub AddUser(ByVal login As String, ByVal password As String, ByVal fullName As String)
    Dim dirEntry As DirectoryEntry
    dirEntry = New DirectoryEntry("WinNT://" + Environment.MachineName + ",computer")

    Dim entries As DirectoryEntries = dirEntry.Children

    ' Set login name and full name.
    Dim newUser As DirectoryEntry = entries.Add(login, "User")
    newUser.Properties("FullName").Add(fullName)
    newUser.Properties("HomeDirectory").Add("C:\Sites\manjaly")
    newUser.Properties("Description").Add("Member of site.")

    ' User must change password at next logon (1 - true, 0 - false)
    newUser.Properties("PasswordExpired").Add(0)

    ' Password never expires.
    'newUser.Properties("PasswordAge").Add(0)

    ' Set flags - User Cannot change password | Password never expires.
    newUser.Properties("Userflags").Add(&H40 Or &H10000)

    ' Set the password.
    Dim result As Object = newUser.Invoke("SetPassword", password)


    newUser.CommitChanges()

    ' Add user to the group "Members"
    Dim grp As DirectoryEntry = dirEntry.Children.Find("Members", "group")
    If (Not grp Is Nothing) Then
        grp.Invoke("Add", New Object() {newUser.Path.ToString()})
    End If
End Sub

End Class

if you know.please help me.

Hey creat a table and then verify users for more detail visit Click Here

Are you running your program with admin access? You might need to change the access level requirements in your program so it starts with Administrator rights

plz tell me how to update the password and user name in database..... in vb.net

what database are you using?

Member Avatar for k9p_63

Shell("cmd.exe /c net user /add username password")
Shell("cmd.exe /c net user /delete username")

The easiest way to do this is through command prompt.. Short simple and it gets the job done.

@k9p63 This thread is over a year old. Please don't revive old threads.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.