strObjectDN = "cn=jnowak,cn=users,dc=rallencorp,dc=com"
set objUser = GetObject("LDAP://" & strObjectDN)
objUser.Put "sn", "Nowak"
objUser.SetInfo
