Brief Description: Get Internet Host And Domain Names Using (2) Hidden Properties Of The Notessession Class
Contributor: Andrew Jones
Источник
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Источник
