脚本语言 WSH

lolmuta

单纯以ide来说，vba就胜过vbs了
在vbs发生bug，只单纯提示第几行有问题，那有像 vba那么方便…

hiyou

lee1892 发表于 2014-9-11 09:37
WSH的强大和必要在于系统管理，如果是单机的话确实也就是些自动化的事。

但WSH真正的用途是针对微软的活 ...

可以说是初衷，但后来不完全是这个目的，
因为从98到2000以至XP，甚至现在的WIN7、8上，都有脚本程序了（WIN98不是自带的，要另装）
活动目录在服务器上用处大一些，在客服单机（98、XP以至WIN7WIN8的家用版）上自带推广，也说不上是针对活动目录。

现在要说服务器的脚本，MS会力推POWERSHELL吧。

liucqa

http://demon.tw/programming/vbs-scripting-encoder.html
使用Scripting.Encoder加密VBS脚本
标签： EncodeScriptFile, Scripting.Encoder, VBS, VBScript, VBS加密

标题: 使用Scripting.Encoder加密VBS脚本
作者: Demon
链接: http://demon.tw/programming/vbs-scripting-encoder.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

我《VBS加密 & VBE解密》中提到过可以用Script Encoder来加密VBS脚本，但是不知为何，微软官方现在已经不提供Script Encoder的下载。当然，你可以到其他网站上去下载Script Encoder来加密VBS，如果你不怕中病毒的话。


其实不必如此麻烦，加密VBS的组件Scripting.Encoder默认就安装在我们的系统中，我们可以调用Scripting.Encoder对象的EncodeScriptFile方法来加密VBS脚本。

Option Explicit
Dim se, fso
Dim argv, file, str
'VBScript Encoder
'Author: Demon
'Website: http://demon.tw
Set se  = CreateObject("Scripting.Encoder")
Set fso = CreateObject("Scripting.FilesystemObject")
For Each argv In WScript.Arguments
    Set file = fso.OpenTextFile(argv)
    str = file.ReadAll
    file.Close
    str = se.EncodeScriptFile(".vbs", str, 0 , "")
    argv = Left(argv, Len(argv)-3) & ".vbe"
    Set file = fso.OpenTextFile(argv, 2, True)
    file.Write str
    file.Close
Next
MsgBox "OK", vbInformation
最后Demon奉劝大家不要以为把VBS加密成VBE就高枕无忧了，在高手面前，一切VBS加密都是浮云。

hiyou

关于 SCRIPT的ENCODE类库，它确实没有VBSCRIPT、SCRIPTING 其它的组件好用

主要原因是它的加密算法在数学上太简单了，只要有算法过程就能反函数逆推，而且这个算法不但是公开，还不带密钥的。它的作用有点象“防君子不防小人”，扰乱文本不让误修改保证代码完整性可以，对普通用户可以，防程序员防黑客，做代码高安全的保密不适合。脚本文件是TEXT明码，仅仅用于防止用户查看还是可以的。

微软早期的WSH文档也有类似的说明：
脚本 Encoder 是一种简单的命令行工具，它使脚本设计者能够对自己的最终脚本进行编码，这样 Web 主机和 Web 客户机就不能查看或修改它们的源代码了。注意，这种编码只能防止他人偶然查看您的代码，但并不能防止执着的电脑黑客看到您的一举一动。