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

Vbscript 如何将Scripting.FileSystemObject标记为脚本安全?,vbscript,scripting,activex,filesystemobject,Vbscript,Scripting,Activex,Filesystemobject,简介: 我正在为一台数控机床编程。确切地说,是一个来自比塞的漫游者。用于编程的软件中的编辑器支持VBScript。VBScript用于实现条件语句和循环等。在软件说明中,我列出了VBScript中标记为“不使用以避免复杂化”的所有语法:) 当然,我想使用VBScript:)准确地说-打开txt文件并根据内容设置程序 主要问题: VBScript的所有语法均有效,例如: Dim dic Set dic = CreateInstance("Scripting.Dictionary") 编译,但:

简介:

我正在为一台数控机床编程。确切地说,是一个来自比塞的漫游者。用于编程的软件中的编辑器支持VBScript。VBScript用于实现条件语句和循环等。在软件说明中,我列出了VBScript中标记为“不使用以避免复杂化”的所有语法:)

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

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

Dim dic
Set dic = CreateInstance("Scripting.Dictionary")
编译,但:

Dim fso
Set fso = CreateInstance("Scripting.FileSystemObject")
抛出错误/执行:

ActiveX组件无法创建对象:“Scripting.FileSystemObject”

我尝试并检查了许多连接到未注册DLL的解决方案等。 一切似乎都是正确的。我还检查了一个简单的script.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>

设置fso=CreateObject(“Scripting.FileSystemObject”)
set fout=fso.CreateTextFile(“c:\biessecoros\RemoteTest.txt”,true)
现在就开始写
四、结束
它编译并运行。在4-5台不同的PC上情况相同

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

问题:

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

这对我很有帮助。 在我的例子中,我只需要在注册表中创建键

“已实施类别”

在HKCR\CLSID\“id的脚本.FileSystemObject”中

在此密钥中,我创建了与脚本相同的密钥。字典具有:

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

成为忠告!:


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

看,如果这对你有帮助的话。你有没有和软件供应商核实过这个问题?去过那里,做过那个@这就是我开始怀疑软件方面的地方。也。。软件供应商不会帮我的,因为正如我所写的,他们建议根本不要使用VBScript语法,编辑器不是为严格的编程人员设计的,而是为CNC编程人员设计的,对此怎么办?如果这对你没有帮助的话,很不幸,我没有任何其他的线索now@ManishChristian我从你所指的主题中找到了答案,贴在这篇帖子下面。谢谢你的意见!