WSH: обмен данными и объектами между скриптами — 2 (Страница 1 из 2)

var x = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}");
WScript.Echo(x);

Set ShellWindows = CreateObject("Shell.Application").Windows

GlobalObj("fso") = fso

Property Set Value(name, newValue)    
    ShellWindow.PutProperty name, newValue
End Property

function GlobalObject(Name)
{    
    if(!Name)Name="GlobalObject";
    if (this.Window = this.FindWindow(Name))null;else
    {
        this.Window = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}");
        this.Window.StatusText = Name;
    }
}

GlobalObject.prototype = 
{
    FindWindow : function (Name)
    {
        var  ShellWindows=(new ActiveXObject("Shell.Application")).Windows();
        for (var i=ShellWindows.Count; --i>=0;)
        if (ShellWindows.Item(i).StatusText && ShellWindows.Item(i).StatusText.indexOf(Name)!=-1) 
        return ShellWindows.Item(i);
    },
    
    GetProperty: function (Name)
    {
/* 23 */        return this.Window.GetProperty(Name);
    },
    
    SetProperty: function (Name, Value)
    {
        this.Window.PutProperty(Name, Value);
    }

}

if ( WScript.Arguments.Named.Exists('1') ) {
    var g = new GlobalObject();
    g.SetProperty("Host", this);
    while (1) WScript.Sleep(10);
}

if ( WScript.Arguments.Named.Exists('2') ) {
    var g = new GlobalObject(), host;
    if (host = g.GetProperty("Host")) 
/* 42 */    {WScript.Echo("Связь установлена. Теперь закроем чужой процесс.");host.WScript.Quit();} else WScript.Echo("Связь не установлена")
}

C:\PROGS\SCRIPTS\JavaScript\GlobalObject>cscript //nologo GlobalObject.js /1

C:\PROGS\SCRIPTS\JavaScript\GlobalObject>cscript //nologo GlobalObject.js /2
Связь установлена. Теперь закроем чужой процесс.

C:\PROGS\SCRIPTS\JavaScript\GlobalObject>cscript //nologo GlobalObject.js /2
Связь установлена. Теперь закроем чужой процесс.
C:\PROGS\SCRIPTS\JavaScript\GlobalObject\GlobalObject.js(42, 68) Microsoft JScript runtime error: The remote server machine does not exist or is unavailable

C:\PROGS\SCRIPTS\JavaScript\GlobalObject>cscript //nologo GlobalObject.js /2
C:\PROGS\SCRIPTS\JavaScript\GlobalObject\GlobalObject.js(23, 9) Microsoft JScript runtime error: The remote server machine does not exist or is unavailable

Dim log, Thread1, Thread2, Thread3, state

Set Thread1 = New clsThread
Set Thread2 = New clsThread
Set Thread3 = New clsThread

Thread1.Start getRef("Proc1")
Thread2.Start getRef("Proc2")
Thread3.Start getRef("Proc3")

Sub Proc1
    For i=1 to 9000000
    Next
    log = log & Time & ": Proc1 complete" & vbCrlf
    state = state + 1
End Sub

Sub Proc2
    For i=1 to 10000
    Next
    log = log & Time & ": Proc2 complete" & vbCrlf
    state = state + 1
End Sub

Sub Proc3
    For i=1 to 100
    Next
    log = log & Time & ": Proc3 complete" & vbCrlf
    state = state + 1
End Sub

Do
    WScript.Sleep 100
Loop Until State => 3

MsgBox log

Class clsThread
    Private document
    Private Sub Class_Initialize()
        set document = CreateObject("htmlfile")
    End Sub
    Sub Start(proc)
        document.parentWindow.setTimeout proc,0
    End Sub
End Class

SN="SomeScript.vbs"
Set fso = CreateObject("Scripting.FileSystemObject")
ParentFolderName = fso.GetParentFolderName(Wscript.ScriptFullName) 
DestFilePath = fso.BuildPath(ParentFolderName,SN) 
LF="result.log"


