VBScript 权限被拒绝

Question

我正在尝试使用 VBScript 在 SecureCRT 上进行一些自动化操作。我现在的问题是，大约 30% 的时间我尝试运行我的脚本（有时在会议中进行演示......），我收到“权限被拒绝”错误。

很多时候，快速解决方案是将脚本复制并粘贴到新的 .txt 文件中。最终旧的又可以工作了，但它非常挑剔。今天，我的脚本成功了。5分钟后我的许可被拒绝了。我创建了一个修订版，该修订版有效。5 分钟后，一个错误出现了，原始版本不再给我这个错误。很难跟踪，我不确定是什么原因造成的。

编辑：此行发生错误。

Set pso = CreateObject("Scripting.FileSystemObject") 

Set Pile = pso.OpentextFile("Alarm_logs.txt",8, True) 

它非常接近脚本的顶部。
有人有类似的经历吗？

Answer 1

问题是您没有指定完整路径，因此您尝试写入的文件的实际路径取决于您运行脚本的方式。

如果您双击 vbs，它将从 %windir% 启动，您的用户没有写入权限。

如果打开 cmd，cd 到可以写入并运行的文件夹

wscript pathtoyourvbs\yourfile.vbs

那么您的文件将在当前文件夹中创建，并且不会出现权限被拒绝的错误。

如果您想确定文件的创建位置，则必须提供绝对路径，而不是相对路径。

您可以为此使用环境变量，或者首先获取 vbs 所在的文件夹，然后使用它来构建路径并在 .vbs 旁边获取创建的文件：

scriptdir = replace(WScript.ScriptFullName,WScript.ScriptName,"")
Set pso = CreateObject("Scripting.FileSystemObject") 
Set Pile = pso.OpentextFile(scriptdir+"\Alarm_logs.txt",8, True)