Windows User auslesen

[juergenkarthaus]

H 1
I SDS
I 254 263 USER
C DUMP
C SETON LR

Gruß,

Robert

Hallo Robert,

danke für den Tip. Aber hier bekomme ich ja nur den AS400 User zurück, den ich bereits kenne. Da unsere AS400 User jedoch Namen wie z.B. Vertreib, Versand... haben, bringt mir das nicht viel. Ich benötige den Windows-User des PCs, der mit Client-Access an der AS400 angemeldet ist.
Trotzdem vielen Dank !

Jürgen

[Fuerchau]

Da würde ich mir eher Gedanken darüber machen, die tatsächlichen User auf der AS zu benennen und ggf. Gruppenprofilen zuzuweisen.
Alles andere gestaltet sich als schwierig aber machbar:
Du legst eine Keyed-Dataq auf der AS an, Schlüssel ist die WS-ID (Jobname).
Nach STRPCO kannst du anschliessend per STRPCCMD auf dem PC ein Programm starten, dass als Argument den Jobnamen enthält.
Dieses (neue) Programm liest per Windows-API (GetUserName(LPSTR lpBuffer, LPDWORD nSize)) den User aus und sendet ihn mit Jobnamen und Usernamen an die DATQ (CA-API's). Das AS-Prog wartet per QRCVDTAQ auf den Eintrag (am besten allerdings mit Timeout).
STRPCO und STRPCCMD werden allerdings nicht von allen 5250-Emu's unterstützt.

[juergenkarthaus]

Da würde ich mir eher Gedanken darüber machen, die tatsächlichen User auf der AS zu benennen und ggf. Gruppenprofilen zuzuweisen.
Alles andere gestaltet sich als schwierig aber machbar:
Du legst eine Keyed-Dataq auf der AS an, Schlüssel ist die WS-ID (Jobname).
Nach STRPCO kannst du anschliessend per STRPCCMD auf dem PC ein Programm starten, dass als Argument den Jobnamen enthält.
Dieses (neue) Programm liest per Windows-API (GetUserName(LPSTR lpBuffer, LPDWORD nSize)) den User aus und sendet ihn mit Jobnamen und Usernamen an die DATQ (CA-API's). Das AS-Prog wartet per QRCVDTAQ auf den Eintrag (am besten allerdings mit Timeout).
STRPCO und STRPCCMD werden allerdings nicht von allen 5250-Emu's unterstützt.

Vielen Dank, aber das klingt ja recht komliziert. Ich habe mittlerweile eine andere Lösung gefunden.
Ich habe den folgenden Programmcode angepaßt, und lese damit
die IP-Adresse des jeweiligen PC aus (sind bei uns statisch), und suche mir anschließend aus einer Datei den entsprechenden Windows-User ( die PCs sind festen Usern zugeordnet )
PGM
DCL VAR(&RTN) TYPE(*CHAR) LEN(900)
DCL VAR(&DEVD) TYPE(*CHAR) LEN(10)
RTVJOBA JOB(&DEVD)
CALL PGM(QSYS/QDCRDEVD) PARM(&RTN X'0384' +
'DEVD0600' &DEVD X'00000000')
SNDPGMMSG MSG('I have determined your TCP/IP Address +
to be ' || %SST(&RTN 878 15))
ENDPGM


Vielen Dank nochmals

J. Karthaus

[malzusrex]

und was ist, wenn frau meier vor dem pc vom herrn huber sitzt ??

gruß ronald

[juergenkarthaus]

und was ist, wenn frau meier vor dem pc vom herrn huber sitzt ??

gruß ronald

Hallo Ronald,

ich weiß das die Lösung nicht optimal ist.
Aber das mit Frau Meier ist eher seltener der Fall, und wir können so zumindest zurückverfolgen von welchem PC etwas gemacht wurde.

Gruß

Jürgen