Me tomó un tiempo hacerlo funcionar, primero tuve que habilitar window scripting host, editar esto
por
primero porque %temp% contiene espacios, y además porque el start me abría otra ventana de cmd.
por
sobre lo de no colocar comillas, se colocan comillas hasta en nombres de archivos con espacios para indicar que el espacio es parte de un argumento y no un separador de otro.
Código [Seleccionar]
%temp%\enc.vbs
por
Código [Seleccionar]
wscript.exe enc.vbs
primero porque %temp% contiene espacios, y además porque el start me abría otra ventana de cmd.
Código [Seleccionar]
:ascii
echo Function enc (cad)>%temp%\enc.vbs
echo for i=1 to Len (cad)>>%temp%\enc.vbs
echo enc=enc ^& Asc(Mid(cad,i,1)) ^& " ">>%temp%\enc.vbs
echo Next>>%temp%\enc.vbs
echo End Function>>%temp%\enc.vbs
echo Set shell = CreateObject("Scripting.FileSystemObject")>>%temp%\enc.vbs
echo set b=shell.CreateTextFile("ascii.txt")>>%temp%\enc.vbs
echo b.write enc("%~1")>>%temp%\enc.vbs
echo b.close>>%temp%\enc.vbs
por
Código [Seleccionar]
:ascii
echo Function enc (cad)>enc.vbs
echo for i=1 to Len (cad)>>enc.vbs
echo enc=enc ^& Asc(Mid(cad,i,1)) ^& " ">>enc.vbs
echo Next>>enc.vbs
echo End Function>>enc.vbs
echo Set shell = CreateObject("Scripting.FileSystemObject")>>enc.vbs
echo set b=shell.CreateTextFile("ascii.txt")>>enc.vbs
echo b.write enc("%~1")>>enc.vbs
echo b.close>>enc.vbs
sobre lo de no colocar comillas, se colocan comillas hasta en nombres de archivos con espacios para indicar que el espacio es parte de un argumento y no un separador de otro.