Advertisement
Advertisement
| 06.13.2008 at 01:04PM PDT, ID: 23483935 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: |
Imports System.directoryservices
Dim de As DirectoryEntry
de = New DirectoryEntry("LDAP://" & objRecordSet.Fields("distinguishedName").Value.ToString)
if CBool(Cint(de.Properties("userAccountControl").Value) And &H2) then
|