Dans un agent LotusScript, comment obtenez-vous le nom du serveur actuel?

Question

Dans un agent LotusScript en cours d'exécution via WebQueryOpen, comment obtenez-vous le nom du serveur actuel?

Answer 1

Set s = New NotesSession 
Set db = s.CurrentDatabase 

If db.Server <> "" Then 
    Set sName = New NotesName(db.Server) 
Else 
    Set sName = New NotesName(s.Username) 
End If 

Answer 2

'initialize event of a WebQueryOpen agent 

Dim s As New notessession 
Dim servername As String 
servername = s.UserName 

Answer 3

L'exemple de code déjà fourni est bon, mais je fais aussi de cette façon et juste obtenir le nom hiérarchique du serveur:

Set s = New NotesSession 
Set db = s.CurrentDatabase 
If db.Server <> "" Then 
    Set sName = New NotesName(db.Server) 
Else 
    Set sName = New NotesName(s.Username) 
End If 
ServerName = sName.Abbreviated 

Answer 4

La réponse de Gary est le plus approprié. Vous pouvez réellement identifier le nom du serveur en utilisant la syntaxe hiérarchique. Ce serait le moyen le plus rapide (le plus sale?) D'obtenir le nom du serveur à partir de l'agent open de la Webquery. La classe notesName est un objet pratique pour traiter les noms hiérarchiques link text