复制代码 代码如下:

'****************************

'*by r05e

'*检验SQL SERVER是否在这机器上工作

'****************************

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

Set colServices = objWMIService.ExecQuery _

("Select * from Win32_Service Where Name = 'MSSQLServer'")

If colServices.Count > 0 Then

For Each objService in colServices

Wscript.Echo "SQL Server is " & objService.State & "."

Next

Else

Wscript.Echo "SQL Server is not installed on this computer."

End If