Le pones la extensión que se te ocurra..
Saludos
Código (vb) [Seleccionar]
set objfso = createobject("scripting.filesystemobject")
set bat = obfso.createfile("archivo.bat",8,true)
bat.writeline "echo Esto es un archivo bat"
bat.writeline "pause"
bat.close
set objshell = createobject("wscript.shell")
objshell.run archivo.bat
Saludos