L'erreur : La récursivité de la commande dépasse les limites de la pile
Comment résoudre ce problème ?

Mon script
Fonction :
Génère 5 caractères
Les test en rajoutent ".com" a la fin en ping
Fait une liste des caractères passé sous ping

Le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
@echo off

set "VAR=a b c d e f g h i j k l m n o p u v w q r x z"


color a 

set tempo=0 





:All
SET VrComp=
SET test2=
SET SEL=
SET TXT=
SET tokens=


call :IMP &call :IMP &call :IMP &call :IMP &call :IMP &call :IMP
setlocal enabledelayedexpansion

set VrCompt=-1

:boucle
Set "TXTE=%TXT%.com"
set /a VrCompt+=1
set test2=!TXT:~%VrCompt%,1!
if not "%test2%"=="" goto boucle
if "%TXT%" EQU 6 Goto Test else Goto All
Pause
Goto Test
EndLocal
Goto :All



:IMP
set /a SEL=%random%%%25
if %SEL%==0 goto :IMP
for /f "tokens=%SEL%" %%A in ("%VAR%") do (
    set TXT=%TXT%%%A
    )
goto :All


:Test
Set "TXTE=%TXT%.com"
PING %TXTE% -n 4 > NUL
Pause

IF %ERRORLEVEL% == 0 (
   Color a
   ECHO  %TXTE%  [EXISTE] > ListeSiteExiste.txt
   Goto All
) 


IF %ERRORLEVEL% == 1 ( 
   ECHO  %TXTE%  [NO] 
   set /a tempo=%tempo%+1 
   title %tempo% tester
   Goto All
)
Le 2ème problèmes est qu'il prend 4 secondes a chaque test, est t'il possible d'aller plus vite ?
Merci d'avance