vbs脚本操纵系统文件

------------------------------中断vbs进程--------------------------------

如果想要中断vbs进程：打开任务管理器——找到wscript.exe——结束进程就可以啦。

------------------设置执行完后删除自己---------------------------

Dim fso
Set fso =CreateObject("Scripting.FileSystemObject")
fso.DeleteFile WScript.ScriptFullName                            '删除自己

------------------vbs调用系统----------------------------------------------

Set ws=WScript.CreateObject("WScript.Shell")

ws.popup"哈哈哈~",10                                '系统弹出框

wscript.sleep 1000                                       '设置休眠1000毫秒再执行

ws.run"https://www.baidu.com/"               '打开外部浏览器

ws.run "taskkill /f /im qq.exe"                 '关闭qq

ws.run"shutdown -s -t 600"                   '设置电脑定时10分钟后关机

ws.run"shutdown -a"                             '取消定时关机

------------------------------删除指定路径下的指定文件----------------------------------------------------------

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile"E:\tg.txt",true

-------------------------------复制自己到指定路径下------------------------------------------------------------------------------------

Set copy1=createobject("scripting.filesystemobject")
copy1.getfile(wscript.scriptfullname).copy("E:\h.vbs")            '复制自己到E盘的h.vbs文件中    h.vbs是执行后生成的