User recertification

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: User recertification

Feedback Type: Problem

Product Area: Notes Client

Technical Area: Application Development

Platform: Windows

Release: 8.5.3

Reproducible: Not attempted

Hi,

I am trying to re3certify using lotus script, to those users whose certificate are going to expire in next 10 days.

Below is my code..

but this is not working, cant figure out what is failing
Please help.

Thanks in Advanced.

*********************************************
Sub Recert(Rdoc As NotesDocument,RCert As String, RCertPath As String, RCertPwd As String, UserName As String, Rdate As Integer)

On Error Goto errrecert

Dim RSession As New NotesSession
Dim RDb As NotesDatabase
Dim Rdoc1 As NotesDocument
Dim adminp As NotesAdministrationProcess
Dim notesID As Variant
Dim CertDate As New NotesDateTime( "" )

Call CertDate.SetNow
Call CertDate.AdjustYear(Rdate)

Set adminp = RSession.CreateAdministrationProcess("ACNE00/SERVER")

adminp.CertifierFile = RCertPath
adminp.CertifierPassword = RCertPwd
Set adminp.CertificateExpiration = CertDate

notesID = adminp.RecertifyUser(UserName)

Exit Sub

errrecert:
Msgbox " Errror in Recert : " + Cstr(Error)
End Sub

Feedback number WEBB9KBGK3 created by ~Rebecca Nonnistergon on 05/21/2014

Status: Open
Comments: