將AS400（IBM i）配置文件令牌傳遞給OLE DB連接

Question

我們有一個Java應用程序（網絡服務器），可以爲授權用戶提供AS400（IBM i）配置文件令牌憑證，並使用JT Open軟件包（它以字母數字字符串結尾）。我們可以將此配置文件令牌傳遞給其他Java應用程序，以便他們可以使用它來建立連接，而無需傳遞用戶/密碼或在每臺客戶端PC上的配置文件中擁有多個用戶/密碼副本。

我們現在需要調用一個當前需要用戶/密碼的傳統VB應用程序（VB6），但我們希望能夠將它傳遞給Profile Token Credential。 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 

...或相似。

我查看了v7R1 IBM i Access for Windows OLE DB技術參考，我看不到任何提及配置文件令牌憑據。 MS文檔也只提及用戶/密碼（http://msdn.microsoft.com/en-us/library/windows/desktop/ms676505(v=vs.85).aspx）。

我想知道的是，是否有人使用配置文件令牌憑證與OLE DB/ADO或任何其他Visual Basic 6.0兼容的數據庫技術，如果他們有，是否有任何文檔，示例或引用可以分享？

順便說一句 - 如果令牌技術不能與VB6一起使用，但可以與VB.NET一起使用，那麼我們也會有興趣知道如何實現。

Answer 1

您可以使用通用最低權限配置文件執行初始連接，然後調用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