Используйте этот скрипт для запуска службы:
'' Starts service 'strService' on computer named 'strComputer'
''
Sub StartService(strService, strComputer)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='" & strService & "'")
For Each objService in colListOfServices
objService.StartService
Next
End Sub
'' Start Windows CardSpace service on local host:
StartService "idsvc", "."
Вместо StartService
вы можете использовать StopService
, чтобы остановить службу. В этой статье MSDN приведены другие полезные методы Win32_Service
.
.