Je suis nouveau dans l'univers Lotus, ce forum m'aide beaucoup dans la découverte, mais pour une fois, en lisant / recherchant, je n'ai pas trouvé la solution.
J'ai développé une application, qui recensie la liste des applications Lotus de mon entreprise présentent sur différents serveurs domino, avec cette liste, j'ai créé un agent "Statistique" qui se connecte sur chaque base pour extraire les données (la taille, le nombre de document, si elle est indexée ou pas, la date de dernière modification, ect...) l'agent tourne parfaitement dés que je l'exécute manuellement, j'arrive à me connecter sans soucis sur chaque base sur n'importe quel serveur, mais une fois que je planifie l'agent, il ne fonctionne qu'avec les bases qui sont sur le même serveur.
Pour essayer de contourner ce problème, j'ai créé un petit agent "Sniffer" a mettre dans chaque base, qui envoi à la base de recensement les informations, mais une fois encore, je reçois uniquement les informations des bases se trouvant sur le même serveur que la base qui reçoit les informations.
En bref, quand je l’exécute manuellement de n'importe quel base située sur n'importe quel serveur, ça fonctionne, mais quand il est planifié il bloque quelque part dés que c'est un serveur différent...
Tout les serveurs sont sur le même domaine.
J'ai essayé en faisant signer la base par le serveur, mais toujours le même soucis !
Si quelqu'un a une idée de la provenance du problème... !
Et j'en profite de ce post pour une deuxième question, est il possible d'avoir un agent partagé dans chaque base, sur différent serveur, qui me permettrait d'appliquer les modifications une seule fois pour toute.
Voici le code de l'agent qui envoi les informations de la base:
- Code : Tout sélectionner
Sub Initialize
'Declaration de base
Dim session As New NotesSession
Dim db As NotesDatabase
'Declaration de la base GestionBaseEgov
Dim dbEgov As new NotesDatabase("", "")
Dim form As NotesForm
Dim doc As NotesDocument
'Declaration pour les rôles
Dim uidoc As NotesUIDocument
Dim acl As NotesACL
Dim entry As NotesACLEntry
'Declaration pour l'heure
Dim dateTime As New NotesDateTime( "" )
dateTime.LSLocalTime = Now
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetFirstEntry
'Déclaration des variables
Dim varNomCbase As String
Dim varTailleCbase As String
Dim varNbrDocCbase As String
Dim varAclCbase As String
Dim varServCbase As String
Dim varIndexCbase As String
Dim varLastModifCbase As String
Dim arrayAclCbase(0 To 10) As String
'Déclaration des variables
Dim cpt As Integer
cpt = 0
Dim tempServ As String
Dim tempNsf As String
varNomCbase = db.Title
varTailleCbase = db.Size / 1024 / 1024
varNbrDocCbase = db.Alldocuments.Count
varServCbase = db.Server
varIndexCbase = db.Isftindexed
varLastModifCbase = db.Lastmodified
While Not ( entry Is Nothing )
If entry.Level = 6 Then
arrayAclCbase(cpt) = entry.Name + ";"
cpt = cpt+1
End If
Set entry = acl.GetNextEntry( entry )
Wend
tempNsf = "gestionBasesEgov\GestionbaseEgov.nsf"
tempServ = "Dominodv"
If dbEgov.Open(tempServ,tempNsf) Then
Set doc = dbEgov.CreateDocument
With doc
.form = "AfrmStatistique"
.fldStatistiqueNomProjet = varNomCbase
.fldStatistiqueNomServeur = varServCbase
.fldStatistiqueNombreDoc = varNbrDocCbase
.fldStatistiqueTaille = varTailleCbase
.fldStatistiqueGestionnaire = arrayAclCbase
.fldStatistiqueCurrentDate = dateTime.Dateonly
.fldStatistiqueLastModif = varLastModifCbase
.fldStatistiqueIndex = varIndexCbase
End With
Call doc.save(False, False)
End If
End Sub
Merci d'avoir pris le temps de me lire,
Bonne journée
