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

介绍：

我正在为数控机床编程。确切地说是比雅斯的漫游者。用于编程的软件编辑器支持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上情况相同。

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

问题：

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

This link https://msdn.microsoft.com/en-us/library/ms675076(VS.85).aspx帮助我。 就我而言，我只需在注册表中创建密钥

“已实施的类别”

在 HKCR\CLSID\"id 的 Scripting.FileSystemObject"

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

瞧！

软件认为该对象是安全的。

给个建议！：

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