ขอ Code VB.Net ขั้นตอนและการสร้าง Create User ใน Windows Server 2003

Imports System.DirectoryServices
Module Module1

Sub Main()
Try
    Dim AD As DirectoryEntry = _
      New DirectoryEntry("WinNT://" + Environment.MachineName + ",computer")
    Dim NewUser As DirectoryEntry = AD.Children.Add("TestUser1", "user")
    NewUser.Invoke("SetPassword", New Object() {"#12345Abc"})
    NewUser.Invoke("Put", New Object() {"Description", "Test User from .NET"})
    NewUser.CommitChanges()
    Dim grp As DirectoryEntry

    grp = AD.Children.Find("Guests", "group")
    If grp.Name <> "" Then
        grp.Invoke("Add", New Object() {NewUser.Path.ToString()})
    End If
    Console.WriteLine("Account Created Successfully")
    Console.ReadLine()

Catch ex As Exception
    Console.WriteLine(ex.Message)
    Console.ReadLine()
End Try
End Sub

End Module