Bir LotusScript Aracısı'nda geçerli sunucunun adını nasıl alırsınız?

Question

WebQueryOpen ile çalıştırılan bir LotusScript Aracısı'nda, geçerli sunucunun adını nasıl alırsınız?

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

zaten sağlanan örnek kod iyidir ama ben de bu şekilde yapmak ve sadece sunucunun hiyerarşik adını almak:

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

Gary'nin cevabı en uygundur. Sunucu adını, hiyerarşik sözdizimini kullanarak fiilen tanımlayabilirsiniz.

dim session as new notesSession 
dim strCurrServer as string 
dim nmServer as notesName 

strCurrServer = session.currentagent.servername 
' this bit is optional 
set nmServer = new notesName(strCurrServer) 
' then you can do stuff like this 
print nmServer.Abbreviated 

Bu, webquery açık aracısından sunucu adını almak için en hızlı (en kirli?) Yol olurdu. NotesName sınıfı, hiyerarşik isimlerle ilgilenmek için kullanışlı bir nesnedir link text