Überprüfung in Batch Datei

On Error Resume Next
dim arrArbeitsmappen,objExcel, wb
'Pfade der Arbeitsmappen welche geöffnet werden sollen  
arrArbeitsmappen = Array("C:\Datei1.xlsx","C:\Datei2.xlsx","C:\Datei3.xlsx")  
'Excel sichtbar starten  
Set objExcel = CreateObject("Excel.Application")  
objExcel.DisplayAlerts = False
objExcel.Visible = True

' Für jede Arbeitsmappe  
For i = 0 To UBound(arrArbeitsmappen)
	' öffne die Arbeitsmappe   
        set wb = objExcel.Workbooks.Open(arrArbeitsmappen(i))
	'wenn die Mappe schreibgeschützt geöffnet wurde ist sie gesperrt, also breche den Vorgang ab  
        if wb.ReadOnly then
            msgbox "Die Arbeitsmappe " & arrArbeitsmappen(i) & " ist durch einen anderen Benutzer gesperrt. Der Vorgang kann nicht fortgesetzt werden", vbExclamation  
             objExcel.DisplayAlerts = True
             wscript.quit
	End If
Next

cscript.exe //NOLOGO c:\script.vbs