You can perform security management on servers that support Password Expiry Management. Refer to the CICS® Transaction Gateway: Administration book for your operating system, for more information on supported servers and protocols.
To use these features you first must have created a Terminal object and invoked the SetTerminalDefinition method to associate a userid and password with the object. The two methods available are VerifyPassword which checks the userid and password within the terminal object with the Server Security System, and ChangePassword which allows you to change the password at the server. If successful, the terminal object password is updated accordingly.
If either call is successful, you are returned a CclOSecAttr object. This object provides access to information such as last verified Date and Time, Expiry Date and Time and Last access Date and Time. If you query for example last verified Date, you are returned a CclOSecTime object which allows you to get the information in various formats. The following shows the use of these various objects.
' Terminal object already created called term on error goto pemhandler dim SecAttr as CclOSecAttr dim LastVerified as CclOSecTime dim lvdate as Date set SecAttr = term.VerifyPassword set LastVerified = SecAttr.LastVerifiedTime lvdate = LastVerified.GetDate strout = Format(lvdate, "hh:mm:ss, dddd, mmm d yyyy") Text1.Text = strout exit sub pemhandler: ' handle a expired password here maybe end sub