Citarno se si me estaré liando un poco pero creo que con el metodo que deciis, no estarian estos numeros por ejemplo:Pero es que eso es problema de lógica
000900

Código (vb) [Seleccionar]
For i=wscript.arguments(0) to wscript.arguments(1)
n = 0
Do Until Len(cstr(n+1)) > i
n = n+1
sn = cstr(n)
Do While Len(sn) < i
sn = "0" & sn
Loop
wscript.echo sn
Loop
Next
Va con dos parámetros, mínimo y máximo de caracteres
Código (bat) [Seleccionar]
c:\>cscript/nologo script.vbs 3 6 > diccionario.txt
Saludos