使用ADSI查询用户属性时,可以使用GetInfoEx方法进行更精确的查询,但是有时该方法不能正确地获取邮件属性。为了解决这个问题,可以使用以下代码示例进行测试和修复:
Set objUser = GetObject("LDAP://cn=myuser,ou=myou,dc=mydomain,dc=com")
strMail = objUser.mail
If Len(strMail) = 0 Then
objUser.GetInfoEx Array("mail")
strMail = objUser.Get("mail")
End If
WScript.Echo "Mail: " & strMail
这段代码首先获取了用户对象,并尝试获取邮件属性。如果邮件属性的长度为零,则使用GetInfoEx方法获取属性,然后再次尝试获取邮件属性。最后,输出邮件属性。这样就可以正确地获取用户的邮件属性。