DominoArea.org [Archive]

[syntax="LotusScript"]Sub Initialize
Dim servername As Variant
Dim view As NotesView
Dim doc As NotesDocument
Dim x As Integer
Dim session As New NotesSession
Dim dbase2 As NotesDatabase

servername = session.GetEnvironmentString("MailServer",True)

Dim dbase As New NotesDatabase(servername,"Names.nsf")

Dim nlog As New NotesLog("Server Responsiveness List")
Call nlog.OpenMailLog(session.UserName,"Resultat de la vérification du serveur")

Set view = dbase.GetView("Servers")
Set doc = view.GetFirstDocument
On Error Resume Next
While Not (doc Is Nothing)
servername = doc.getItemValue("ServerName")

Dim dbasecollection As New NotesDBDirectory(ServerName(0))
Set dbase2 = dbasecollection.GetFirstDatabase(Database)

If Err <> 0 Then
Call nlog.LogAction("Impossible d'accéder au serveur :" & _
servername(0))
Err = 0
Else
Call nlog.LogAction("Serveur " & servername(0) & _
" OK")
End If

Set Doc = view.GetNextDocument(Doc)
Wend

nlog.Close
Messagebox("Terminer")
End Sub[/syntax]

Code : Tout sélectionner: Function PingNotes (Byval wServer As String) As Integer 'test si le server passé en parametre répond. 'si wserver est vide test la connexion réseaux en testant le server de mail 'Décalration Variable Dim Session As NotesSession Dim DBNew As NotesDatabase Dim DBdirectory As NotesDBDirectory On Error Goto ErreurHandle If Trim(wServer) = "" Then Set Session = New NotesSession Set DBdirectory = New NotesDBDirectory(session.GetEnvironmentString("MailServer",True)) Else Set DBdirectory = New NotesDBDirectory(Trim(wServer) ) End If On Error Resume Next Set DBNew = DBdirectory.GetFirstDatabase(1247) On Error Goto ErreurHandle Set DBdirectory = Nothing Set DBNew = Nothing If Err <> 0 Then PingNotes = False Exit Function Else PingNotes = True End If Exit Function ErreurHandle: Msgbox "("+Structure_Log+" : "+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !" PingNotes = False Exit Function End Function

Juste pour Info:
load runjava ISpy
et configuer la sonde dans events4, ce sera plus performant et plus sûr (c'est déjà intégré depuis la V5), donc pour ceusse qui seraient en version 4....
Ne pas oublier de modifier servertasks=....,runjava ISpy

toutes les infos necessaires dans l'aide administrator

DominoArea.org [Archive]

Vérifier si votre serveur fonctionne

Vérifier si votre serveur fonctionne