Lotus ID vault script

HCL Domino Domino Forum
1

Hello,I need help on lotus script for below criteria & code. can any one please help me to finish the requirement.

Script to find the list of expired ID files from ID vault.

here is my code:

Dim ss As New NotesSession

Dim db As notesdatabase

Dim view As NotesView

Dim doc As NotesDocument

Dim object As NotesEmbeddedObject

Dim dt As NotesDateTime



Set db=ss.Currentdatabase

Set view=db.Getview("(Vault Users_Exp)")

Set doc=view.Getfirstdocument()



While Not doc Is Nothing

	Set object = doc.GetAttachment( "UserID" )

	Dim vSplit1 As Variant

	Dim vSplit As Variant

	vSplit = Split( doc.IDOwner(0), "/" )

	'Msgbox vSplit(0) 

	vSplit1 = Split( vSplit(0), "=" )

	'MsgBox vSplit1(1)

	Call object.Extractfile("c:\ID test\" & vSplit1(1)+".id")' i can able to extract the id file

“NEED HELP TO GET EXPIRY DATE”

	Dim adminp As NotesAdministrationProcess

	Dim expire As NotesDateTime

	Set adminp =ss.Createadministrationprocess("SERVER")

	adminp.CertifierFile = ("c:\ID test\" & vSplit1(1)+".id")

	Set dt = adminp.CertificateExpiration

	MsgBox dt.Dateonly 'dt showing 2years form current time. showing incorrect expiry date

“NEED HELP TO GET EXPIRY DATE”

	Call doc.Replaceitemvalue("Expdate", dt)

	'Call doc.Save(1,0)

	Exit Sub

	Set doc=view.Getnextdocument(Doc)

	

Wend