Hello John,

Well, as it turns out the Windows API call WTSQuerySessionInformation is NOT going to work for us as it appears to return the local IP and not the public one.

From what we can tell, we may be able to use WinStationQueryInformation instead (https://docs.microsoft.com/en-us/previous-versions//aa383827(v=vs.85)?redirectedfrom=MSDN) albeit it is not supported and may be changed in the future, as of now we really don't have any other options.

However, we're not able to construct the PowerScript calls to get it to work and hoping your "shear brilliance" can shed some light on an approach to consume that API call in PowerBuilder.

Any help or insight is once again very much appreciated.

Kind Regards,

Greg

I'm not sure the WinStationQueryInformationW API function will help you gain the information you wanting to collect. Nevertheless, I'll allow you to make that determination.

You'll need a WINSTATIONINFORMATIONW structure. Here's the exported source:

global type s_winstationinformationw from structure
   byte          b_reserved2[70]
   unsignedlong  ul_logonid
   byte          b_reserved3[1140]
end type

The structure length is 1244 (70+2+4+1140) bytes. The additional 2 bytes is needed to ensure that the ul_logonid member aligns with a doubleword.

You'll need the following two External Function Declarations:

FUNCTION Boolean WinStationQueryInformation ( &
   Longptr                      hServer, &
   UnsignedLong                 LogonId, &
   Long                         WinStationInformationClass, &
   REF s_winstationinformationw pWinStationInformation, &
   UnsignedLong                 WinStationInformationLength, &
   REF UnsignedLong             pReturnLength &
   ) LIBRARY "winsta.dll" ALIAS FOR "WinStationQueryInformationW"

FUNCTION Long GetLastError ( &
   ) LIBRARY "kernel32.dll"

Finally, here's code I put in a command button's Clicked event:

Boolean lb_rc
ULong   lul_logonid = 4294967295 // 0xffffffff
ULong   lul_return_length
ULong   lul_winstationinfoclass = 8
ULong   lul_wsi_length = 1216
Long    ll_error_code
Longptr llptr_hserver = 0
s_winstationinformationw lstr_wsi

lb_rc = WinStationQueryInformation(llptr_hserver,lul_logonid, &
           lul_winstationinfoclass,lstr_wsi,lul_wsi_length,lul_return_length)
If lb_rc Then
   MessageBox("WinStationQueryInformation","API function successful.")
Else
   ll_error_code = GetLastError()
   MessageBox("WinStationQueryInformation","API function unsuccessful. Error Code = " + &
      String(ll_error_code))
End If

Good luck! -John

Hello John,

So what we've tried so far is to use your same call but with the WinStationRemoteAddress (29) info class. The issue I suppose we're having is what that structure looks like in PowerBuilder. I believe the WinStationRemoteAddress structure is as follows:

typedef struct {
    unsigned short sin_family;
    union {
        struct {
            USHORT sin_port;
            ULONG in_addr;
            UCHAR sin_zero[8];
        } ipv4;
        struct {
            USHORT sin6_port;
            ULONG sin6_flowinfo;
            USHORT sin6_addr[8];
            ULONG sin6_scope_id;
        } ipv6;
    };
}

So we've tried to create this same structure as follows:

global type s_winstationremoteaddress from structure
	unsignedinteger		sin_family
	s_ipv4		ipv4
	s_ipv6		ipv6
end type

global type s_ipv4 from structure
	unsignedinteger		sin_port
	unsignedlong		in_addr
	byte		sin_zero[8]
end type

global type s_ipv6 from structure
	unsignedinteger		sin6_port
	unsignedlong		sin6_flowinfo
	unsignedinteger		sin6_addr[8]
	unsignedlong		sin6_scope_id
end type

... but that doesn't appear to work. We guessed at a sizeof() this structure as 42 (2 bytes for uint, 4 for ulong, etc.)

Any insight? Are we approaching this the right way or missing the mark?

Regards,

Greg

Hi Greg,

I don't know if this is helpful, but if your DBMS is Sybase ASA or SQL Anywhere, there is a system procedure called sa_conn_properties() that you can use to get the IP address associated with a connection.

Example:

select Value from sa_conn_properties(<connection id>) where PropName = 'NodeAddress';

If you leave out the connection id parameter, the procedure returns information for all connections.

Not sure this will work, but here is an example of a C++ implementation that uses the API to get the Public IP Address. Can anyone shed some light on what this would look like in our PowerBuilder world?

typedef enum _WINSTATIONINFOCLASS {
    // ...
    WinStationRemoteAddress = 29,
    // ...
} WINSTATIONINFOCLASS;

#define LOGONID_CURRENT     ((ULONG)-1)

typedef struct {
    unsigned short sin_family;
    union {
        struct {
            USHORT sin_port;
            ULONG in_addr;
            UCHAR sin_zero[8];
        } ipv4;
        struct {
            USHORT sin6_port;
            ULONG sin6_flowinfo;
            USHORT sin6_addr[8];
            ULONG sin6_scope_id;
        } ipv6;
    };
} WINSTATIONREMOTEADDRESS,
*PWINSTATIONREMOTEADDRESS;

EXTERN_C
DECLSPEC_IMPORT
BOOLEAN
WINAPI
WinStationQueryInformationW(
                            _In_opt_ HANDLE hServer,
                            _In_ ULONG SessionId,
                            _In_ WINSTATIONINFOCLASS WinStationInformationClass,
                            _Out_writes_bytes_(WinStationInformationLength) PVOID pWinStationInformation,
                            _In_ ULONG WinStationInformationLength,
                            _Out_ PULONG pReturnLength
                            );

ULONG GetRdpClientAddressFromServerView()
{
    ULONG dwError = NOERROR;
    ULONG cb;

    union {
        SOCKADDR sa;
        SOCKADDR_IN sa4;
        SOCKADDR_IN6 sa6;
    };

    WINSTATIONREMOTEADDRESS ra;

    if (WinStationQueryInformationW(0, LOGONID_CURRENT, WinStationRemoteAddress, &ra, sizeof(ra), &cb))
    {
        switch (sa.sa_family = ra.sin_family)
        {
        case AF_INET:
            sa4.sin_port = ra.ipv4.sin_port;
            sa4.sin_addr.S_un.S_addr = ra.ipv4.in_addr;
            RtlZeroMemory(sa4.sin_zero, sizeof(sa4.sin_zero));
            cb = sizeof(SOCKADDR_IN);
            break;
        case AF_INET6:
            sa6.sin6_port = ra.ipv6.sin6_port;
            sa6.sin6_flowinfo = ra.ipv6.sin6_flowinfo;
            memcpy(&sa6.sin6_addr, &ra.ipv6.sin6_addr, sizeof(in6_addr));
            sa6.sin6_scope_id = ra.ipv6.sin6_scope_id;
            cb = sizeof(SOCKADDR_IN6);
            break;
        default:
            dwError = ERROR_GEN_FAILURE;
        }

        if (dwError == NOERROR)
        {
            // assume that WSAStartup already called
            // WSADATA wd;
            // WSAStartup(WINSOCK_VERSION, &wd);

            char AddressString[64];
            ULONG dwAddressStringLength = _countof(AddressString);
            if (WSAAddressToStringA(&sa, cb, 0, AddressString, &dwAddressStringLength) == NOERROR)
            {
                DbgPrint("client ip is %s\n", AddressString);
            }
            else
            {
                dwError = WSAGetLastError();
            }
        }
    }
    else
    {
        dwError = GetLastError();
    }

    return dwError;
}

Thanks for your help in advance.

Kind Regards,

Greg