Private Sub ServerName_Click()
Dim s As New NotesSession
s.Initialize
 If s.ServerName <> Null Then
   MsgBox s.ServerName, , "ServerName"
 Else
   MsgBox "Running on a client", , "Not a server"
 End If
End Sub

See Also

ServerName property

Glossary