[Той Серью]

Спасибо.
Только сейчас добрался до этой темы. Служба не запускается. В комментариях то, что сообщается по ходу выполнения скрипта

Код:

Option Explicit

Dim start , ServiceName, wmi, s
Sub StartOrStopService(Action, ServiceName)
Dim qry
MsgBox "Search services"
Set wmi = GetObject("winmgmts://./root/cimv2")
Wscript.Echo "Trying to " & Action & " service: " & ServiceName 'Появляется сообщение Trying to start service: Hamachi2Svc
Wscript.Echo qry ' Появляется пустое сообщение
qry = "SELECT * FROM Win32_Service WHERE Name='" & ServiceName & "'"
For Each s In wmi.ExecQuery(qry)
'Wscript.Echo  s ' Если включить эту строку, то ошибка "несоответствие типов"
MsgBox ServiceName 'Появляется сообщение Hamachi2Svc
Next
End Sub

Call StartOrStopService(start, "Hamachi2Svc")

В чем дело, не пойму. Что еще можно предпринять?