用代理拷贝文档提示没有权限 请教高手

[renxuanyao]

系统环境：
在群集服务器中，A服务器上的代理 去操作B服务器上的数据库，把B服务器上的数据库 T.nsf 数据拷贝到数据库T1.nsf上，代码如下，
........
Set db = s.GetDatabase("A","T.nsf")
Set vw = db.GetView("all")
Set doc = vw.GetFirstDocument()
Set dbto = s.GetDatabase("B","T1.nsf")

Do While Not doc Is Nothing
On Error Resume next
Set docto = New NotesDocument(dbto)
docto.Universalid = doc.Universalid
Call doc.Copyallitems(docto, True)
Print "拷贝...！ " & doc.Universalid & "<br>"

Call docto.Save(1, 0)
Print "拷贝成功！ " & doc.Universalid & "<br>"
Print "---------------------------------------------<br>"

L:
Set doc = vw.Getnextdocument(doc)
Loop
.........
数据库ACL有管理员权限，文档上有作者域有当前执行代理身份的人，当拷贝文档时提示：
Notes error: 您没有执行此项操作的权限
请教高手

[renxuanyao]

补充 错误行是：Call docto.Save(1, 0)

[renxuanyao]

有人遇到过么

[renxuanyao]

解决了，需要添加服务器访问权限