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 must first create a connection object and invoke the Details method to associate a userid and password with the object. The two methods available are Verify Password that checks the userid and password within the connection object with the Server Security System, and ChangePassword that allows you to change the password at the server. If successful the connection object password is updated accordingly.
' Connection object already created called conn on error goto pemhandler Dim SecAttr as CclOSecAttr Dim LastVerified as CclOSecTime Dim lvdate as Date Set SecAttr = conn.VerifySecurity 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