' VBScript File
function jCreateObject(progID)
	On Error Resume Next
	set jCreateObject=CreateObject(progID)
end function