On Error Resume Next Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim resGuid resGuid = WScript.Arguments(0) Dim fileName fileName = "testactions." & resGuid & "csv" 'Message fileName Dim file If fso.FileExists(fileName) Then Set file = fso.OpenTextFile(fileName, 1) 'Message "have file" Dim colLine, resLine colLine = file.ReadLine resLine = file.ReadLine file.close() Set file = Nothing Message colLine Message resLine colLine = Replace(colLine, """", "") Dim shell Set shell = CreateObject("WScript.Shell") Dim cmd cmd = "C:\Program Files\MariaDB 10.6\bin\mysqlimport --local --user=PHPImport --password=LetMeIn2015 new_db_2005 --fields-optionally-enclosed-by=\"" --fields-terminated-by=, --ignore-lines=1 --columns=" & colLine & " --verbose " & fileName 'Message cmd Dim cmdMinus cmdMinus = Replace(cmd, colLine, "") 'Dim resultFields 'resultFields = Split(resLine, ",") 'Dim resGuid 'resGuid = resultFields(9) Message resGuid Dim output output = RunCommandAndGetResult(cmd) Message("Warning..") Dim warnings warnings = Split(output, "Warnings: ") Message warnings(1) Dim warningCount warningCount = Split(warnings(1))(0) Message warningCount ' Check whether report is in database cmd = "C:\Program Files\MariaDB 10.6\bin\mysql -e ""SELECT count(*) FROM actions WHERE reportGuid = '" & resGuid & "'"" --user=PHPImport --password=LetMeIn2015 new_db_2005" Message cmd Dim selectCount selectCount = RunCommandAndGetResult(cmd) Dim count count = Split(selectCount, "(*)") Message count(1) Dim numCount numCount = Split(count(1), vbCrLf) Message numCount(1) Dim archiveFolder Message archiveFile If numCount(1) <> "1" Then SendAlert "Import unsuccessful", resLine Message "Failed" archiveFolder = "Error" ElseIf warningCount <> "0" Then SendAlert "Import generated warnings, but report has been imported", resLine Message "Warning" archiveFolder = "actions" Else Message "Success" archiveFolder = "Done" End If Dim archiveFile archiveFile = "AutoImport_" & archiveFolder & "\" & fileName If fso.FileExists(archiveFile) Then fso.DeleteFile(archiveFile) End If fso.moveFile fileName, archiveFile Set fso = Nothing End If Function RunCommandAndGetResult(cmd) Dim scriptExec 'Message cmdMinus Set scriptExec = shell.Exec(cmd) Do While scriptExec.Status = 0 WScript.Sleep 100 Loop Dim output If not scriptExec.StdOut.AtEndOfStream Then output = scriptExec.StdOut.ReadAll() End If Message output RunCommandAndGetResult = output End Function Public Sub SendAlert(subject, body) Set oMessage = CreateObject("CDO.Message") oMessage.From = "" oMessage.To = "" oMessage.Subject = "testactions Auto Import: " & subject oMessage.Textbody = body oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailServer" oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "UserName" oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password" oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 oMessage.Configuration.Fields.Update oMessage.Send End Sub Public Sub Message(text) 'MsgBox text End Sub