API für die Bestimmung, wenn App Läuft auf Citrix oder Terminal Services

Gibt es eine API-Funktion, können Sie bestimmen, ob eine bestimmte Benutzer-session auf der Konsole angezeigt (lokal) oder über eines der remoting-Protokolle Citrix ICA (heute genannt HDX) oder Microsoft RDP.

Call WTSQuerySessionInformation mit 3. parameter WTSClientProtocolType. Die Funktion gibt zurück:

• 0 für die Konsole-Sitzungen
• 1 für ICA-Sitzungen
• 2 für RDP-Sitzungen

Interessanterweise ist der Rückgabewert 1 ist nicht dokumentiert, wie WTS_PROTOCOL_TYPE_ICA auf der MSDN-Website (zweiter link oben) mehr, aber als "Dieser Wert beibehalten wird, die für legacy-Zwecke.".

Update:

XenDesktop Sitzungen nicht entdeckt werden können WTSQuerySessionInformation (es gibt 0 zurück, was bedeutet, Konsole). Wenn Sie möchten, eine Universelle Lösung:

• Nennen WTSQuerySessionInformation. Wenn, dass gibt 1 oder 2 (ICA oder RDP), sind Sie fertig.
• Wenn WTSQuerySessionInformation gibt 0 zurück (Konsole), dynamisch zu laden wfapi.dll und Holen Sie sich die Adresse von WFGetActiveProtocol
• Nennen WFGetActiveProtocol mit einem parameter von WF_CURRENT_SESSION, die definiert ist als ((DWORD)-1)
• Der Rückgabewert von WFGetActiveProtocol ist die Art der Sitzung. Es sollte entweder 0 (Konsole) oder 1 (ICA)

Habe ich beschrieben, den Prozess im detail hier zusammen mit einem C++ - Codebeispiel und eine Arbeitsgruppe zusammengestellt, tool, gibt die aktuelle Sitzung remoting Protokoll-Typ.

Basierend auf Helge Klein überarbeitete Antwort (oben) dachte ich, ich poste den VBA-code, um dies verwirklichen zu helfen, die Zukunft von VBA-Benutzern rufen Sie diese Seite. Helge hat schon den C++ - code auf seiner eigenen Website. Wenn Sie finden diese hilfreich, bitte upvote Helge Kleins Antwort.

Option Explicit

Private Const WTS_CURRENT_SERVER_HANDLE = 0&
Private Const WTS_CURRENT_SESSION As Long = -1

Private Enum WTS_INFO_CLASS
    WTSInitialProgram
    WTSApplicationName
    WTSWorkingDirectory
    WTSOEMId
    WTSSessionId
    WTSUserName
    WTSWinStationName
    WTSDomainName
    WTSConnectState
    WTSClientBuildNumber
    WTSClientName
    WTSClientDirectory
    WTSClientProductId
    WTSClientHardwareId
    WTSClientAddress
    WTSClientDisplay
    WTSClientProtocolType
    WTSIdleTime
    WTSLogonTime
    WTSIncomingBytes
    WTSOutgoingBytes
    WTSIncomingFrames
    WTSOutgoingFrames
    WTSClientInfo
    WTSSessionInfo
    WTSSessionInfoEx
    WTSConfigInfo
    WTSValidationInfo
    WTSSessionAddressV4
    WTSIsRemoteSession
End Enum

Private Declare Function WTSQuerySessionInformation _
    Lib "wtsapi32.dll" Alias "WTSQuerySessionInformationA" ( _
    ByVal hServer As Long, ByVal SessionId As Long, _
    ByVal WtsInfoClass As WTS_INFO_CLASS, _
    ByRef ppBuffer As LongPtr, _
    ByRef pBytesReturned As LongPtr _
    ) As Long

Private Declare Function WFGetActiveProtocol _
    Lib "wfapi.dll" ( _
    ByVal SessionId As Long _
    ) As Long

Private Declare Sub WTSFreeMemory Lib "wtsapi32.dll" ( _
    ByVal pMemory As Long)

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    Destination As Any, Source As Any, ByVal length As Long)

Public Function SessionType() As String
    Dim ResultCode As Long
    Dim p As LongPtr
    Dim ppBuffer As LongPtr
    Dim pBytesReturned As Long
    Dim ClientProtocolType As Integer
    ResultCode = WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSClientProtocolType, ppBuffer, pBytesReturned)

    If ResultCode = 0 Then
        p = ppBuffer
        CopyMemory ClientProtocolType, ByVal p, pBytesReturned
        WTSFreeMemory ppBuffer
    End If

    Select Case ClientProtocolType
      Case 0:
        On Error Resume Next
        ResultCode = WFGetActiveProtocol(WTS_CURRENT_SESSION)
        If Err.Number = 53 Then
          SessionType = "Console"
        ElseIf Err.Number = 0 Then
          If ResultCode = 1 Then
            SessionType = "Citrix"
          Else
            SessionType = "Console"
          End If
        End If
        Err.Clear
        On Error GoTo 0
      Case 1:
        SessionType = "Citrix"
      Case 2:
        SessionType = "RDP"
      Case Else
        SessionType = "Other (" & ClientProtocolType & ")"
    End Select
End Function

Ich habe getestet dieses auf XenApp und XenDesktop.