Dim arg, xls, csv, xl, book, sheet
Set arg = WScript.Arguments
If Arg.Count < 2 Then
    WScript.Quit
End If

xls = arg(0)
csv = arg(1)

Set xl = Wscript.CreateObject("Excel.Application")
xl.Visible = Fales
xl.DisplayAlerts = Fales
Set book = xl.WorkBooks.Open(xls)
Set sheet = book.worksheets(1)
Sheet.Activate
book.SaveAs csv, 6
'book.SaveAs "x:\filename.ext", xlCSV
'xlCSV = 6
'xlCSVMac = 22
'xlCSVMSDOS = 24
'xlCSVWindows = 23
'book.Close True
xl.Quit

Set xl = Nothing
Set arg = Nothing