Терминал или Remote Session

[drronnie]

Господа, мне нужно определить две вещи:
- запущена ли программа под терминалом;
- IP-адрес машины, откуда запущена сессия.

Первое определяется таким кодом:

Код: Выделить всё

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const SM_REMOTESESSION As Long = &H1000

Sub Main()
    MsgBox GetSystemMetrics(SM_REMOTESESSION)
End Sub


Если под терминалом, то возвращается не ноль, иначе ноль.

А как определить второе?
Заранее спасибо.

[drronnie]

Пардон... сам же отвечаю на свой вопрос:

Код: Выделить всё

MsgBox Environ$("CLIENTNAME")

Console или имя машины.