程序代码

Private Sub Command1_Click()

On Error GoTo err

Dim objSWbemLocator As SWbemLocator

Dim objSWbemServices As SWbemServices

Dim objSWbemObjectSet AsSWbemObjectSet

Dim objSWbemObject As SWbemObject

Dim strComputer As String,strNameSpace AsString,strClass As String

Dim sstr As String

sstr = Text2.Text

'判断服务是否启动

strComputer = "."

strNameSpace = "root/cimv2"

strClass = "Win32_Service"

Set objSWbemLocator =CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices =objSWbemLocator.ConnectServer(strComputer,strNameSpace)

Set objSWbemObjectSet =objSWbemServices.ExecQuery("Select * FROM " & strClass &" where name='" & sstr& "'")

For Each objSWbemObject InobjSWbemObjectSet

Text1.Text = "服务状态：" + objSWbemObject.State _

+ Chr(13) + Chr(10) + "启动方式：" +objSWbemObject.StartMode

Next

Exit Sub

err:

Text1.Text = "服务名不对！"

End Sub

如果服务已经启动需要关闭把后面这样修改，如防火墙

程序代码程序代码

For Each objSWbemObject InobjSWbemObjectSet

Text1.Text = "系统防火墙状态：" +objSWbemObject.State + " 启动方式：" +objSWbemObject.StartMode + ".."

fwstatus = objSWbemObject.State

Next

If fwstatus = "Running" Then

Text1.Text = "系统防火墙开启，将被自动关闭......"

Shell "net stopsharedaccess"

End If