DominoArea.org [Archive]

Bonjour,

Je souhaite identifié si l'utilisateur courant est connecté ou pas au reseau...
En mode connecté, certains acces vers des bases de données externe à Notes seront possible et dans le cas contraire ça me permettrait d eviter de faire planter l'appli et d afficher un message d erreur...

Pour faire ça, il faudrait que je puisse savoir si l'utilisateur accede à une base sur un serveur ou une base locale...
Mais je ne sais pas comment m y prendre ...

Comment faire ça ?
A moins que vous ayez une autre idée ...


Merci

Ça doit être possible de vérifier si un user travaille sur une réplique locale ou sur un serveur avec : @servername
Si @servername = @username, il est en local.

Salut

lorsque l'utilisateur est sur le client lourd, pas en web ?

Bonjour,

oui uniquement avec le client lourd

avec NotesSession.CurrentDatabase.Server, tu verra la base courante est ouverte sur serveur ou en locale

sinon, essayes d'ouvrir explicitement une base sur le serveur (par exemple le carnet d'adresse) et tu vois si db.isOpen ...

voici la fonction que j'utilise, en général je passe en paramètre le serveur ou est stocké la mailbox de l'utilisateur

Code : Tout sélectionner

Public Function PingNotes (ByVal wServer As String) As Boolean
   REM test si le server passé en parametre répond.
      
   Dim DBNew As NotesDatabase
   Dim DBdirectory As NotesDbDirectory
   Dim Server As String
   
   On Error GoTo CatchError
   
   PingNotes = False
   
   REM remove error to avoid issue.
   Err = 0
   
   If Trim(wServer) = "" Then      
      Exit function
   End If
   
   If Session Is Nothing Then
      Set Session = New NotesSession
   End If
   
   Set DBdirectory = New NotesDbDirectory(Trim(Server))
   
   On Error Resume Next
   Set DBNew = DBdirectory.GetFirstDatabase(1247)
   On Error GoTo CatchError
   
   Set DBdirectory = Nothing
   Set DBNew = Nothing
   
   If Err <> 0 Then
      PingNotes = False
      Err = 0
   Else      
      PingNotes = True
   End If
   Exit Function
CatchError:
   If nbDisplayMsgBoxError = True Then
      MsgBox "("+Cstr(GetThreadInfo (1))+" Call by "+Cstr(GetThreadInfo(10))+")"+Chr(10)+"Error " + CStr(Err) + " : "+Chr(10) + CStr(Error)+". "+Chr(10)+"Line # "+Cstr(Erl),16," ERROR !"
   End If
   PingNotes = False
   Exit Function
End Function


Il y a la possibilité d'un appel à la console en lotusscript et récuperer le résultat.

La commande est:
sh users

oui mais faut que le users est les droits pour ça

ben oui, effectivement c'est exact...