SS64 Forum

rasleyd

New Member

Registered: 03 Dec 2020

Posts: 1

Error trapping for "The application failed to initialize properly"

I have a relatively simple script set up to read the registry to find the executable for a specified program, concatenate this with up to three parameters, and then execute it via a shell command.  Most times it runs smoothly, but occasionally it gives me a "The application failed to initialize properly" error, code 0xc0000142.  When I am running these scripts in sequence, clicking "OK" on this (the only option available) exits the script and goes on to the next one - oftentimes the exact same script but with the next set of parameters, and usually without any further errors.

I would like to error trap on this and have the script retry instead of failing.  This script is usually used for Excel or Access, but it is only Access that causes these fails, if that is of any help.

-----------------------------------------------------

dim objShell, WshShell, ProgToFind, FileToCall, Param1, Param2
Set objShell = CreateObject("WScript.Shell")
Set Arg = WScript.Arguments

Set WshShell = WScript.CreateObject("WScript.Shell")

On Error Resume Next

ProgToFind = "MSACCESS.EXE"
'FileToCall = "S:\blather\GeneralLedger.mdb"
'Parameters = "/x macPrintRebates"

FileToCall = Arg(0)
Param1 = Arg(1)
Param2 = Arg(2)


'WScript.Echo WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & ProgToFind & "\")
	AppPath = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & ProgToFind & "\")
	If Len(AppPath) = 0 Then
		WScript.Echo "App Not Found"
		WScript.Quit
		End If
	CommandStr = Chr(34) & AppPath & Chr(34) & " " & Chr(34) & FileToCall & Chr(34) & " " & Param1 & " " & Param2
	'WScript.Echo CommandStr
	objShell.run CommandStr


'Wait until ProgToFind finishes running before ending script

Dim i
Dim strComputer
 
strComputer = "."

Do Until colProcessList.count = 0

	Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colProcessList = objWMIService.ExecQuery ("Select Name from Win32_Process WHERE Name='" & ProgToFind & "'")

	WScript.Sleep(1000)

	Loop

'WScript.echo ProgToFind & " finished running"


Set objWMIService = Nothing
Set colProcessList = Nothing

Simon Sheppard

Admin

Registered: 27 Aug 2005

Posts: 1,130

Website

Re: Error trapping for "The application failed to initialize properly"

Some examples of error handling are here:
https://ss64.com/vb/onerror.html

I bet the cause is clicktoRun/install, so you may find that just opening and closing Access before doing anything else will be enough to avoid the error.