现在想写这样一个脚本
查询出CQ中所有的用户
然后一一登陆 密码均使用为空
当有登录成功的就自动给他本人发邮件
现在有这样一个问题困扰我
就是当登陆不成功时 脚本自己就在运行了
直接报一个密码错误就结束掉了
这个情况怎么处理呀 ？？

问题已经解决 [打开主题]

本主题的最佳答案为 [ 4 楼].

可以这样处理，
在代码的开始处，加上：
on error resume next
err.clear

' put your code here

if err.number > 0 then
   msgbox "username or password error"
end if

Dim session
Dim usersession
Dim altem

Set session = CreateObject("CLEARQUEST.SESSION")
session.UserLogon "admin", "", "RVW", AD_PRIVATE_SESSION, "Review"

Set qryObj = session.BuildQuery("users")
qryObj.BuildField("login_name")
Set resultset = session.Buildresultset(qryObj)
resultset.EnableRecordCount
resultset.Execute

MsgBox resultset.RecordCount
Do While resultset.MoveNext = SUCCESS
     MsgBox resultset.GetColumnValue(1)
     MsgBox "OK"
         On error resume Next
     err.clear
     
                 Set usersession = CreateObject("CLEARQUEST.SESSION")
                 session.UserLogon resultset.GetColumnValue(1), "", "RVW", AD_PRIVATE_SESSION, "Review"
                        if err.number > 0 Then
                           msgbox "username or password error"
                        End If
                 Set usersession = Nothing
Loop
MsgBox "end"
Set session = Nothing

这样写的脚本 现在老是查询不到 郁闷 帮忙看看哪里有错误

你的代码中存在以下几个问题：
1. AD_PRIVATE_SESSION，对于外部脚本，不能这样使用，因为这样脚本脱离了CQ的运行环境，这些常量都不能被识别的。你可以查看一下CQ API参考，里面有对应的值，可以直接使用值，也可以在代码的开始写成Const AD_PRIVATE_SESSION = 2

2. SUCCESS，同上

3. 对象名搞错了
   Set usersession = CreateObject("CLEARQUEST.SESSION")
   session.UserLogon resultset.GetColumnValue(1), "", "RVW", AD_PRIVATE_SESSION, "Review"

差不多就是这些了

最佳答案

该回答被楼主/管理员列为正解!