免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2468 | 回复: 5
打印 上一主题 下一主题

如何知道中斷的IP [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2007-02-05 11:59 |只看该作者 |倒序浏览
很多終端用PCOM連接上AS400,請教如果知道終端的IP

论坛徽章:
0
2 [报告]
发表于 2007-02-05 12:00 |只看该作者
呵呵 寫錯了 是終端 不是 中斷

论坛徽章:
0
3 [报告]
发表于 2007-02-05 12:10 |只看该作者

找到啦

利用 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
**************************************************

论坛徽章:
0
4 [报告]
发表于 2007-02-05 12:17 |只看该作者
netstat ,local port=telnet, 选项8,然后看作也名字,就知道终端名字,反之就知道了终端和ip的对应!

论坛徽章:
0
5 [报告]
发表于 2007-02-05 15:29 |只看该作者
原帖由 bjrichard1 于 2007-2-5 12:17 发表
netstat ,local port=telnet, 选项8,然后看作也名字,就知道终端名字,反之就知道了终端和ip的对应!


楼主要意思,估计是从程序中去取

论坛徽章:
0
6 [报告]
发表于 2007-02-06 23:28 |只看该作者
刚好要用到。谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP