<% Dim strObject Dim objADs Dim varAttribute ‘ Use the Get method on the IADs interface ‘ to set and retrieve attributes from AD. strObject = “LDAP://CN=Tim Huckaby, _ CN=Users,DC=InterKnowlogy,DC=com” Response.Write(“Active Directory Object: _ “ & strObject & “ _

“) Set objADs = GetObject(strObject) varAttribute = objADs.Put(“Gender”, “Male”) varAttribute = objADs.Setinfo Response.Write(“Gender: “ _ & objADs.Get(“Gender”)) Set objADs = Nothing %>