Brief Description: Get Internet Host And Domain Names Using (2) Hidden Properties Of The Notessession Class
Contributor: Andrew Jones

Sub Click(Source As Button)
Dim s As New NotesSession
Dim msg$
msg$ = msg$ & "Domain Name: " & s.InternetDomainName & Chr(13)
msg$ = msg$ & "Host Name: " & s.InternetHostName
Msgbox msg$, 0, "Undocumented NotesSession Functions"
End Sub

]]>Источник]]>