Получение Internet Host и Domain Names

morpheus

скриптописец
07.08.2006
3 915
1
#1
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
Источник