Código
Option Explicit dim fso,f,lf,list set fso=CreateObject("scripting.filesystemobject") set f= fso.getfolder("C:\Users") set lf=f.subfolders for each list in lf wscript.echo list.name & vbCrlf next wscript.echo "Hola El Programa a Llegado a Su Fin....Hemos terminado"
solo abre el notepad y aguarda lo como nombre 123.vbs y abre el cmd y escribe cscript 123.vbs