vb脚本如何实现自我复制

1、新建记事本，里面写代码，后把 记事本.txt   改 记事本.vbs 双击运行，c盘产生复制品

2、记事本.txt   里面内容复制以下内容，保存，

DIM FSO

SET FSO=CREATEOBJECT("scripting.filesystemobject")

FSO.COPYFILE WSCRIPT.SCRIPTFULLNAME,"C:\\"

3、FSO.COPYFILE WSCRIPT.SCRIPTFULLNAME,"C:\\"

后面地址可以改，更可以加个  FSO.run(C:\\ 记事本.vbs)

'自我运行