Random-Befehl mit Buchstaben

@echo off & setlocal
set "Zeichenvorrat=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"  

set G=%temp%\GetRandomText.vbs
>%G% echo Z="%Zeichenvorrat%":L=Len(Z):For i=1 To WScript.Arguments(0):Randomize:T=T^&Mid(Z,Int(Rnd*L+1),1):Next:WScript.Echo T  

::Zufallstext mit Laenge 7 ermitteln
for /f %%i in ('cscript //nologo %G% 7') do set "ZText=%%i"  
echo %ZText%

@echo off &setlocal enabledelayedexpansion
set "source=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9"  
echo %random%>nul
for /l %%a in (1,1,7) do (
  set /a rdm=!random!*62/32767+1
  set /a counter=0
    for %%b in (%source%) do (
      set /a counter+=1
      if !rdm!==!counter! set "txt=!txt!%%b"  
    )
  )
)
echo %txt%
pause

@echo off &setlocal enabledelayedexpansion
set "source=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9"  

set /a Pos=0
set /a Anzahl=0
:Loop
set "Char=!source:~%Pos%,1!"  
if "%Char%" neq "" (  
    set /a Pos+=1    
    if "%Char%" neq " " set /a Anzahl+=1  
    goto :Loop
)

echo %random%>nul
set "txt="  
for /l %%a in (1,1,7) do (
  set /a rdm=!random!%%%Anzahl%
  set /a counter=0
    for %%b in (%source%) do (
      if !rdm!==!counter! set "txt=!txt!%%b"  
      set /a counter+=1
    )
  )
)
echo %txt%
pause

@echo off &setlocal enabledelayedexpansion
set "source=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"  

set /a Anzahl=0
:Loop
if "!source:~%Anzahl%,1!" neq "" set /a Anzahl+=1 & goto :Loop  

echo %random%>nul
set "txt="  
for /l %%a in (1,1,7) do (
    set /a rdm=!random!%%%Anzahl%
    call set "txt=!txt!%%source:~!rdm!,1%%"  
)
echo %txt%
pause

::-------snipp randomtest.cmd
@echo off & setlocal EnableDelayedExpansion 
set "varNotDelayed=%random%"   
set "varDelayed=!random!"   

echo a] 
echo %random% & for /L %%i in (1,1,10) do @echo  %random%  %random% %random%
echo b] 
echo !Random! & for /L %%i in (1,1,10) do @echo  !random!  !random! !random!
pause
echo c] %varNotdelayed%
for /L %%i in (0,1,327670) do if !random!==%varNotDelayed% Set /a varsameND+=1

echo d] %vardelayed%
for /L %%i in (0,1,327670) do if !random!==%varDelayed% Set /a varsameD+=1
Set varsame

$cmd$randomtest
a]
28594
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
 513  21394 14416
b]
25846
 22741  12404 28107
 3932  27485 27891
 24661  13043 13624
 32441  13621 3316
 14224  30689 13685
 1107  14167 23582
 7747  18581 12496
 22074  20631 21217
 9298  25027 9238
 32089  8265 15617
Drücken Sie eine beliebige Taste . . .

c] 6712
d] 14609
varsameD=11
varsameND=9