使用 VBScript 判断是否安装了雅虎助手的方法

 

今天公司有人发邮件 问这个，所以查了一下，共同学习

    <script language="VBScript">
        Function IsExistsYahooAssist()Function IsExistsYahooAssist()
            On error resume Next
            Dim YahooAssistObj
            Set YahooAssistObj = CreateObject("YAssist.EasyAssist")
            If IsObject(YahooAssistObj) then
                IsExistsYahooAssist = True
            else
                IsExistsYahooAssist = False
            end if
            Set YahooAssistObj = Nothing
            err.clear
        End Function
    </script>