VBscript 错误代码 800A0046 权限被拒绝

VBscript error code 800A0046 permission denied

我目前正在尝试创建一个脚本来执行一些远程脚本,触发一个简单的消息框出现在远程用户的屏幕上,让域网络上的用户提醒每个其他用户有一个建筑物中的威胁。我 运行 本应向所有其他用户发送警告的脚本,但出现上述错误。

第 9 行 字符:2 错误:权限被拒绝 代码:800A0046

我已尝试将脚本放在 public 网络共享文件夹中,以便所有用户都可以访问它并拥有访问它的最高权限。

我已经测试以确保他们可以读取 pclist 文件,该文件只是一个文件,其中包含建筑物中需要提醒的每台计算机的计算机名称。

Dim oFSO, oTSin, oController, oRemote, sComputer
Set oController = CreateObject ("WSHController")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTSin = oFSO.OpenTextFile("I:\Public\PCLIST.txt") 'List of PC's

Do Until oTSin.AtEndOfStream
 sComputer = oTSin.ReadLine
 'Location of script to make run below between ""
 Set oRemote = oController.CreateScript("I:\Public\VBS\Alert.vbs", sComputer)
 oRemote.Execute

WScript.Echo "Finished script on " & sComputer

Loop
oTSin.Close
WScript.Echo "Finished all computers"

如上所述,我真正想要的只是一个远程消息框,也许还有一个 echo char 7,可以像紧急按钮脚本一样在每个用户的计算机上播放。如果有人有更好的方法请告诉我。

https://www.repairwin.com/fixed-permission-denied-800a0046-windows-script-host/

当您尝试 运行 远程计算机上的程序时,这是一个典型的错误。这是由于您在这些机器上拥有的权限。你必须是所有人的管理员,即使你失败了很多次。 我所做的是通过 Languard 应用程序向所有机器发送一个 rar auto-run 文件。 我在每台机器上解释你想要的文件 运行 我以 rar 格式发送它但是 auto-run。当它到达那台机器时,auto运行 打开让位给例如你的 Alert.vbs 的 auto运行 我不知道如何向您发送文件或 rar-exe 格式的 Alert.vbs 文件。