Включить/Откючить учетную запись пользователя в ActiveDirectory

Imports System
 
Public Sub Enable(ByVal userDn As String)
    Try
        Dim user As New DirectoryEntry(userDn)
        Dim val As Integer = CInt(Math.Truncate(user.Properties("userAccountControl").Value))
        user.Properties("userAccountControl").Value = val And Not &H2
            'ADS_UF_NORMAL_ACCOUNT;
 
        user.CommitChanges()
        user.Close()
    Catch E As System.DirectoryServices.DirectoryServicesCOMException
        'DoSomethingWith --> E.Message.ToString();
 
    End Try
End Sub
 
Public Sub Disable(ByVal userDn As String)
    Try
        Dim user As New DirectoryEntry(userDn)
        Dim val As Integer = CInt(Math.Truncate(user.Properties("userAccountControl").Value))
        user.Properties("userAccountControl").Value = val Or &H2
             'ADS_UF_ACCOUNTDISABLE;
 
        user.CommitChanges()
        user.Close()
    Catch E As System.DirectoryServices.DirectoryServicesCOMException
        'DoSomethingWith --> E.Message.ToString();
 
    End Try
End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Enable(User Name)
    End Sub

 Try
            Dim domainEntry As DirectoryEntry = Domain.GetCurrentDomain().GetDirectoryEntry()
            ' ldap filter
            Dim searchFilter As String = String.Format("(&(objectCategory=person)(objectClass=user)(sAMAccountName=UserName))")
 
            ' Filter = "(&(objectCategory=person)(objectClass=user)(cn=*" + username + "*))"
            Dim searcher As New DirectorySearcher(domainEntry, searchFilter)
            Dim searchResult As SearchResult = searcher.FindOne()
            If searcher IsNot Nothing Then
                Dim userEntry As DirectoryEntry = searchResult.GetDirectoryEntry()
 
                Dim old_UAC As Integer = CInt(Math.Truncate(userEntry.Properties("userAccountControl")(0)))
 
                ' AD user account disable flag
                Dim ADS_UF_ACCOUNTDISABLE As Integer = 2
 
                ' To enable an ad user account, we need to clear the disable bit/flag:
                userEntry.Properties("userAccountControl")(0) = (old_UAC And Not ADS_UF_ACCOUNTDISABLE)
                userEntry.CommitChanges()
 
                MsgBox("Active Director User Account Enabled successfully through userAccountControl property")
            Else
                'AD User Not Found
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try