set fso=createobject("scripting.filesystemobject")
set script=fso.getfile(wscript.scriptname)
set myfile=fso.createtextfile(script.parentfolder&"\1.vbs")
myfile.close
set myfile=fso.opentextfile(script.parentfolder&"\1.vbs",2)
myfile.write("wscript.echo now")
set shell=createobject("wscript.shell")
wscript.sleep 500
p=script.parentfolder&"\1.vbs"
wscript.echo p
shell.run p