compname = ""
    strCommand = ""
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate," _ 
    & "authenticationLevel=pktPrivacy}!" _ 
    & "\\" & compname & "\root\cimv2") 
    strName = "_strcmdfordel"
    Const OWN_PROCESS = 16
    Const NOT_INTERACTIVE = False
    Const NORMAL_ERROR_CONTROL = 2
    Set objService = objWMIService.Get("Win32_BaseService")
     errReturn = objService.Create(strName , strName, "" & strCommand & "", OWN_PROCESS, NORMAL_ERROR_CONTROL, "Manual",_
         NOT_INTERACTIVE, "LocalSystem", "Test service.")
    If errReturn = "0" Then
        Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service Where Name = '"+strName+"'")
        For Each objService in colListOfServices
            objService.StartService()
            objService.Delete()
        Next
        WScript.Echo strName & " запуск выполнен"
    Else
        WScript.Echo  "Произошла ошибка в запуске: " & errReturn
    End If

If Connection(strComputer) Then
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objCollection = objWMI.ExecQuery("SELECT Name FROM Win32_Process WHERE Name='" & strProcess & "'")
    If objCollection.Count = 0 Then
        Set objInstance = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process")
        intErr = objInstance.Create(strProcess, null, null, intProcID)
        If intErr = 0 Then
            WScript.Echo "Процесс на станции " & UCase(strComputer) & " запущен. Его ID: " & intProcID
        Else
            WScript.Echo "Ошибка запуска процесса на станции " & UCase(strComputer) & ". Код ошибки: " & intErr
            WScript.Quit
        End If

Dim objSink, fso, LogFile, objService, rComp, Service1, Service2
rComp = "." 
Service1 = "Jawa.exe"
Service2 = "Spooler" 
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set LogFile = fso.OpenTextFile("C:\log.Log", 8, True)
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & rComp & "\root\cimv2")

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & rcomp & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'notepad.ехе'")

objService.ExecNotificationQueryAsync objSink, _
"Select * From __InstanceModificationEvent Within 15 Where TargetInstance ISA 'Win32_Service'"
Do 
    WScript.Sleep 1000
Loop

Sub SINK_OnObjectReady(objLatestEvent, objAsyncContext)
    Dim xDate
        If colProcesses.Count = 0 Then
              Set objShell = WScript.CreateObject("WScript.Shell")
              objShell.Run("C:\Start.bat"), 1, True
              xDate = Date & "   " & Time
              Call sendMessage(tcValue, xDate, Service1)
        Elseif LCase(objLatestEvent.TargetInstance.Name) = LCase(Service2) Then
        If objLatestEvent.TargetInstance.State = "Stopped" Then
              xDate = Date & "   " & Time
              tcValue = objLatestEvent.TargetInstance.StartService
              Call sendMessage(tcValue, xDate, Service2)
        End If
    End If
End sub

rcomp = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & rcomp & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'джава.ехе'")
If colProcesses.Count = 0 Then
    Set objShell = WScript.CreateObject("WScript.Shell")
    objShell.Run("C:\Start.bat"), 1, True
Else
   
End If

Sub sendMessage(runState, xDate, Named)
    On Error Resume Next
    Dim tempStr, objMessage, WshNetwork
    Set objMessage = CreateObject("CDO.Message")
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    'Проверка состояния сервисов
    Select Case runState
        Case 0
            tempStr = "был успешно запущен."
        Case Else
            tempStr = "запуск этого сервиса невозможен."
    End Select
    'Создание сообщения
    objMessage.To = ""
    objMessage.From = ""
    objMessage.Subject = "Automessage from"
    objMessage.TextBody = xDate & " cервис " & Named & " перешёл в состояние СТОП." & VbCrLf & Date & "   " & Time & " " & tempStr
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
    objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objMessage.Configuration.Fields.Update
    objMessage.Send
    If Err.Number <> 0 Then
        LogFile.WriteLine "Отправка письма невозможна по причине: " & Err.Description
        Err.Clear
    End If
    LogFile.WriteLine xDate & " cервис " & Named & " перешёл в состояние СТОП." & _
    VbCrLf & Date & "   " & Time & " " & tempStr
    LogFile.WriteLine
    Set objMessage = Nothing
    Set WshNetwork = Nothing    
End Sub