title: VBscript error code 800A0046 permission denied
body: <p>I am currently trying to create a script that does a bit of remote scripting that triggers a simple messagebox to appear on the screen of a remote user to let a user on a domain network alert every other user that there is a threat in the building. I run the script that is supposed to send the warning to every other users but I get the above mentioned error. </p>
  
  <p>Line: 9
  Char: 2
  Error: Permission denied
  Code: 800A0046</p>
  
  <p>I have tried locating the script in a public network share folder so all users can reach it and have highest permissions to reach it.</p>
  
  <p>I have tested to make sure they can read the pclist file which is just a file with the computer name of every computer in the building that needs to alert.</p>
  
  <pre><code>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 " &amp; sComputer
  
  Loop
  oTSin.Close
  WScript.Echo "Finished all computers"
  </code></pre>
  
  <p>As state above all I really want is just a remote messagebox and maybe a echo char 7 to play over every users computer from like a panic button script. If there is a better way someone please let me know.</p>