显示在线用户中文名问题

[bbm01111]

'显示在线用户中文名问题
Dim vCompute As Variant
Dim CnUserName As String
If onlineUsersArray(i) <> "" Then
CnUserName=LCase(StrLeft(onlineUsersArray(i),Chr(9)))
vCompute=Evaluate("@Name([CN];@userName)") ’用此语句列表全部显示为当前用户
'vCompute=Evaluate("@Name([CN];CnUserName)") '此语句没有有值，要怎么修改???
Print vCompute(0)
Print |<br>|
End If

'vCompute=Evaluate("@Name([CN];CnUserName)") '此语句没有有值，要怎么修改,还是???

[bbm01111]

CnUserName="CN="+“用户名”+"/O=abc" vCompute=Evaluate("@Name([CN];CnUserName)") '这样也是没有值 'vCompute=Evaluate("@Name([CN];@userName)") '@userName 的值是"CN="+"用户名"+"/O=abc" Evaluate函数不会用， CnUserName 可能传不了值,'vCompute=Evaluate("@Name([CN];@userName)") 又正常。