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

时间:2017-01-20 12:41:54

标签: vbscript scripting activex filesystemobject

简介

我正在编程一台CNC机器。准确地说来自Biesse的流浪者。用于编程的软件编辑器支持VBScript。 VBScript用于实现条件语句和循环等。在软件的指令中,我列出了VBScript中标记为不用于避免复杂化的所有语法:)

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

主要问题: VBScript的所有语法都是有效的,例如:

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

编译,但是:

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

抛出错误/ exepction:

  

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标记为脚本安全?

1 个答案:

答案 0 :(得分:1)

link帮助了我。 在我的情况下,我只需要在注册表中创建密钥

  

&#34;实施类别&#34;

在HKCR \ CLSID \&#34; id&#39; scripting.FileSystemObject&#34;

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

enter image description here

和Voila!

软件将此对象视为安全。

建议!:

它可能对您的系统有害 - 因为它不应该被标记为安全。通过这种方式,一些页面可以使用该对象而无需通知来操作您的文件!它对我有用 - 因为PC没有互联网连接,这是欺骗第三方软件使用这个对象的唯一方法!