1

我有一个运行以下 sql 查询的 .vbs 脚本： Select COUNT (*) from sys.objects 从 sql 查询输出计算行数： https://i.stack.imgur.com/wduXW.png[1]

如果找到任何行（> 0）。使用 SCOM 中的 PropertyBag 脚本运行时在 SCOM 中生成警报。

问题是，在调试脚本（使用 cscript）时，我收到以下错误消息：

(11,1) 用于 ODBC 驱动程序的 Microsoft OLE DB 提供程序：[Microsoft][ODBC SQL Server Driver][Shared Memory]SQL Server 不存在或访问被拒绝。

虽然连接字符串似乎是正确的：

strConnection = "驱动程序={SQL Server}；服务器=SCOMSRVDB01；数据库=DBABee；Trusted_Connection=TRUE"

这是完整的 VBScript：

Dim objCN, strConnection
Dim oAPI, oBag

Set objCN = CreateObject("ADODB.Connection")
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oBag = oAPI.CreatePropertyBag()



strConnection = "Driver={SQL Server};Server=SCOMSRVDB01;Database=DBABee;Trusted_Connection=TRUE"
objCN.Open strConnection

Dim strSQLQuery
strSQLQuery = "Select COUNT (*) from sys.objects"

Dim objRS
Set objRS=CreateObject("ADODB.Recordset")

Set objRS = objCN.Execute(strSQLQuery)

Do Until objRS.EOF
                'WScript.Echo objRS.Fields("No column name")
                if objRS.Fields("No column name") > 0 then
                                                                'WScript.Echo "evaluated as bad"
                                Call oBag.AddValue("State","BAD")
                                Call objAPI.Return(oBag)
                else
                                Call oBag.AddValue("State","GOOD")
                                Call objAPI.Return(oBag)
                end if
                objRS.MoveNext
Loop

objRS.Close

值得一提的是，在我们公司，如果不提及端口号，您就无法连接到 sql server。

但是当我尝试在连接字符串中添加它（端口：2880）时：

strConnection = "驱动程序={SQL Server}；服务器=SCOMSRVDB01,2880；数据库=DBABee；Trusted_Connection=TRUE"

该脚本返回以下错误：

(23,17) ADODB.Recordset：在与请求的名称或序号相对应的集合中找不到项目。

4

1 回答 1

1

ADODB 报错，表明该项目连接被找到，表示您已成功连接到数据库，但找不到您请求的列。这是找不到的：objRS.Fields("No column name")

更改您的查询并命名该列：

strSQLQuery = "Select COUNT (*) as countStuff from sys.objects"

然后更改您要查找的内容：

if objRS.Fields("countStuff") > 0 then
于 2018-03-21T15:40:42.433 回答