Vérifier si votre serveur fonctionne

[Stephane Maillard]

[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]

[Michael DELIQUE]

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

[Jérome Deniau]

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