Получить WAN IP с помощью VBScript - PullRequest
Новая
       57

Получить WAN IP с помощью VBScript

1 голос
/ 28 ноября 2011

У меня запущен скрипт входа в Windows, и я собираю сведения, которые регистрируются при входе пользователя в систему.Поскольку это удаленный сервер, все входы в систему осуществляются через RDP.Мне нужно получить IP-адрес пользователя, который вошел в систему.Я использовал следующее: 

Function WAN_IP()
    Set objxmlHTTP = CreateObject("Microsoft.XMLHTTP")
    Call objxmlHTTP.open("get", "http://checkip.dyndns.org", False)
    objxmlHTTP.Send()

    strHTMLText = objxmlHTTP.ResponseText
    Set objxmlHTTP = Nothing

    If strHTMLText <> "" Then
        varStart = InStr(1, strHTMLText, "Current IP Address:", vbTextCompare) + 19
        If varStart Then varStop = InStr(varStart, strHTMLText, "</body>", vbTextCompare)
        If varStart And varStop Then strIP = Mid(strHTMLText, varStart, varStop - varStart)
    Else
        strIP = "Unavailable"
    End If

    WAN_IP = Trim(strIP)
End Function

Это, как и ожидалось, возвращает внешний IP-адрес самого сервера, а не IP-адрес подключившегося пользователя.

Кто-нибудь может разрешитья знаю, как я получаю IP пользователя, подключенного через RDP?

1 Ответ

0 голосов
/ 29 ноября 2011

После ответа от @MarcB я использовал Как получить IP-адрес клиента удаленного рабочего стола? , чтобы понять, что делать.

Затем я нашел пример кода здесь: http://pleasepressanykey.blogspot.com/2008/09/get-users-last-successful-and-failed.html

...