将AS400（IBM i）配置文件令牌传递到OLE DB连接

Question

我们有一个Java应用程序（网络服务器），该应用程序可以为授权用户提供AS400（IBM i）配置文件令牌凭证，该凭证使用JT Open软件包（以字母数字字符串结尾）生成。 我们可以将此配置文件令牌传递给其他Java应用程序，以便他们可以使用它来建立连接，而无需我们在每个客户端PC上的配置文件中传递用户/密码或具有多个用户/密码副本。

现在，我们需要调用旧版VB应用程序（VB6），该应用程序当前需要用户/密码，但我们希望能够传递给它一个配置文件令牌凭据。 VB程序使用OLE DB（ADODB对象）建立与AS400的连接。 例如当前代码...

oCN = New ADODB.Connection
oCN.Open "Provider=IBMDA400;Data Source=AS400SERVERNAME;Force Translate=0", USER, PASSWORD

...我们希望将其更改为...

oCN = New ADODB.Connection
oCN.Open "Provider=IBMDA400;Data Source=AS400SERVERNAME;Force Translate=0", TOKEN

...或类似。

我查看了针对Windows OLE DB v7R1 IBM i Access的技术参考，但看不到任何概要文件令牌凭证。 MS文档也仅提及用户/密码（ http://msdn.microsoft.com/zh-cn/library/windows/desktop/ms676505(v=vs.85).aspx ）。

我想知道的是，是否有人将Profile Token Credentials与OLE DB / ADO或任何其他Visual Basic 6.0兼容数据库技术一起使用，如果有，您是否可以共享任何文档，示例或参考？

顺便说一句-如果令牌技术不能与VB6一起使用，但可以与VB.NET一起使用，那么我们也将对如何做到这一点感兴趣。

Answer 1

您可以使用通用的最小权限配置文件执行初始连接，然后调用QSYSETPT API以使用令牌采用特定的配置文件。

cnn = New ADODB.Connection
cnn.Open "Provider=IBMDA400;Data Source=AS400SERVERNAME;Force Translate=0", USER, PASS
cmd = New ADODB.Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = "{{CALL QSYSETPT(?,?)}}"
cmd.Parameters.Append
    cmd.CreateParameter(, adBinary, adParamInput, 32, token)
cmd.Parameters.Append 
    cmd.CreateParameter(, adInteger, adParamInputOutput, 4, 0)
cmd.Execute