vbscript - 使用带有 SSL 加密的 Vbscript(UFT) 的 Azure 云数据库的连接字符串

Question

如何使用带有 SSL 加密的 Vbscript 连接到 Azure 云数据库。

我尝试使用 ADODB 连接到 Azure Cloud DB，但无法连接。查看我的代码以向我推荐正确的代码以连接到 Cloud DB。以及如何将“.jks”文件添加到此代码中。

inp_HostName="AZULVSASDB2M08"
inp_Database="DODSM01"
inp_Port="50513"
inp_UID="ABCD"
inp_PWD="******"
inp_schema="LIFEODS"

Set objCon = CreateObject("ADODB.Connection")
Set objRS1 = CreateObject("ADODB.recordset")

strConnectionString = "Driver=IBM DB2 ODBC DRIVER;hostname=" & 
Trim(inp_HostName) & ";database=" & trim(inp_Database) & ";port=" & 
trim(inp_Port )& ";UID=" & trim(inp_UID) & ";Password=" & trim(inp_PWD) & 
";Protocol=TCPIP;CurrentSchema=LIFEODS"

objCon.ConnectionString = strConnectionString
objCon.Open
MsgBox "Done"

我希望通过 SSL 加密成功连接到 Azure DB。我收到此错误。

在此处输入图像描述