Solved

Get the Client ip address using wtsapi32.dll and WTSQuerySessionInformation

Posted on 2002-07-11
8
1,893 Views
Last Modified: 2007-11-27
Hello All
I an urgently looking for an example of using WTSQuerySessionInformation to get the IP address of the current session on a Terminal Server.
Thanks
Dean.
0
Comment
Question by:Dwhite
  • 6
8 Comments
 
LVL 23

Accepted Solution

by:
Roshan Davis earned 500 total points
ID: 7145749
If you need declaration, then here it is

Public Declare Function WTSQuerySessionInformation _
        Lib "wtsapi32.dll" Alias "WTSQuerySessionInformationA" ( _
        ByVal hServer As Long, ByVal SessionID As Long, _
        ByVal pWTSInfoClass As WTS_INFO_CLASS, ByRef ppSessionInfo As Long, _
        ByRef pBytesReturned As Long _
        ) As Boolean
     
    WTS_INFO_CLASS
    Public Enum WTS_INFO_CLASS
         WTSInitialProgram
         WTSApplicationName
         WTSWorkingDirectory
         WTSOEMId
         WTSSessionId
         WTSUserName
         WTSWinStationName
         WTSDomainName
         WTSConnectState
         WTSClientBuildNumber
         WTSClientName
         WTSClientDirectory
         WTSClientProductId
         WTSClientHardwareId
         WTSClientAddress
         wtsClientDisplay
    End Enum
     
    Public Enum WTS_CONNECTSTATE_CLASS
        WTSActive
        WTSConnected
        WTSConnectQuery
        WTSShadow
        WTSDisconnected
        WTSIdle
        WTSListen
        WTSReset
        WTSDown
        WTSInit
    End Enum
     
Good Luck
0
 

Author Comment

by:Dwhite
ID: 7145765
Thaks a lot roshmon

do you have an example of how to call it for the current session.
Thanks
Dean
0
 
LVL 1

Expert Comment

by:PX
ID: 7145847
Here you go, this is the link with a example on how tou use wtsquerysessioninformation.

http://a1network.net/downloads/WTSobjs.zip

PX
0
 

Author Comment

by:Dwhite
ID: 7146264
Thank you PX
This does not show me how to make the API Call as it is already compiled into a Dll.
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:Dwhite
ID: 7146402
Points increase to 500
Please help
0
 

Author Comment

by:Dwhite
ID: 7148833
I'm in trouble here
This Executes but returns Rubbish
I have increased the points to 1000

Public Function QueryUserConfig() As String
   
    Dim bufPtr      As Long
    Dim bufLen      As Long
    Dim tmpStr()    As Byte
    Dim idx         As Integer

On Error GoTo ERR_QueryUserConfig

    CTXQueryUserConfig = False
    cSvrName = svrName & vbNullChar
    cUsrName = userName & vbNullChar
    If WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, WTSClientAddress, bufPtr, bufLen) Then
        If bufLen > 0 Then
            ReDim tmpStr(bufLen)
            Call CopyMemory(tmpStr(0), bufPtr, bufLen)
            For idx = 0 To bufLen
                'retString = retString & Chr$(tmpStr(idx))
                retString = retString & tmpStr(idx)
            Next idx
           
            Erase tmpStr
        End If
        Call WTSFreeMemory(bufPtr)
        QueryUserConfig = retString
    End If
    Exit Function
   
ERR_QueryUserConfig:
    Exit Function
End Function
0
 

Author Comment

by:Dwhite
ID: 7148839
OK so I cant Increase the Points but I will create another question for 500 for the Example that works.
0
 

Author Comment

by:Dwhite
ID: 7164149
I have since found out how to do this and your response pointed me in the right direction so thanks a lot.
Dean White.
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now