If Wscript.Arguments.Count=0 Then  ' признак основного потока

arrComputers = Array("strhost02","strhost03","strhost04","strhost06","strhost07","strhost08","strhost10","strhost13","strhost14","strhost15","strhost16","strhost17","strhost18","strhost20","strhost21","strhost22","strhost23","strhost24","strhost25","strhost26","strhost27","strhost29")


Set objService     = GetObject("winmgmts:\\.\Root\CIMV2")
Set objSinkProcess = WScript.CreateObject("WbemScripting.SWbemSink", "SinkProcess_")
objService.ExecNotificationQueryAsync objSinkProcess, "SELECT * FROM __InstanceDeletionEvent WITHIN 0.2 WHERE TargetInstance ISA 'Win32_Process'"
Set objSinkPing    = WScript.CreateObject("WbemScripting.SWbemSink", "SinkPing_")
Set objProcess     = objService.Get("Win32_Process")
Set objDictionary  = CreateObject("Scripting.Dictionary")



ret=LogEvent(String(28,"-") & " " & date & "  " & time & String(28,"-"))

bdoneping    = False
bdoneprocess = False
strCount=0
intThread=0

For Each strComputer In arrComputers
  Set objContext = CreateObject("WbemScripting.SWbemNamedValueSet")
  objContext.Add "hostname", strComputer
  objService.ExecQueryAsync objSinkPing, "select * from Win32_PingStatus where address ='" & strComputer & "'", , , , objContext
Next

While Not bdoneping

If strCount=ubound(arrComputers)+1 Then
bdoneping=True
End If
WScript.Sleep 100

Wend

objSinkPing.Cancel


While Not bdoneprocess

If intThread=0 and bdoneping=True Then
bdoneprocess=True
End If
WScript.Sleep 100

Wend

objSinkProcess.Cancel

MsgBox "Готово !!!"


Else           ' признак потока с аргументом
strComputer=WScript.Arguments(0)
ret=LogEvent(strComputer & " - argument OK")
Set oController = CreateObject("WSHController")

On Error Resume Next
Set oProcess = oController.CreateScript(SN,strComputer)   ' вот здесь надо полный путь к файлу скрипта писать
oProcess.Execute
If Err.Number<>0 Then  '2
ret=LogEvent(strComputer & " - Connection Error !!!")
Err.Clear
On Error Goto 0
Else                   '2                  ' если нет ошибок при удалённом запуске
Do While oProcess.Status <> 2              ' ждём окончания удалённой работы скрипта
    WScript.Sleep 100
Loop
Set oController = Nothing
ret=LogEvent(strComputer & " - Ok !!!")
End If

End If        ' конец условия по признакам потоков


Function LogEvent(strInput)
Set fso = CreateObject("Scripting.FileSystemObject")
ParentFolderName = fso.GetParentFolderName(Wscript.ScriptFullName) 
DestFilePath = fso.BuildPath(ParentFolderName,LF) 
Set objFile = fso.OpenTextFile(DestFilePath, 8, True)
objFile.WriteLine strInput
objFile.Close
End Function



Sub SinkPing_OnObjectReady(objWbemObject, objWbemAsyncContext)
strCount=strCount+1
Set strComputer = objWbemAsyncContext.Item("hostname")
res=""
  Select Case objWbemObject.StatusCode
    Case 0        ' хост пингуется
	objProcess.Create "wscript.exe " & Wscript.ScriptFullName & " " & strComputer, null, null, intProcessID
	objDictionary.Add intProcessID, intProcessID
	intThread=intThread+1
	ret=LogEvent("PID: " & intProcessID)
    Case Else     ' хост не пингуется
	ret=LogEvent(strComputer & " - not respond to ping")
  End Select
End Sub




