I would start by replacing:
 Code:
If $serviceCount <> $totalServiceCountToCheck
  Dim $WshShell
  $WshShell = CreateObject("WScript.Shell")
  $WshShell.Run($pathOfWFBSHInstaller)
EndIf


with:
 Code:
If $serviceCount <> $totalServiceCountToCheck
  shell $pathOfWFBSHInstaller
  if @error
   "the installer failed with error:" @error
   get $
  endif
EndIf
_________________________
!

download KiXnet