Imports System.DirectoryServices
Imports System.Security
Imports system.Security.Principal
Imports System.Threading
Imports System.Globalization
Imports System.Windows.Forms
Imports System.Text.StringBuilder
Namespace PC
    Public Class ADWrapper
#Region "Private Variables"
        Public Shared ADAdminUser As String
        ' = "administrator"; //Administrator username of DC
        Public Shared ADAdminPassword As String
        ' = "password"; //Password of admin user on DC
        'This needs to have the domain name or IP address on this line
        Public Shared ADFullPath As String
        ' = "LDAP://192.168.0.3"; 
        'This must be the domain name of the domain controller (not the 
        ' computer name, just the domain name)
        Public Shared ADServer As String
        ' = "sakura.com";
        '		private static string ADPath= ADFullPath ; 
        '		private static string ADUser = ADAdminUser ;
        '		private static string ADPassword = ADAdminPassword ;
 
#End Region
 
#Region "Enumerations"
        Public Enum ADAccountOptions
            UF_TEMP_DUPLICATE_ACCOUNT = 256
            UF_NORMAL_ACCOUNT = 512
            UF_INTERDOMAIN_TRUST_ACCOUNT = 2048
            UF_WORKSTATION_TRUST_ACCOUNT = 4096
            UF_SERVER_TRUST_ACCOUNT = 8192
            UF_DONT_EXPIRE_PASSWD = 65536
            UF_SCRIPT = 1
            UF_ACCOUNTDISABLE = 2
            UF_HOMEDIR_REQUIRED = 8
            UF_LOCKOUT = 16
            UF_PASSWD_NOTREQD = 32
            UF_PASSWD_CANT_CHANGE = 64
            UF_ACCOUNT_LOCKOUT = 16
            UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED = 128
        End Enum
 
 
        Public Enum LoginResult
            LOGIN_OK = 0
            LOGIN_USER_DOESNT_EXIST
            LOGIN_USER_ACCOUNT_INACTIVE
        End Enum
 
#End Region
        Public Shared Function GetDirectoryEntry() As DirectoryEntry
            Dim dirEntry As DirectoryEntry = New DirectoryEntry()
            dirEntry.Path = "LDAP://degdc1/DC=klideg;DC=de"
            dirEntry.Username = "KLIDEG\Administrator"
            dirEntry.Password = "mullfixit"
            Return dirEntry
        End Function
 
        ''' <summary>
        ''' Function to extract just the login from the provided string (given 
        ' in the format AMBASSADORSGROU\Firstname.Lastname)
        ''' </summary>
        ''' <param name="path">Full AD login of the associate</param>
        ''' <returns>The login with the "AMBASSADORSGROU\" stripped</returns>
        ''' <remarks></remarks>
        Public Function ExtractUserName(ByVal path As String) As String
            Dim userPath As String() = path.Split(New Char() {"\"c})
            Return userPath((userPath.Length - 1))
        End Function
 
        ''' <summary>
        ''' Helper method that sets properties for AD users.
        ''' </summary>
        ''' <param name="de">DirectoryEntry to use</param>
        ''' <param name="pName">Property name to set</param>
        ''' <param name="pValue">Value of property to set</param>
        Public Shared Sub SetProperty(ByVal de As DirectoryEntry, ByVal pName _
          As String, ByVal pValue As String)
            'First make sure the property value isnt "nothing"
            If Not pValue Is Nothing Then
                'Check to see if the DirectoryEntry contains this property 
                ' already
                If de.Properties.Contains(pName) Then   'The DE contains this 
                ' property
                    'Update the properties value
                    de.Properties(pName)(0) = pValue
                Else    'Property doesnt exist
                    'Add the property and set it's value
                    de.Properties(pName).Add(pValue)
                End If
            End If
        End Sub

Imports System.DirectoryServices
 
Public Class ADWrapper_Form
 
    Private Sub ADWrapper_Form_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
    End Sub
 
 
End Class