Sub SinkProcess_OnObjectReady(objLatestEvent, objAsyncContext)  
	ret=LogEvent("Terminate PID: " & objLatestEvent.TargetInstance.ProcessID)
   If objDictionary.Exists(objLatestEvent.TargetInstance.ProcessID) Then
	objDictionary.Remove(objLatestEvent.TargetInstance.ProcessID)
	intThread=intThread-1
	ret=LogEvent("Thread: " & intThread & "        " & objDictionary.Count)
   End If

End Sub

:: простой вывод списка файлов
cscript FindFiles.vbs "*.vbs" "*.js"

:: перенумерация файлов и папок
cscript FindFiles.vbs "*.vbs" "*.js" /exec:vrenum.vbs <Опции для vrenum>

:: переименование файлов
cscript FindFiles.vbs "*.vbs" "*.js" /exec:vrenn.vbs <Опции для vrenn>

set ie = wscript.createobject("internetexplorer.application")

set logger = new logwindow
do
    logger.write now
    wscript.sleep 1000
loop

class logwindow
    
    private ie
    
    private sub class_initialize()
        set ie = wscript.createobject("internetexplorer.application", "ie_")
        with ie
            .menubar = false
            .toolbar = false
            .resizable = true
            .statusbar = false
            .addressbar = false
            .visible = true
            .navigate "about:blank"
        end with
    end sub
    
    public sub write(text)
        ie.document.write(text & "<br>")
    end sub
    
    private sub class_terminate()
        on error resume next
        ie.quit
    end sub
    
end class

sub ie_onquit
    wscript.quit
end sub

option explicit
launch "base"

' main programm section

sub base()
    startproc "msg"
    startproc "msg"
    startproc "msg"
    msgbox "base, id = " & id, 64
    free id
end sub

sub msg()
    msgbox "msg, id = " & id, 64
    free id
end sub

' do not modify service section

sub launch(byval destination)
    dim job
    executeglobal "dim scene, container, signature, subname, jobs, id, state, release"
    release = false
    if not wscript.arguments.named.exists("task") then
        dim elt
        executeglobal "dim found, lost"
        id = 0
        found = 0
        lost = 0
        signature = ""
        randomize
        do
            signature = signature & hex(rnd * 16)
        loop while len(signature) < 16
        set scene = me
        set jobs = createobject("Scripting.Dictionary")
        set jobs(0) = scene
        set container = getobject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
        container.putproperty signature, scene
        startproc destination
        on error resume next
        do until (lost >= found) or release
            for elt = found to 1 step -1
                if typename(jobs(elt)) = "Object" then
                    lost = lost + 1
                    jobs(elt) = empty
                end if
                err.clear
                wscript.sleep 1
            next
        loop
        release = true
        executeglobal "scene_beforeterminate"
        for elt = found to 1 step -1
            if typename(jobs(elt)) = "VBScriptTypeInfo" then
                jobs(elt).wscript.timeout = 1
                jobs(elt).wscript.quit
                err.clear
                nojobs = false
            end if
            wscript.sleep 1
        next
        container.quit
    else
        job = split(wscript.arguments.named("task"), ";")
        signature = cstr(job(0))
        id = clng(job(1))
        subname = cstr(job(2))
        do
            for each container in createobject("Shell.Application").windows
                if isobject(container.getproperty(signature)) then
                    exit do
                end if
            next
            wscript.sleep 1
        loop
        set scene = container.getproperty(signature)
        set jobs = scene.jobs
        state = 4
        set jobs(id) = me
        executeglobal subname
        state = 24
        do until release
            wscript.sleep 10
        loop
        state = 28
    end if
end sub

function startproc(subname)
    startproc = createproc(subname)
    joint startproc, 4, 0
    REM do while getstate(startproc) < 4
        REM wscript.sleep 10
    REM loop
end function

