Set objUser = _
    GetObject("LDAP://cn=MyerKen,ou=HR,dc=NA,dc=fabrikam,dc=com")
'<snip>
objUser.Put "givenName", "Ken"
'<snip>
objUser.SetInfo
'<snip>
strGivenName = objUser.Get("givenName")
'<snip>
Wscript.Echo "givenName: " & strGivenName