>local oShell, llError, loException >llError = .f. >try > oShell = createobject("WScript.Shell") >catch to loException > if m.tlSilentMode > tcRetVal = "Run-time error: WScript.Shell Object is not Found" > else > =messagebox("Run-time error: WScript.Shell Object is not Found") > endif > llError = .t. >endtry >if m.llError <> .t. > try > oShell.run(m.tcCommand, 0,.t.) catch to loException > if m.tlSilentMode > tcRetVal = "Run-time error: WScript.Shell: " + ; > m.tcCommand + chr(13) + chr(10) + Log_Error(m.loException) > else > =messagebox("Run-time error: WScript.Shell: " + m.tcCommand) > endif > llError = .t. > endtry >endif >release oShell > >return !llError >>