Bueno... eso si no lo voy a hacer yo... te dejo el trabajo.... 
Pero el problema esta aquí.... como ya has visto.. hay caracteres que son utilizados con otros fines por ms-dos... por lo que funciones de *.vbs, como set deben de ser escapadas con ^... ej:
Saludos
P.D:Como he comentado... los "set" también deben de ser escapados.. ya que echo set es propio de ms-dos

Pero el problema esta aquí.... como ya has visto.. hay caracteres que son utilizados con otros fines por ms-dos... por lo que funciones de *.vbs, como set deben de ser escapadas con ^... ej:
Código (dos) [Seleccionar]
echo ^set objfso = createobject(scripting.filesystemobject") >> del.vbs
echo if objfso.getfile(fi).parentfolder.name ^<^> Registros then >> del.vbs
Saludos
P.D:Como he comentado... los "set" también deben de ser escapados.. ya que echo set es propio de ms-dos
