清除开始文档批处理

喜欢看大片的同志们，会不会有这样的苦恼，每次看完后还要手动去清除开始==》文档内的“隐私”？
现在不用了，把下面的代码保存为vbs文件，然后拖到启动菜单或者在计划任务内设定为关机时调用，即可自动清除，
而且没有Dos命令行出现。

dim Wshell '创建变量
set Wshell=createobject("wscript.shell") '建立wscript.shell对象
Wshell.run "cmd /c del ""%USERPROFILE%\Recent\*.*"" /f /s /q",0