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

Тема в разделе "Oбщий функционал", создана пользователем morpheus, 11 янв 2008.

  1. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Brief Description: Get Internet Host And Domain Names Using (2) Hidden Properties Of The Notessession Class
    Contributor: Andrew Jones

    Код (Text):
    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
    Источник
     
Загрузка...

Поделиться этой страницей