ADODB, SQLSERVER, SERVERPROPERTY: différents types utilisant sqloledb ou pilote ODBC?

J'essaye de commuter un de mes manuscrits de VBS d'employer SQLOLEDB au conducteur d'ODBC. Tant que tout fonctionne comme prévu – toutes sauf une chose:

Lors de l'extraction de SERVERPROPERTY ("is_clustered") à partir d'une instance MSSQL, la valeur résultante est différente pour chaque pilote.

Voici la sortie d'un exemple de script (le script suit ci-dessous):

C:\> cscript test.vbs Provider: sqloledb is_clustered (name): is_clustered is_clustered (type): 12 is_clustered (value): 0 Driver: (SQL Server) is_clustered (name): is_clustered is_clustered (type): 204 C:\test.vbs(33, 1) Microsoft VBScript runtime error: Type mismatch 

Est-ce que quelqu'un sait ce que je fais mal ou ce qui me manque dans mon code?

Oh, oui, le code … voici l'exemple de script lui-même:

 Option Explicit Dim RS, CONN1, CONN2 Set RS = CreateObject("ADODB.Recordset") Set CONN1 = CreateObject("ADODB.Connection") CONN1.ConnectionTimeout = 2 CONN1.Provider = "sqloledb" CONN1.Properties("Integrated Security").Value = "SSPI" CONN1.Properties("Data Source").Value = "HOSTNAME\INST01" CONN1.Open WScript.echo "Provider: sqloledb" & vbLf RS.Open "SELECT SERVERPROPERTY('IsClustered') AS is_clustered", CONN1 WScript.echo "is_clustered (name): " & RS.fields(0).Name WScript.echo "is_clustered (type): " & RS.fields(0).Type WScript.echo "is_clustered (value): " & RS("is_clustered") & vbLf RS.Close Set CONN2 = CreateObject("ADODB.Connection") CONN2.ConnectionTimeout = 2 CONN2.ConnectionSsortingng = "driver={SQL Server};" & _ "server=HOSTNAME\INST01;" & _ "Trusted_Connection=yes" CONN2.Open WScript.echo "Driver: (SQL Server)" & vbLf RS.Open "SELECT SERVERPROPERTY('IsClustered') AS is_clustered", CONN2 WScript.echo "is_clustered (name): " & RS.fields(0).Name WScript.echo "is_clustered (type): " & RS.fields(0).Type WScript.echo "is_clustered (value): " & RS("is_clustered") RS.Close 

Merci d'avance!

BR, Marcel