使用VBScript獲取WAN IP

我有一個Windows登錄腳本正在運行，並且正在編譯一組在用戶登錄時得到記錄的詳細信息。由於這是一臺遠程服務器，所有登錄都是通過RDP完成的。我需要獲取登錄用戶的IP地址。我已經使用了以下內容：使用VBScript獲取WAN 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。

是否有人能讓我知道如何獲得通過RDP連接的用戶的IP？

來源

2011-11-28 TechyGypo

可能重複[如何獲得遠程桌面客戶端的IP地址？（http://stackoverflow.com/questions/1510093/how-to- get-the-ip-address-of-the-remote-desktop-client） –

用戶如何連接？局域網還是廣域網/ VPN？ – Tomalak

@MarcB：謝謝 - 很好找！將檢查出 – TechyGypo

使用VBScript獲取WAN IP

回答

相關問題