[Iska]

Код:

  For Each objService In colServices
  MsgBox  objService.Name
    objService.StartService()
  Next
  WScript.Echo "All services has been running"

Неназванный автор забыл самую малость — проверять значение, возвращаемое методом «.StartService()», и только на основании этого делать какие-то выводы об успешности запуска каждой службы. Нет, он смело пишет: «All services has been running». Теперь к Вашей службе: она хоть перечисляется в отобранном по:

Код:

WHERE State = 'Stopped' and StartMode = 'Auto'"

списке?

Этот способ тоже не работает »

'Пришлось взять в кавычки, т.к. скрипт ругается на -2 »

Возьмите в кавычки ещё и «Hamachi2Svc» в:

Код:

Call StartOrStopService(start, "Hamachi2Svc")

и используйте в каждом скрипте VBScript команду «Option Explicit», дабы не делать подобных ошибок. Пытаться указывать имя исполняемого файла в качестве имени службы («hamachi-2.exe») смысла нет.