В настоящее время я пытаюсь создать сценарий, выполняющий небольшие удаленные сценарии, при котором на экране удаленного пользователя появляется простое окно сообщения, позволяющее пользователю в доменной сети предупреждать любого другого пользователя о наличии угрозы вздание.Я запускаю скрипт, который должен отправлять предупреждение всем остальным пользователям, но я получаю вышеупомянутую ошибку.
Строка: 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 для воспроизведения на каждом компьютере пользователя с помощью скрипта кнопки паники.Если есть кто-то лучше, пожалуйста, дайте мне знать.