'****************************
'*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
如对本文有疑问,
点击进行留言回复!!
相关文章:
-
-
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
网友评论