virtualbox.org

Code: Select all

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
scriptpath = fso.getparentfoldername(wscript.scriptfullname)
title="Remote Run"

rrcode="xxxyyyzzz" 'authorization string, put on first line of remote command file
rrstop="stop"  'if this is the second line, this script quits
rrpathname="c:\remoterun\0123456789.rrc 'path to a shared folder on the host PC, and the filename of the remote command file
rrmsgbox=1 'if 1, a popup message will appear on the host PC

checkpath=fso.getparentfoldername(rrpathname)
if not fso.folderexists(checkpath) then
  msgbox "The programmed command path '"&checkpath&"' does not exist. Please check it out.",,title
  wscript.quit
end if

do 'main loop
  if fso.fileexists(rrpathname) then
    set rrcommand=fso.opentextfile(rrpathname,forreading,true)
    if not rrcommand.atendofstream then passcode=rrcommand.readline
    if passcode=rrcode then 'passcode good
      if not rrcommand.atendofstream then command=rrcommand.readline
      if command=rrstop then exit do
      response=1
      if rrmsgbox=1 then response=shell.popup("Executing: " & command,5,title,64+1)
      if response=1 or response=-1 then 'OK or nothing pushed, run command
        on error resume next
        shell.run command,1,false
        on error goto 0
      end if 'response
    end if 'passcode good
    rrcommand.close
    fso.deletefile rrpathname,true
  end if 'command file exists
  wscript.sleep 5000
loop 'main loop

rrcommand.close
if fso.fileexists(rrpathname) then fso.deletefile rrpathname,true
shell.popup "Stopped",5,title,64