VBS detect USB & Launch Backup.bat Batch

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set evtDevice = objWMIService.ExecNotificationQuery ("SELECT * FROM Win32_VolumeChangeEvent")

Wscript.Echo "Waiting for events ..."
Do
    Set objReceivedEvent = evtDevice.NextEvent
    'report an event
    Wscript.Echo " Win32_Device Changed event occurred" & VBNewLine
    If objReceivedEvent.EventType = 1 Then
         Wscript.Echo "Type = Config Changed"
    ElseIf objReceivedEvent.EventType = 2 Then
         Wscript.Echo "Type = Device Arrived"

         Set colItems = objWMIService.ExecQuery("Select * From Win32_Volume")
         For Each objItem in colItems
               If objitem.DriveType = 2 then
                        Wscript.Echo objItem.DriveType & " " & objItem.Name & " " & objItem.driveletter

            Dim objFSO 'File System Object
            Set objFSO = CreateObject("Scripting.FileSystemObject")
            Dim objTS 'Text Stream Object
            Const ForWriting = 2
            Set objTS = objFSO.OpenTextFile("Filepath For Store Drive Letter.txt", ForWriting, True)
            objTS.Write (objItem.driveletter)
            objTS.Close()
            Set objTS = Nothing 'Destroy the object.
            Set WshShell=createobject("wscript.shell")
            WshShell.run "Filepath For Backup Program.bat", 1, true


               End If
        Next


    ElseIf objReceivedEvent.EventType = 3 Then
         Wscript.Echo "Type = Device Left"
    ElseIf objReceivedEvent.EventType = 4 Then
         Wscript.Echo "Type = Computer Docked"
    End If
Loop