'первая часть скрипта - подготовка файла 
Dim objExcel
Dim objWorkbook
Dim objWorksheet
Dim Argument

For Each xFile In WScript.Arguments
  'msgbox xFile  



Set objExcel     = WScript.CreateObject("Excel.Application")
Set objWorkbook  = objExcel.Workbooks.open (xFile)
Set objWorksheet = objWorkbook.Worksheets.Item(1)

objExcel.Visible  = True
With objWorksheet
    
.Range(.Columns(2), .Columns(8)).EntireColumn.Delete
.Range(.Columns(4), .Columns(5)).EntireColumn.Delete
.Range(.Columns(6), .Columns(11)).EntireColumn.Delete
.Range(.Columns(8), .Columns(9)).EntireColumn.Delete
.Range(.Columns(12), .Columns(15)).EntireColumn.Delete
.Range(.Columns(10), .Columns(11)).EntireColumn.Delete
    
End With
objWorksheet.Rows(1).Delete

Next
'здесь у нас открыто два файла - из которых нам нужно внести данные в Базу, 
'при том содержимое обоих файлов отличается только количеством столбцов
 



'вторая часть: открытие базы для записи


Const ADS_SCOPE_SUBTREE = 5 

'Под файловую систему
Set FSO = CreateObject("Scripting.FileSystemObject") 

'Под AD
Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand = CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "Active Directory Provider" 
Set objCommand.ActiveConnection = objConnection 

'Для SQLя
Dim cn
Dim rst
Set cn=CreateObject("ADODB.Connection")
Set rst=CreateObject("ADODB.Recordset")
'cn.open "uid=DOMAIN\admin;pwd=**********; driver={SQL Server}; server=DBSERVER2\MNG; database=SpoolLog"
cn.open "driver={SQL Server}; server=SQL; trusted_connection=yes; database=prolog"
'Проверим статус соединения.
If cn.State=1 Then 
Msgbox "Connected" 
else 
Msgbox "Ошибка, не подключен SQL" 
End If 
'запись данных .... ????
cn.close