VBScript check to see if a service is installed

For the most part WMI won't return anything that doesn't exist and VBscript doesn't have the means to exit gracefully from this even when using On Error Resume Next. I'm merely posting this because it seemed to be a common problem to which no quick answer could be found. Hope this helps someone.