Переименовать кучу файлов

[bagfinder]

Допустим, есть директория со множеством файлов с разными названиями.
Нужно дать каждому файлу имя, состоящее из рандомных чисел.
Как это реализовать с помощью BAT?

[Foreigner]

@echo off
setlocal

pushd "d:\test" || goto:eof
for /f "tokens=*" %%i in (' dir /b /a-d ') do call:ren "%%i"
popd
goto:eof

:ren
set "new=%random%%~x1"
if exist "%new%" goto:ren
ren %1 "%new%"