2008-8-7 22:50
hanfeishu
reference和reference_list类型的加脚本都是不能显示fullname的,上面的帖子说的很清楚,以前也有不少人问过此类问题。
至于脚本的书写,涉及到API的使用,建议好好的去看看管理员手册和API参考,里面都有很多类似的代码,稍作修改就可以使用。
下面是IBM Developerworks上的一段示例脚本,结合上面几个回帖就可以搞定你的需求了:
ref:[url]http://www.ibm.com/developerworks/rational/library/3890.html[/url]
Populate a choicelist with full names of active users
DIM RegularSession
DIM queryDef
DIM ResultSet
DIM Is_Active_Value
DIM colValue
set RegularSession = GetSession
set queryDef = RegularSession.BuildQuery("users")
Is_Active_Value = 1
queryDef.BuildField("fullname")
set queryFilterNode = queryDef.BuildFilterOperator(AD_BOOL_OP_AND)
queryFilterNode.BuildFilter "is_active", AD_COMP_OP_EQ, Is_Active_Value
set ResultSet = RegularSession.BuildResultSet(queryDef)
ResultSet.Execute
status = ResultSet.MoveNext
while status = AD_SUCCESS
RegularSession.OutputDebugString ResultSet.GetNumberofColumns & vbCrLf
For n = 1 to ResultSet.GetNumberofColumns
colValue = ResultSet.GetColumnValue (n)
choices.AddItem(colValue)
RegularSession.OutputDebugString colValue & vbCrLf
Next
status = ResultSet.MoveNext
wend