vbs后臺(tái)運(yùn)行bat刪除自身的代碼

更新時(shí)間：2008年08月31日 21:42:09 作者：

在VBS最后加上以下語(yǔ)句即可刪除批處理和腳本本身（假設(shè)運(yùn)行的批處理為 run.cmd ，啟動(dòng)批處理的腳本為 run.vbs ）

知道真實(shí)路徑的情況下

set fso=wscript.createobject("scripting.filesystemobject") 
fso.deletefile "c:\windows\system32\run.cmd" 
fso.deletefile "c:\windows\system32\run.vbs" 

不知道具體的路徑情況下，可以用如下代碼：

復(fù)制代碼代碼如下:

 
Set fso =CreateObject("Scripting.Filesystemobject") 
fso.DeleteFile(WScript.ScriptFullName) 

Wscript.ScriptFullName返回腳本的實(shí)際路徑。

刪除自身之：VBS

把下面的腳本保存為selfkill.vbs或selfkill.vbe：

復(fù)制代碼代碼如下:

 
Set fso = CreateObject("Scripting.FileSystemObject") 
f = fso.DeleteFile(WScript.ScriptName) 
WScript.Echo( WScript.ScriptName) 

然后運(yùn)行它，是不是發(fā)現(xiàn)selfkill.vbs神奇的消失啦？而后面的對(duì)話框卻被正常顯示出來噢^*^
上面的腳本調(diào)用FSO控件，使用WSH中Wscript對(duì)象得ScriptName屬性，得到腳本自身的文件名，
并調(diào)用FSO的DeleteFile方法刪除自身！

把它稍微改寫一下：

復(fù)制代碼代碼如下:

 
On Error Resume Next '防止出現(xiàn)錯(cuò)誤 
Set fso = CreateObject("Scripting.FileSystemObject") 
WScript.Sleep 1000 '將腳本執(zhí)行掛起1秒 
fso.DeleteFile(WScript.ScriptName) '刪除腳本自身 
If fso.FileExists("c:\selfkill.exe") Then fso.DeleteFile("c:\selfkill.exe") '刪除程序 

程序就可以動(dòng)態(tài)生成VBS自刪除腳本，并調(diào)用它刪除自身啦，方法同樣和批處理文件的自刪除相似！
需要說明的是由于病毒及蠕蟲對(duì)腳本的濫用，腳本刪除文件時(shí)可能會(huì)被被誤認(rèn)為惡意代碼！

您可能感興趣的文章: