AS/400 - Leer Usario des VB6

Gracias de antemano por interesarte por mi mensaje.
Lo que quiero saber es si hay alguna manera de leer el usuario que hay conectado en un pc a AS400 desde Visual Basic. Muchas gracias.

se me ocuren dos maneras de hacerolo una es seleccionando un tabla y incuyendo la palabra clave "USER" en los campos del select.

ejemplo "SELECT DISTINCT USER FROM ARCH"

Esto te dara como resultado un cursor con nombre de usuario conectado.

la otra manera es un poco mas complicada debes hacer una cl que utilice el comando RTVJOBA y te retorne entre los parametros el usuario

ejemplo

*************** Principio de datos ***************************************************************************
PGM
DCL VAR(&U) TYPE(*CHAR) LEN(10)
RTVJOBA USER(&U)
ENDPGM


Espero que te sirva.