dt = Datenumber(Year(Today)+100, Month(Today), Day(Today))
reg.RegistrationServer = "workflow/KSU"
reg.CreateMailDb = False
pathCert=Inputbox("Укажите путь ID файла сертификатора","Enter")
reg.CertifierIDFile = pathCert
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 5 ' password strength
reg.OrgUnit = ""
reg.RegistrationLog = "log.nsf"
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
Call reg.RegisterNewUser(FIO(0), _
filePath, _
"", _
FIO(1), _
otch, _
"gfhjkmcthnbabrfnjhf", _
"t", _
"", _
shortName+".nsf", _
"", _
password, _
NOTES_LIMITED_CLIENT, _
words)
кусочек моего кода,
При выполнении ругается "Access to data denied". Что делать подскажите кто-нить
reg.RegistrationServer = "workflow/KSU"
reg.CreateMailDb = False
pathCert=Inputbox("Укажите путь ID файла сертификатора","Enter")
reg.CertifierIDFile = pathCert
reg.Expiration = dt
reg.IDType = ID_HIERARCHICAL
reg.MinPasswordLength = 5 ' password strength
reg.OrgUnit = ""
reg.RegistrationLog = "log.nsf"
reg.UpdateAddressBook = True
reg.StoreIDInAddressBook = True
Call reg.RegisterNewUser(FIO(0), _
filePath, _
"", _
FIO(1), _
otch, _
"gfhjkmcthnbabrfnjhf", _
"t", _
"", _
shortName+".nsf", _
"", _
password, _
NOTES_LIMITED_CLIENT, _
words)
кусочек моего кода,
При выполнении ругается "Access to data denied". Что делать подскажите кто-нить
