- 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
