Hi,
The following is part of a script which is used in an agent. However, it falls over at the line where I try to access the number of cabinets in the library. The password used is that of the administrator, which is my self, and I am running it from my local machine, which infact is a test server. I am using Notes authentication, and I can do everything I need to manually without any problems.
Sub Initialize
'Declare all API objects as Variants
Dim theAPI As Variant
Dim theLibrary As Variant
Dim theRooms As Variant
Dim theRoom As Variant
Dim theCabinets As Variant
Dim theCabinet As Variant
Dim theBinder As Variant
Dim theDocuments As Variant
Dim theDocument As Variant
Dim iLastFileCab As Variant
Dim i As Variant
'Create the API object
Set theAPI = CreateObject ("DominoDoc.API")
'Set the login name and password
Call theAPI.SetNotesLogin ("success")
'Get the Library object from the API
Set theLibrary = theAPI.GetLibrary("
http://10.1.0.111/domdoc/SEMTAEALLib.nsf")
'Get the cabinets collection in the library
Set theCabinets= theLibrary.Cabinets
iLastFileCab = theCabinets.Count -1 'THIS IS WHERE I GET THE ERROR MESSAGE
.............
Any thoughts would be appreciated
Return to top
ddoc2ap1: Insufficient access right... (Saleem Akbar 22.Feb.06)
. . 
Print this page
