干了一个通宵，终于自己把这个问题解决了一部分：
VBS不能执行的问题出在我用的是window7旗舰版，而window7里新增了UAC功能，也许这种安全机制限制了ws cript.exe运行VBS的Createobject功能，使我无法在window7下执行 CreateObject("CCHMIRuntime.HMIRuntime") 语句，（低于XP版本的windows下却可以运行）。

目前找到的解决办法有一个：
到C:\Windows\SysWOW64目录下，找到ws cript.exe，创建一个备份，命名为ws cript2.exe，然后将vbs文件的打开方式替换为ws cript2.exe。CreateObject("CCHMIRuntime.HMIRuntime") 语句就可以在WIN7下运行了。

网上还有说通过改注册表解除UAC限制，不过我没有试成功。

这个方法没能解决VB2005及以上VB版本依然不能执行CreateObject("CCHMIRuntime.HMIRuntime") 的问题，我决定先用vb6做程序了，以后有时间再尝试解决吧。

以上只是抛砖引玉，希望各路高人再接再厉，大家一起想办法找出路！毕竟以后win7，win8用的会越来越多。