1. Dim threads(2)
2.  
3. ' Funkcja do otwierania okna z komunikatem w określonej pozycji
4. Function OpenMessageBox(x, y)
5.     Do
6.         MsgBox "To jest komunikat!",, "Komunikat", x, y
7.         WScript.Sleep 500 ' Czekaj 500 milisekund (0.5 sekundy) przed otwarciem kolejnego okna
8.     Loop While True
9. End Function
10.  
11. ' Pobieramy argumenty przekazane do skryptu
12. Dim args
13. Set args = WScript.Arguments
14.  
15. ' Sprawdzamy, czy przekazano poprawną liczbę argumentów
16. If args.Count = 2 Then
17.     ' Tworzymy wątki dla każdego okna, przekazując argumenty x i y
18.     Set threads(0) = CreateObject("WScript.Shell").Run("wscript.exe """ & WScript.ScriptFullName & """ " & args(0) & " " & args(1), 1, False)
19.     Set threads(1) = CreateObject("WScript.Shell").Run("wscript.exe """ & WScript.ScriptFullName & """ " & args(0) + 200 & " " & args(1) + 100, 1, False)
20.     Set threads(2) = CreateObject("WScript.Shell").Run("wscript.exe """ & WScript.ScriptFullName & """ " & args(0) + 400 & " " & args(1) + 200, 1, False)
21. Else
22.     MsgBox "Nieprawidłowa liczba argumentów. Oczekiwano dwóch liczb całkowitych."
23. End If
24.  
25. ' Oczekujemy na zakończenie działania wszystkich wątków
26. For Each thread In threads
27.     thread.WaitOnReturn
28. Next
29.