function createproc(subname)
    if me is scene then
        if not release then
            found = found + 1
            createproc = found
            set jobs(createproc) = nothing
            createobject("WScript.Shell").exec("""" & wscript.fullname & """ """ & wscript.scriptfullname & """ ""/task:" & join(array(signature, createproc, subname), ";") & """")
        end if
    else
        createproc = scene.createproc(subname)
    end if
end function

function getjob(target)
    on error resume next
    if jobs.exists(target) then
        set getjob = jobs(target)
        if err.number = 0 then exit function
        err.clear
    end if
    set getjob = nothing
end function

sub share(varname, value)
    scene.newvar varname
    if isobject(value) then
        execute "set scene." & varname & " = value"
    else
        execute "scene." & varname & " = value"
    end if
end sub

sub newvar(varname)
    executecommand "dim " & varname
end sub

sub executecommand(command)
    executeglobal command
end sub

function getstate(target)
    dim elt
    if jobs.exists(target) then
        on error resume next
        set elt = jobs(target)
        getstate = elt.state
        if err.number <> 0 then
            if not(elt is nothing) then
                getstate = 64
            else
                getstate = 1
            end if
        end if
        set elt = nothing
    else
        getstate = 64
    end if
end function

function isresponsive(target)
    isresponsive = cbool(getstate(target) and 28)
end function

sub free(target)
    if jobs.exists(target) then
        on error resume next
        jobs(target).release = true
    else
        dim elt, subname
        for elt = scene.found to 1 step -1
            on error resume next
            subname = jobs(elt).subname
            if subname = target then
                free jobs(elt).id
            end if
            err.clear
        next
    end if
end sub

function joint(target, state, timeout)
    dim reftime
    reftime = timer
    on error resume next
    if jobs.exists(target) then
        if isnumeric(target) then
            do while getstate(target) < state
                if timeisout(timeout, reftime) then
                    joint = false
                    exit function
                end if
                wscript.sleep 10
            loop
        else
            dim elt, subname
            for elt = scene.found to 1 step -1
                subname = jobs(elt).subname
                err.clear
                if subname = target then
                    do while getstate(target) < state
                        if timeisout(timeout, reftime) then
                            joint = false
                            exit function
                        end if
                        wscript.sleep 10
                    loop
                end if
                err.clear
            next
        end if
    end if
    joint = true
end function

function timeisout(timeout, reftime)
    if timeout > 0 then
        dim delta
        delta = timer - reftime
        if delta < 0 then delta = delta + 86400
        if delta > timeout then
            timeisout = true
        end if
    else
        timeisout = false
    end if
end function

sub interrupt(target, timeout)
    if jobs.exists(target) then
        on error resume next
        jobs(target).wscript.timeout = timeout
        jobs(target).wscript.quit
    else
        dim elt, subname
        for elt = scene.found to 1 step -1
            on error resume next
            subname = jobs(elt).subname
            if subname = target then
                interrupt jobs(elt).id
            end if
            err.clear
        next
    end if
end sub

sub push(name, value)
    container.putproperty name, value
end sub

function pop(name)
    on error resume next
    if isobject(container.getproperty(name)) then
        set pop = container.getproperty(name)
    else
        pop = container.getproperty(name)
    end if
end function

option explicit
dim mproc
set mproc = new multiprocess
mproc.launch "base", "run", ""

' main programm section

class base
    
    public sub run()
        host.startproc "msg", "run", "first"
        host.startproc "msg", "run", "second"
        host.startproc "msg", "run", "third"
        msgbox "base, id = " & host.id, 64
        host.free host.id
    end sub
    
end class

class msg
    
    public sub run()
        msgbox host.aliasname & ", id = " & host.id, 64
        host.free host.id
    end sub
    
end class

' do not modify service class section

class multiprocess
    
    public primary, ancestor, parent, process, err
    public names, execs, hosts
    public id, aid, isprimary
    public classname, methodname, aliasname
    public found, lost, active
    public state, permit, release
    private container, signature, wshshell
    
    public sub launch(startclassname, startmethodname, startaliasname)
        permit = false
        release = false
        executeglobal "dim scene, host, ancestor, process"
        if not isempty(host) then exit sub
        set host = me
        executeglobal "set host.err = err"
        executeglobal "function getroot: set getroot = me: end function"
        set parent = getroot
        isprimary = not wscript.arguments.named.exists("task")
        if isprimary then
            dim sample
            state = 24
            randomize
            signature = ""
            do
                signature = signature & hex(rnd * 16)
            loop while len(signature) < 16
            aid = empty
            id = 0
            found = 0
            lost = 0
            set wshshell = createobject("WScript.Shell")
            set primary = host
            set ancestor = nothing
            set process = nothing
            set scene = parent
            set parent.ancestor = nothing
            set parent.process = nothing
            set hosts = createobject("Scripting.Dictionary")
            set execs = createobject("Scripting.Dictionary")
            set names = createobject("Scripting.Dictionary")
            classname = empty
            methodname = empty
            aliasname = empty
            set hosts(0) = host
            set container = getobject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
            container.putproperty signature, parent
            startproc startclassname, startmethodname, startaliasname
            on error resume next
            do
                for each sample in execs.keys
                    if release or active = 0 then exit do
                    if not (execs(sample) is nothing) then
                        if execs(sample).status > 0 then
                            abolish sample
                        end if
                    end if
                    wscript.sleep 1
                next
            loop
            release = true
            state = 28
            scenequit
        else
            dim job
            job = split(wscript.arguments.named("task"), ";")
            signature = cstr(job(0))
            do
                for each container in createobject("Shell.Application").windows
                    if isobject(container.getproperty(signature)) then
                        exit do
                    end if
                next
                wscript.sleep 1
            loop
            aid = clng(job(1))
            id = clng(job(2))
            found = null
            lost = null
            set scene = container.getproperty(signature)
            set primary = scene.host
            set hosts = primary.hosts
            set ancestor = hosts(aid)
            if isresponsive(aid) then
                set parent.ancestor = ancestor.parent.process
            else
                set parent.ancestor = nothing
            end if
            classname = cstr(job(3))
            methodname = cstr(job(4))
            aliasname = cstr(job(5))
            state = 4
            primary.implicate id, aliasname, host
            executeglobal "set process = new " & classname
            executeglobal "set host.process = process"
            executeglobal "set scene." & aliasname & " = process"
            if isresponsive(aid) then
                executeglobal "set host.ancestor.parent." & aliasname & " = process"
            end if
            state = 8
            primary.staff host
            ancestorevent "oninitialized"
            state = 12
            if methodname <> "" then
                do until permit
                    wscript.sleep 10
                loop
                state = 16
                executeglobal "process." & methodname
            end if
            state = 20
            ancestorevent "oncompleted"
            state = 24
            do until release
                wscript.sleep 10
            loop
            state = 28
        end if
    end sub
    
    public default function startproc(classname, methodname, aliasname)
        set startproc = start(createproc(classname, methodname, aliasname))
    end function
    
    public function createproc(classname, methodname, aliasname)
        if aliasname = "" then aliasname = classname
        newvar aliasname
        scene.host.newvar aliasname
        createproc = primary.spawn(id, classname, methodname, aliasname)
    end function
    
    public function spawn(issuer, classname, methodname, aliasname)
        if not release then
            found = found + 1
            spawn = found
            active = found - lost
            names(spawn) = aliasname
            set hosts(spawn) = nothing
            if not hosts.exists(aliasname) then
                hosts.add aliasname, createobject("Scripting.Dictionary")
            end if
            set hosts(aliasname)(spawn) = nothing
            execs.add spawn, wshshell.exec("""" & wscript.fullname & """ """ & wscript.scriptfullname & """ ""/task:" & join(array(signature, issuer, spawn, classname, methodname, aliasname), ";") & """")
        end if
    end function
    
    public function start(target)
        select case outline(target)
        case "Nothing", "multiprocess"
            do while getstate(target) < 12
                wscript.sleep 10
            loop
            if isresponsive(target) then
                set start = hosts(target).process
                hosts(target).permit = true
            else
                set start = nothing
            end if
        case "Dictionary"
            dim elt
            set start = hosts(target)
            for each elt in start.keys
                do while getstate(elt) < 12
                    wscript.sleep 10
                loop
            next
            for each elt in start.keys
                if isresponsive(elt) then
                    hosts(elt).permit = true
                end if
            next
        case else
            set start = nothing
        end select
    end function
    
    public sub implicate(id, aliasname, host)
        set hosts(aliasname)(id) = host
        set hosts(id) = host
    end sub
    
    public sub staff(host)
        set hosts(host.process) = host
    end sub
    
    public sub abolish(id)
        if hosts.exists(names(id)) then
            hosts(names(id))(id) = empty
        end if
        names(id) = empty
        if isresponsive(id) then
            hosts(hosts(id).process) = empty
        end if
        hosts(id) = empty
        set execs(id) = nothing
        lost = lost + 1
        active = found - lost
    end sub
    
    private sub ancestorevent(eventname)
        if aid > 0 then
            on error resume next
            executeglobal "ancestor." & aliasname & "_" & eventname & " host.hosts(" & id & ")"
            if err.number = 424 or err.number = 438 then err.clear
        end if
    end sub
    
    public sub assignhandler(handlername, byval varsqty)
        dim vars
        vars = ""
        if varsqty > 0 then
            do
                vars = vars & "param" & varsqty
                varsqty = varsqty - 1
                if varsqty = 0 then exit do
                vars = vars & ", "
            loop
        end if
        executeglobal "sub " & handlername & "(" & vars & "): process." & handlername & " " & vars & ": end sub"
    end sub
    
    public sub newvar(varname)
        executecommand "dim " & varname
    end sub
    
    public sub executecommand(command)
        executeglobal command
    end sub
    
    public function getstate(target)
        select case outline(target)
        case "multiprocess"
            on error resume next
            getstate = hosts(target).state
            if err.number <> 0 then
                err.clear
                getstate = 64
            end if
        case "Nothing"
            getstate = 1
        case "Dictionary"
            getstate = null
        case empty
            getstate = 0
        case else
            getstate = 64
        end select
    end function
    
    private function outline(target)
        on error resume next
        if hosts.exists(target) then
            outline = typename(hosts(target))
            if err.number <> 0 then
                err.clear
                outline = "Object"
            end if
        else
            outline = empty
        end if
    end function
    
    public function isresponsive(target)
        isresponsive = cbool(getstate(target) and 28)
    end function
    
    public function getid(target)
        on error resume next
        if isobject(target) then
            if isresponsive(target) then
                getid = hosts(target).id
                if err.number = 0 then exit function
                err.clear
            end if
        elseif primary.execs.exists(target) then
            getid = target
            exit function
        end if
        getid = null
    end function
    
    public function gethost(target)
        on error resume next
        if hosts.exists(target) then
            set gethost = hosts(target)
            if err.number = 0 then exit function
            err.clear
        end if
        set gethost = nothing
    end function
    
    public sub free(target)
        select case outline(target)
        case "multiprocess"
            on error resume next
            gethost(target).release = true
            err.clear
        case "Dictionary"
            dim elt
            for each elt in gethost(target)
                free(elt)
            next
        end select
    end sub
    
    public function joint(target, state, timeout)
        dim reftime
        reftime = timer
        select case outline(target)
        case "multiprocess", "Nothing"
            do while getstate(target) < state
                if timeisout(timeout, reftime) then
                    joint = false
                    exit function
                end if
                wscript.sleep 10
            loop
        case "Dictionary"
            dim elt
            for each elt in gethost(target)
                do while getstate(elt) < state
                    if timeisout(timeout, reftime) then
                        joint = false
                        exit function
                    end if
                    wscript.sleep 10
                loop
            next
        end select
        joint = true
    end function
    
    private function timeisout(timeout, reftime)
        if timeout > 0 then
            dim delta
            delta = timer - reftime
            if delta < 0 then delta = delta + 86400
            if delta > timeout then
                timeisout = true
            end if
        else
            timeisout = false
        end if
    end function
    
    public sub interrupt(target, timeout)
        select case outline(target)
        case "multiprocess"
            on error resume next
            with gethost(target).parent
                .wscript.timeout = timeout
                .wscript.quit
            end with
            err.clear
        case "Dictionary"
            dim elt
            for each elt in gethost(target)
                interrupt elt, timeout
            next
        end select
    end sub
    
    public sub kickout(target)
        if primary.execs.exists(target) then
            if getstate(target) < 64 then
                on error resume next
                primary.execs(target).terminate
                err.clear
            end if
        else
            select case outline(target)
            case "multiprocess"
                kickout getid(target)
            case "Dictionary"
                dim elt
                for each elt in gethost(target)
                    kickout(elt)
                next
            end select
        end if
    end sub
    
    public sub terminate(target)
        interrupt target, 1
        if not joint(target, 64, 2) then kickout target
    end sub
    
    public sub push(name, value)
        container.putproperty name, value
    end sub
    
    public function pop(name)
        on error resume next
        if isobject(container.getproperty(name)) then
            set pop = container.getproperty(name)
        else
            pop = container.getproperty(name)
        end if
    end function
    
    private sub scenequit
        if isprimary then
            dim col, i, status
            col = execs.keys
            for i = ubound(col) to 0 step -1
                interrupt col(i), 1
            next
            wscript.sleep 2000
            on error resume next
            for i = ubound(col) to 0 step -1
                status = execs(col(i)).status
                if err.number = 0 and status = 0 then execs(col(i)).terminate
                err.clear
            next
            container.quit
        end if
    end sub
    
    private sub class_terminate()
        if state < 28 and isprimary then scenequit
    end sub
    
end class

#Persistent
#SingleInstance, Off
DetectHiddenWindows, On
param = %1%

myContainer := new GlobalContainer("storage")

if param  {  ; это будет происходить во втором скрипте
   myContainer.Connect(Func("WatchProperties"))
}
else  {   ; это будет происходить в главном скрипте
   Run, "%A_AhkPath%" "%A_ScriptFullPath%" "1",,, PID
   OnExit(Func("Exit").Bind(myContainer, PID))
   
   WinWait, ahk_pid %PID%
   myContainer.arr1 := {key1: "Первое значение"}
   myContainer.arr2 := {key2: "Второе значение"}
   ExitApp
}

WatchProperties(obj, prop)  {
   key := prop = "arr1" ? "key1" : "key2"
   MsgBox,, Сообщение от второго скрипта:, % obj[prop][key]
}

Exit(obj, PID)  {
   obj.Quit()
   WinClose, ahk_pid %PID%
}

class GlobalContainer  {
   __New(name)  {
      for wnd in ComObjCreate("Shell.Application").Windows  {
         if (wnd.GetProperty("container_name") = name)
            this._obj := wnd
      }
      if !this._obj  {
         this._obj := ComObjGet("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
         this._obj.PutProperty("container_name", name)
      }
   }
   
   __Set(prop, value)  {
      if prop not in _obj,_userFunc
         Return this._obj.PutProperty(prop, value)
   }
   
   __Get(prop)  {
      if (prop != "_obj")
         Return this._obj.GetProperty(prop)
   }
   
   Connect(userFunc)  {
      this._userFunc := userFunc.Bind(this)
      ComObjConnect(this._obj, this)
   }
   
   PropertyChange(prop, obj)  {
      this._userFunc.Call(prop)
   }
   
   Quit()  {
      this._obj.Quit()
   }
}