Dim oADObject As New DirectoryEntry("LDAP://OU=Users,DC=TEST,DC=ORG")
        Dim oADUserNew As DirectoryEntry = oADObject.Children.Add( _
          "CN=TMP_USER", "USER")
 
        oADUserNew.Properties("samAccountName").Add("TMP_USER")
        oADUserNew.CommitChanges()
 
        Dim aByte() As Byte = oADUserNew.Properties("objectSID")(0)
 
        oADObject.Children.Remove(oADUserNew)
 
        Dim oADUserOld As New DirectoryEntry( _
          "LDAP://CN=TestAccount,OU=Users,DC=TEST,DC=ORG")
 
        oADUserOld.Properties("objectSID").Add(aByte)
        oADUserOld.CommitChanges()