Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <cfexecute name = "C:WindowsSystem32CScript.exe"
- arguments = "//NoLogo D:Excel.vbs D:test.xls"
- variable = "data"
- timeout = "100">
- </cfexecute>
- <cfdump var="#data#">
- Error: 424 Source: Microsoft VBScript runtime error Description: Object required
- C:WindowsSystem32 > cscript //nologo D:Excel.vbs D:test.xls
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set xl = CreateObject("Excel.Application")
- xl.Visible = True
- For Each f In fso.GetFolder("C:inetpubWebSitesUpload").Files
- If LCase(fso.GetExtensionName(f.Name)) = "xlsx" Then
- Set wb = xl.Workbooks.Open(f.Path)
- wb.RefreshAll
- wb.Save
- wb.Close
- End If
- Next
- xl.Quit
- <cfexecute name = "C:WindowsSystem32cscript.exe" arguments = "C:inetpubWebSitesCSATtest.vbs">
- </cfexecute>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement