cmd /c >C:\Test.txt & for %# in (<служба1> <служба2> <служба3> <служба4>) do net stop %# & net start %#

CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Test.txt")
With CreateObject("Shell.Application")
  For Each Name in Split("<служба1> <служба2> <служба3> <служба4>")
    If .CanStartStopService(Name)
      If .IsServiceRunning(Name) Then .ServiceStop(Name, False)
      .ServiceStart(Name, False)
    End If
  Next
End With

If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
    "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'" _
    ).Count = 0 Then

If GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
    "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB'" _
    ).Count > 0 Then
    
    WScript.CreateObject("WScript.Shell").Run "notepad.exe"
End If

Option Explicit

Const wbemFlagReturnImmediately = &H00000010
Const wbemFlagForwardOnly       = &H00000020

Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx_Win32_DiskDrive, objSWbemObjectEx_Win32_DiskPartition, objSWbemObjectEx_Win32_LogicalDisk


Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set collSWbemObjectSet = objSWbemServicesEx.ExecNotificationQuery( _
    "SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE TargetInstance ISA 'Win32_PnPEntity' AND " & _
    "TargetInstance.Description = 'Дисковый накопитель'")

Do
    With collSWbemObjectSet.NextEvent
        Select Case .Path_.Class
            Case "__InstanceCreationEvent"
                With .TargetInstance
                    WScript.Echo "Plugged device:       ", .Name
                    WScript.Echo "DeviceID:             ", .DeviceID
                    
                    For Each objSWbemObjectEx_Win32_DiskDrive In .Associators_("", "Win32_DiskDrive",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                        WScript.Echo "  Physical disk drive:", objSWbemObjectEx_Win32_DiskDrive.Name
                        
                        If objSWbemObjectEx_Win32_DiskDrive.Partitions > 0 Then
                            For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_("", "Win32_DiskPartition",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                WScript.Echo "    Disk partition:   ", objSWbemObjectEx_Win32_DiskPartition.Name
                                
                                For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_("", "Win32_LogicalDisk",,,,,,, wbemFlagReturnImmediately + wbemFlagForwardOnly)
                                    With objSWbemObjectEx_Win32_LogicalDisk
                                        WScript.Echo "      Logical disk:   ", .Name & " (" & .VolumeName & "), " & .FileSystem
                                    End With
                                Next
                            Next
                        End If
                    Next
                    
                    WScript.Echo
                End With
            Case "__InstanceDeletionEvent"
                With .TargetInstance
                    WScript.Echo "Unplugged device:     ", .Name
                    WScript.Echo "DeviceID:             ", .DeviceID
                    WScript.Echo
                End With
            Case Else
        End Select
    End With
Loop

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0

'-------------------------------------------------------------------------------------------------
'---------------- Без гарантий. Используете на свой страх и риск. --------------------------------
'-------------------------------------------------------------------------------------------------
'Скрипт предназначен для слежения за подключением/отключением Flash USB накопителя и основан на 
'интерфейсе WMI. События подключения, останова и физического извлечения накопителя, подтверждаются
'соответствующими сообщениями. Желательно запускать скрипт при включенном и опознанном накопителе, 
'либо при программно остановленном и удаленном из USB разъема компьютера.
'-------------------------------------------------------------------------------------------------
'Lang. VBScript
'OC WinMe/XP
'-------------------------------------------------------------------------------------------------
'Внимание! Возможность завершения работы скрипта здесь не предусмотрена.
'-------------------------------------------------------------------------------------------------

Public PlugIn,PlugOut,Disconnect
Public objService
Public PrevDrivesStr,DriveLetter

'[Подключение к пространству имен WMI]
'-------------------------------------------------------------------------------------------------
    Set objService        =GetObject    ("winmgmts:\\.\Root\CIMV2")

    PlugIn        =0    'Флаг подключения накопителя USB
    PlugOut        =0    'Флаг останова накопителя 
    Disconnect    =0    'Флаг физического извлечения накопителя

    GetDriveLetter False    'Определение первоначального состояния подключения



'[Создание запросов на события]
'-------------------------------------------------------------------------------------------------
Set objSink    =WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")

'/Соответствует подключению накопителя/
objService.ExecNotificationQueryAsync _
        objSink, _
        "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA ""Win32_USBControllerDevice"""

MsgBox "Запущено наблюдение за USB накопителем.", _
    vbExclamation Or vbSystemModal, _
    "Наблюдение за USB накопителем."

'[Бесконечный цикл с оповещением о состоянии USB контроллера в зависимости от состояния флагов]
'-------------------------------------------------------------------------------------------------
Do
    WScript.Sleep 100

    '[Оповещение события подключения]
    '-----------------------------------------------------------------------------------------
    If PlugIn=1     Then 
        If Disconnect=1 Then Disconnect=0    'Сброс флага в случае аварийного отключения накопителя
        '---------------------------------------------------------------------------------
        MsgBox "Подключен USB накопитель. " & _
            GetDriveLetter(True), _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"
        PlugIn        =0
    End If

    '[Оповещение события программного останова]
    '-----------------------------------------------------------------------------------------
    If PlugOut=1     Then 
        '---------------------------------------------------------------------------------
        MsgBox "USB накопитель остановлен программно либо произошло аварийное извлечение из корпуса компьютера. " & _
            GetDriveLetter(True), _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"
        PlugOut        =0
        Disconnect    =1
    End If
    '-----------------------------------------------------------------------------------------
Loop

'[Получение буквы съемного Flash USB диска]
'-------------------------------------------------------------------------------------------------
Function GetDriveLetter(flg)

        DrivesStr=""
        Set RemovableDrives    =objService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=2")
        '---------------------------------------------------------------------------------
        For Each Drive In RemovableDrives
            DrivesStr=DrivesStr & Drive.DeviceId
        Next
        '---------------------------------------------------------------------------------
        If flg=True Then    
            'Подключение накопителя
            If Len(DrivesStr)>Len(PrevDrivesStr) Then 
                DriveLetter=Replace(DrivesStr,PrevDrivesStr,"")
                GetDriveLetter=DriveLetter
            End If
            'Отключение накопителя
            If Len(PrevDrivesStr)>Len(DrivesStr) Then 
                DriveLetter=Replace(PrevDrivesStr,DrivesStr,"")
                GetDriveLetter=DriveLetter
            End If
        End If
        '---------------------------------------------------------------------------------
        PrevDrivesStr=DrivesStr
        
End Function

'[Обработка событий - простановка флагов состояния USB контроллера]
'-------------------------------------------------------------------------------------------------
Sub Sink_OnObjectReady(objEvent, objContext)    'Подключение

    OperationData        =objEvent.Path_.Class
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    If     OperationData="__InstanceCreationEvent" Then
        For Each objSWbemObjectEx_Win32_DiskDrive In objService.Get(objEvent.TargetInstance.Dependent).Associators_("", "Win32_DiskDrive")
            For Each objSWbemObjectEx_Win32_DiskPartition In objSWbemObjectEx_Win32_DiskDrive.Associators_("", "Win32_DiskPartition")
                For Each objSWbemObjectEx_Win32_LogicalDisk In objSWbemObjectEx_Win32_DiskPartition.Associators_("", "Win32_LogicalDisk")
                    WScript.Echo "Win32_LogicalDisk.DeviceID   := [" & objSWbemObjectEx_Win32_LogicalDisk.DeviceID & "]"
                    WScript.Echo "Win32_LogicalDisk.VolumeName := [" & objSWbemObjectEx_Win32_LogicalDisk.VolumeName & "]"
                Next
            Next
        Next
        
        PlugIn=1
    ElseIf     OperationData="__InstanceDeletionEvent" Then
        '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        If Disconnect=1 Then 

            '[Оповещение события физического извлечения]
            '-------------------------------------------------------------------------
            MsgBox "USB накопитель нормально извлечен из корпуса компьютера. " & _
            DriveLetter, _
            vbExclamation Or vbSystemModal, _
            "Наблюдение за USB накопителем"

            Disconnect    =0
        Else    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
            PlugOut        =1
        End If
        '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    End If
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
End Sub

'-------------------------------------------------------------------------------------------------
'poltergeyst