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文件。