Domino 9 und frühere Versionen > Administration & Userprobleme

Notes Version ermitteln ?

<< < (2/2)

kloeti:
Vielleicht hilf Dir das weiter. Jedoch der GetEntry für die ACL muss noch abgefangen werden, wenn jemand auf einen fremden Kalender zugreift und dessen PostOpen auslöst, jedoch keine Zugriffsrechte auf die ACL hat.

Weiter musst Du das Script beim "Update Tasks"-Agent Check checken nach hartcodiertem Servereinträgen. Sonst funktioniert's ned.

Sub Postopen(Source As Notesuidatabase)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry   
   Dim registration As New NotesRegistration
   Dim currentagent As NotesAgent
   Dim doc As NotesDocument
   Dim agentenabled As Variant
   Dim isadmin As Variant
   Dim retmailserver1 As String
   Dim retmailserver2 As String
   Dim filename As String
   Dim username1 As String
   Dim username2 As String
   Dim currentserver As String
   Dim agentserver As String
   Dim lastversion As String
   Dim actualversion As String
   
   Set db = session.CurrentDatabase
   
      '*****   "Update Tasks"-Agent Check   *****
   filename = db.FileName
   username1 =  LeftSub(filename,".")
   username2 = db.Title
   currentserver = db.Server
   If currentserver = "" Then
      'Database is on Local - No action here
   Else
      Set acl = db.ACL
      Set entry = acl.GetEntry( currentserver )
      
      registration.RegistrationServer = currentserver
      On Error Resume Next
      isadmin = entry.IsAdminServer
      Call registration.GetUserInfo( username1, retmailserver1)
      'Call registration.GetUserInfo( username2, retmailserver2)
      
      If (isadmin) Or (currentserver=retmailserver1) Or (currentserver=retmailserver2) Then
         'Database is on User's main mail server (which is NORMALLY also the Administration Server) - Go forward
         'Get the right agent   
         Forall agent In db.Agents
            If ( agent.Name = "Update Tasks|Update Tasks" ) Then
               Set currentagent = agent
               Exit Forall
            End If
         End Forall
         'Get the current status (server/enabled)
         agentserver = currentagent.ServerName
         agentenabled = currentagent.IsEnabled
         'Change status if necessary
         If currentserver <> agentserver Then
            currentagent.ServerName = currentserver
            Call currentagent.Save
         End If
         If agentenabled = False Then
            currentagent.IsEnabled = True
            Call currentagent.Save
         End If
      End If
      
   End If
   
   '*****   Notes-Versionen Check   *****
   lastversion = session.GetEnvironmentString("Version")
   actualversion = TrimString(session.NotesVersion)
   If lastversion = actualversion Then
   'Keine Versionsänderung - keine Mail notwendig
   Else
      'Versionänderung - email an "Mail Version Report" absetzen / Notes.INI-Eintrag aktualisieren
      Set doc = New NotesDocument(db)
      doc.Form = "Memo"
      doc.Subject = actualversion
      doc.VersionNumber = LeftSub(actualversion,"|")
      doc.VersionDate = RightSub(actualversion,"|")
      doc.SendTo = "Mail Version Report"
      Call doc.Send(False)
      Call session.SetEnvironmentVar("Version",actualversion)
   End If
   
End Sub

Rob Green:
Die NOtesversion rausfinden geht normalerweise so...

"This form action script gets the release of Notes currently running and puts it in the variable version. For example, if the script runs on a workstation with Notes Release 4, the NotesVersion property returns "Notes Release 4." If the script runs on a server with Notes Release 4.1, the NotesVersion property returns "Notes Release 4.1."
Dim session As New NotesSession
Dim version As String
version = session.NotesVersion"

Hab n.n. kapiert, was das ganze drumherum nun bedeutet....leider nicht die große Zeit, das durchzulesen

Wenn es also noch die ODS der db sein soll:

Gehs doch über das Mailfile an..wer ein R5 Mailfile lesen kann, kann natürlich nicht einen R1-4 Client verwenden...
http://eknori.dyndns.org/knowledge/kbnv11.nsf/34ccb724696466a48525667500536b5e/e1ded352b6eb8f30852569fa006ecb0a?OpenDocument&Highlight=0,ODS

http://eknori.dyndns.org/knowledge/kbnv11.nsf/34ccb724696466a48525667500536b5e/c2132dc3be8e62678525678b005b0b55?OpenDocument&Highlight=0,ODS

Navigation

[0] Themen-Index

[*] Vorherige Sete