vbs复制自身到启动文件夹

dim fso
set fso=CreateObject("scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell") 
pathname = Wsh.SpecialFolders("startup")+"\"
'获取启动文件夹
fso.GetFile(WScript.ScriptFullName).Copy(pathname&"sys.vbs")