DominoArea.org [Archive]

Code : Tout sélectionner

Sub Initialize
   Dim session As New NotesSession
   Dim dbSource As NotesDatabase
   Dim sourceServer As Variant
   Dim sourcePath As Variant
   Dim LstArchServer As Variant
   
   sourceServer = "serv"                  ' A passer en param
   sourcePath ="path"                    ' A passer en param
   
   Set dbSource=New NotesDatabase (sourceServer,sourcePath)
   Call DisableAgent(dbSource)
   
End Sub



Code : Tout sélectionner

Sub DisableAgent(dbSource As NotesDatabase)
   
   
   Dim agtServer As String
   Forall agent In dbSource.Agents
      
      agtServer = agent.ServerName
      
      If agtServer = "" Then
         Msgbox agent.name
      Else
         If agent.IsEnabled Then
            agent.IsEnabled = False
         End If
      End If
      Call agent.Save   
   End Forall
   Exit Sub
End Sub


Pour connaitre le type d'agent (schedule ou pas, passque faire un disable sur un agent manuel, il aime pô du tout) j'ai pas trouvé mieux que tester le server d'execution..... si ya plus propre n'hésitez pas

Par contre, je crois que tu ne pourras pas désactiver les agents personnels