查看SQL状态的vbs

2009-9-23 15:51 618 0

摘要: 　　检验SQL SERVER是否在这机器上工作　　代码如下: 　　'**************************** 　　'*by r05e 　　'*检验SQL SERVER是否在这...

　　检验SQL SERVER是否在这机器上工作　　代码如下: 　　'**************************** 　　'*by r05e 　　'*检验SQL SERVER是否在这机器上工作　　'**************************** 　　strComputer = "." 　　Set objWMIService = GetObject("winmgmts:" _ 　　& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 　　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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除