gettimex.vbs

来自「IBM 开发的easy cics通讯相关的源代码」· VBS 代码 · 共 20 行

	srv = InputBox("请输入CICS服务器：")
	if srv="" then Wscript.Quit 0

	set oEc = Wscript.CreateObject("EasyCics.App")

	r = oEc.ConnectServer(srv, "CICSUSER", "")
if r<>0 then
	MsgBox "can't connect"
	Wscript.Quit r
end if

	oEc.CallProgramAndCommit "GETTIME"
	r= oEc.GetErrCode
if r<>0 then
	MsgBox "ECI call failed"
	Wscript.Quit r
end if

	MsgBox oEc.GetValue("TIME")