如何将 Scripting.FileSystemObject 标记为安全的脚本？答案

【问题标题】：How mark Scripting.FileSystemObject as safe for scripting?如何将 Scripting.FileSystemObject 标记为安全的脚本？
【发布时间】：2017-06-05 11:04:35
【问题描述】：

简介：

我正在对 CNC 机床进行编程。确切地说是比耶斯的漫游者。从用于编程的软件的编辑器支持VBScript。 VBScript 用于实现条件语句和循环等。在对软件的说明中，我列出了 VBScript 中的所有语法，标记为不用于避免复杂化:)

当然我想用VBScript :) 确切地说——打开txt文件并根据内容设置程序。

主要问题： VBScript 的所有语法都是有效的，例如：

Dim dic
Set dic = CreateInstance("Scripting.Dictionary")

编译，但是：

Dim fso
Set fso = CreateInstance("Scripting.FileSystemObject")

抛出错误/异常：

ActiveX 组件无法创建对象：'Scripting.FileSystemObject'

我尝试并检查了许多连接到未注册 dll 等的解决方案。一切似乎都有效并且没问题。我还检查了一个简单的脚本 .wsf

<package>
<job>
<script language="VBScript">
set fso = CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile("c:\BiesseMacros\RemoteTest.txt", true)
fout.WriteLine Now
fout.Close
</script>
</job>
</package>

它编译并工作。在 4-5 台不同的 PC 上情况相同。

这一切似乎都与软件不接受未标记为安全脚本和初始化的组件有关？可能吗？我认为这是在应用项目中设置的东西。应用程序位于无法连接到 Internet 的计算机上，可在 Windows XP 上运行。我知道将此组件标记为安全是个坏主意，但我真的很想这样做。这将节省我几个月的工作（和生活；）。

问题：

是否有可能以及如何将 Scripting.FileSystemObject 标记为安全的脚本？

【问题讨论】：

看看，如果这个link 可以帮助你。您是否就这个问题与软件供应商核实过？
去过那里，做到了。 @ManishChristian 这是我开始怀疑软件方面的地方。 similar issue, but he has his own open project of app 另外 .. 软件提供商不会帮助我 - 因为正如我所写 - 他们建议根本不要使用 VBScript 语法 - 编辑器不适合严格的程序员 - 但适用于 CNC 程序员
这个link怎么样？如果这对您没有帮助，那么不幸的是，我没有任何其他线索。
现在正在处理该链接
@ManishChristian 我找到了一个答案，挖掘了您指出的主题，并将其发布在此帖子下。感谢您的意见！

标签： vbscript scripting activex filesystemobject

【解决方案1】：

这个link 帮助了我。就我而言，我只需要在注册表中创建密钥

“实现的类别”

在 HKCR\CLSID\"id's Scripting.FileSystemObject"

在这个键中，我创建了与 Scripting.Dictionary 相同的键：

瞧！

软件将此对象识别为安全的。

建议！

它可能对您的系统有害 - 因为它不应被标记为安全。通过这种方式，一些页面可以在没有通知的情况下使用该对象来操作您的文件！它对我有用 - 因为 PC 没有互联网连接，这是欺骗 3rd 方软件使用此对象的唯一方法！

【讨论】：