Script to verify employee's Notes version

We needed to get a handle on what version of Lotus Notes were being run by our employees.

We needed to get a handle on what version of Lotus Notes were being run by our employees. So, I created this little script, put it into the PostOpen event of the mail template and ran Designer. It records the @Version of the client into the Person Document. It ensures that it only tries this if the user is connected to the server. Therefore, this will not work for anyone who has never connected to the server when opening their mail file. Just create a view in the NAB by NotesClientVersion.
Sub Postopen(Source As Notesuidatabase) 
        Dim Session As New NotesSession         
        Dim Person_Doc As NotesDocument 
        Dim PubNames_DB As NotesDatabase 
        Dim Users_View As NotesView 
        Dim Temp_NN As NotesName 
        Dim UserName_Str As String 
        Dim Server_str As String 
        
        Server_Str = Session.CurrentDatabase.Server 
        If Server_Str = "" Then Exit Sub 
        Set Temp_NN = New NotesName(Server_Str) 
        
        Set PubNames_DB = New Notesdatabase (Temp_NN.Abbreviated,"Names.nsf") 
        If PubNames_DB Is Nothing Then Exit Sub 
        Set Users_View = PubNames_DB.GetView("($Users)") 
        If Users_View Is Nothing Then Exit Sub 
        
        UserName_Str = Session.Username 
        Set Person_Doc = Users_View.GetDocumentByKey(UserName_Str,True) 
        If Person_Doc Is Nothing Then Exit Sub 
        
        If Person_Doc.NotesClientVersion(0) = Session.NotesVersion Then Exit Sub 
        
        Person_Doc.NotesClientVersion = Session.NotesVersion 
        Call Person_Doc.Save(True,False) 
End Sub 
This was first published in July 2001

Dig deeper on Domino Resources - Part 4

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close