请教大侠们一个问题，如何得到active user IP 列表

snow_hongwei

如题！

jiangyuyun

可以用CL 命令 NESTAT 进入TCP/IP Network Status菜单，然后选3，可以看到IPV4的connection

qingzhou

以前有关于这方面的解决办法,以下供参考!

=======================================================
如何取得由Telnet方式进入系统的客户端的IP地址?   

环境
产品： OS/400
平台: AS/400
版本: ALL

由于AS/400操作系统没有提供查询工作站ID与其IP地址对应关系的工具，所以单从工作站ID很难判断一些通讯方面的故障。 本篇文章利用系统API编写的一个CL例程找出与工作站ID对应的IP地址，该程序适用于所有OS/400的版本。

利用 System API QDCRDEVD 取得 与工作站ID 对应的 IP address.
使用此示范程序时需输入工作站名称作为参数, 如: CALL RTVDEVIPC PARM('QPADEV0001').

CL示范程序如下: （请充分测试后再使用！！）
****************************************************
PGM (&DEVICENAME)

DCL &DEVICENAME *CHAR 10
DCL &IPADDRESS *CHAR 15
DCL &RECEIVER *CHAR 892
DCL &RCVRLENGTH *CHAR 4
DCL &FORMATNAME *CHAR 8 'DEVD0600' /* THE FORMAT FOR DISPLAY DEVICES */
DCL &ERRORCODE *CHAR 4 X'00000000' /* USE NORMAL ERROR HANDLING */
CHGVAR %BIN(&RCVRLENGTH) 892
CALL PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH +
&FORMATNAME &DEVICENAME &ERRORCODE)
CHGVAR &IPADDRESS %SST(&RECEIVER 878 15)
SNDPGMMSG MSG(&DEVICENAME *BCAT ' IP address is ' +
*cat &ipaddress ) MSGTYPE(*COMP)

ENDPGM
**************************************************

RAIITSMXH

我这里也有一个，RPGLE的程序，把IP地址返回到*LDA中，DSPDTAARA *LDA就可以看到；
要知道电脑名的话，在运行-cmd 命令行输入  NBTSTAT -A IP地址  就可以看到
仅供参考

1. D/COPY QSYSINC/QRPGLESRC,QUSEC   
   
2. D/COPY QSYSINC/QRPGLESRC,QDCRDEVD
   
3. D*                                                
   
4. DLDA_DS           DS                  DTAARA(*LDA)
   
5. D REC_DAT                 1   1000                 
   
6. DVAL_LEN          S              4B 0              
   
7. DDEV_NAME         S             10                 
   
8. DFMT_NAME         S              8                 
   
9. D BAS_DAT         DS           104                 
   
10. D  DEV_TYE               32     40                 
    
11. D*                                                 C*                                                     
    
12. C     *ENTRY        PLIST                              
    
13. C                   PARM                    DEV_NAME   
    
14. C*                                                     

复制代码

1. C* Check the device                                 
   
2. C*                                                   
   
3. C                   Z-ADD     16            QUSBPRV  
   
4. C                   CALL      'QDCRDEVD'            
   
5. C                   PARM      *BLANKS       BAS_DAT  
   
6. C                   PARM      104           VAL_LEN  
   
7. C                   PARM      'DEVD0100'    FMT_NAME
   
8. C                   PARM                    DEV_NAME
   
9. C                   PARM                    QUSEC   
   
10. C*                                                   
    
11. C* Check weather Client access device is legal.      
    
12. C*                                                   
    
13. C     DEV_TYE       IFEQ      '*DSP'                 
    
14. C                   CALL      'QDCRDEVD'            
    
15. C                   PARM      *BLANKS       REC_DAT  
    
16. C                   PARM                    VAL_LEN  
    
17. C                   PARM      'DEVD0600'    FMT_NAME
    
18. C                   PARM                    DEV_NAME
    
19. C                   PARM                    QUSEC   
    
20. C                   ENDIF                           
    
21. C* Check weather Client access device is legal.      
    
22. C*                                                   
    
23. C     DEV_TYE       IFEQ      '*PRT'                  
    
24. C                   CALL      'QDCRDEVD'              
    
25. C                   PARM      *BLANKS       REC_DAT   
    
26. C                   PARM                    VAL_LEN   
    
27. C                   PARM      'DEVD1100'    FMT_NAME  
    
28. C                   PARM                    DEV_NAME  
    
29. C                   PARM                    QUSEC     
    
30. C                   ENDIF                             
    
31. C* ERROR PRINT OUT                                   
    
32. C*                                                   
    
33. C     QUSBAVL       IFGT      0                     
    
34. C                   MOVEL     *BLANKS       REC_DAT  
    
35. C                   MOVEL     QUSEI         REC_DAT  
    
36. C                   ENDIF                           
    
37. C                   OUT       LDA_DS                 
    
38. C*                                                   
    
39. C* Exit the program                                 
    
40. C*                                                   
    
41. C                   EVAL      *INLR='1'              
    
42. C                   RETURN                           
    

复制代码