Hallo Zusammen,

ich versuche krampfhaft das API QSYCHGPW in einem VB Programm zum Laufen zu bekommen. Die Verbindung zur AS400 funktioniert, sie wird mit einem User durchgeführt der *SECOFR ist. Es wird kein Fehler ausgegeben, aber das Passwort wird nicht geändert. Vielleicht hat von euch einer eine Idee.

Hier der Code:

Dim cniSeries2 As New ADODB.Connection
Dim cm_QSYS_QSYCHGPW As New ADODB.Command
CnString$ = "Provider=IBMDA400;Data Source=10.1.1.1;User ID=xxxx;Password=xxxxx"
cniSeries2.Open CnString, "", ""
Set cm_QSYS_QSYCHGPW.ActiveConnection = cniSeries2
cm_QSYS_QSYCHGPW.CommandText = "{{CALL /QSYS.LIB/QSYS.LIB/QSYCHGPW.PGM(?,?,?,?)}}"
cm_QSYS_QSYCHGPW.Prepared = True
cm_QSYS_QSYCHGPW.Parameters.Append cm_QSYS_QSYCHGPW.CreateParameter("USERID", adChar, adParamInput, 10)
cm_QSYS_QSYCHGPW.Parameters.Append cm_QSYS_QSYCHGPW.CreateParameter("CURPWD", adChar, adParamInput, 10)
cm_QSYS_QSYCHGPW.Parameters.Append cm_QSYS_QSYCHGPW.CreateParameter("NEWPWD", adChar, adParamInput, 10)
cm_QSYS_QSYCHGPW.Parameters.Append cm_QSYS_QSYCHGPW.CreateParameter("RETURN", adChar, adParamInputOutput, 12)
cm_QSYS_QSYCHGPW.Parameters.Item(0) = Main.TextUser
cm_QSYS_QSYCHGPW.Parameters.Item(1) = Main.TextPassword
cm_QSYS_QSYCHGPW.Parameters.Item(2) = Main.TextNewPassword
On Error Resume Next
cm_QSYS_QSYCHGPW.Execute