' Check for ActiveX based Helper control
dim detectableWithVB : detectableWithVB = False
If ScriptEngineMajorVersion >= 2 then
  detectableWithVB = True
End If

Function detectActiveXControl(activeXControlName)
  on error resume next
  detectActiveXControl = False
  If detectableWithVB Then
     detectActiveXControl = IsObject(CreateObject(activeXControlName))
  End If
End Function

if not helperInstalled then helperInstalled = detectActiveXControl("LAUNCHHELPER.LAUNCHHelperCtrl.1")
'MsgBox("DBG HelperInstalledB.vbs: helperInstalled " & helperInstalled)