Sub RunWSH(sPath As String, sParameters As String)
Dim shl As Shell
Dim lstParams As List: lstParams.Initialize
Try
' define the script to execute pass it the BAL and BIL files
sPath = jMash.InQuotes(sPath)
lstParams.Add(sParameters)
shl.Initialize("shl", sPath, lstParams)
shl.WorkingDirectory = ProjectPath
shl.Run(-1)
Catch
Log(LastException.Message)
End Try
End Sub