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

Question

我当前正在尝试创建一个脚本，该脚本执行一些远程脚本操作，该脚本会触发一个简单的消息框出现在远程用户的屏幕上，以使域网络上的用户向其他所有用户发出警告，指出其中存在威胁建筑物。我运行了应该向其他所有用户发送警告的脚本，但是出现了上述错误。

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

我尝试将脚本放置在公共网络共享文件夹中，以便所有用户都可以访问该脚本，并具有最高的访问权限。

我已进行测试，以确保他们可以读取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，可以像恐慌按钮脚本那样在每个用户计算机上播放。如果有人有更好的方法，请告诉我。

Answer 1

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

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