vbs后臺(tái)運(yùn)行bat刪除自身的代碼
更新時(shí)間：2008年08月31日 21:42:09 作者：
在VBS最后加上以下語句即可刪除批處理和腳本本身（假設(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"
不知道具體的路徑情況下，可以用如下代碼：
Set fso =CreateObject("Scripting.Filesystemobject")
fso.DeleteFile(WScript.ScriptFullName)
Wscript.ScriptFullName返回腳本的實(shí)際路徑。
刪除自身之：VBS
把下面的腳本保存為selfkill.vbs或selfkill.vbe：
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)
WScript.Echo( WScript.ScriptName)
然后運(yùn)行它，是不是發(fā)現(xiàn)selfkill.vbs神奇的消失啦？而后面的對話框卻被正常顯示出來噢^*^
上面的腳本調(diào)用FSO控件，使用WSH中Wscript對象得ScriptName屬性，得到腳本自身的文件名，
并調(diào)用FSO的DeleteFile方法刪除自身！
把它稍微改寫一下：
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)用它刪除自身啦，方法同樣和批處理文件的自刪除相似！
需要說明的是由于病毒及蠕蟲對腳本的濫用，腳本刪除文件時(shí)可能會(huì)被被誤認(rèn)為惡意代碼！
復(fù)制代碼 代碼如下:
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神奇的消失啦？而后面的對話框卻被正常顯示出來噢^*^
上面的腳本調(diào)用FSO控件，使用WSH中Wscript對象得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)用它刪除自身啦，方法同樣和批處理文件的自刪除相似！
需要說明的是由于病毒及蠕蟲對腳本的濫用，腳本刪除文件時(shí)可能會(huì)被被誤認(rèn)為惡意代碼！
相關(guān)文章
已經(jīng)第二次了，上班后沒把電話解除，總記不起這件事。做了個(gè)備忘錄，放在啟動(dòng)項(xiàng)里，每次啟動(dòng)系統(tǒng)后都會(huì)執(zhí)行，彈出相關(guān)事項(xiàng)，即便自己沒有記住也可以給個(gè)提醒了2008-06-06
VBS基礎(chǔ)篇 - vbscript動(dòng)態(tài)數(shù)組
VBS中的動(dòng)態(tài)數(shù)組需要使用System.Collections.ArrayList,需要的朋友可以參考下2018-05-05
VBS教程：VBscript屬性-FirstIndex 屬性
VBS教程：VBscript屬性-FirstIndex 屬性...2006-11-11
VBS教程：正則表達(dá)式簡介 -選擇與編組...2006-11-11
VBS教程：屬性-SerialNumber 屬性...2006-11-11
VBS教程：方法-Clear 方法...2006-11-11
用來分割文本的vbs腳本，用來處理數(shù)據(jù)庫中的文本代碼，按行計(jì)算需要的朋友可以參考下。2010-11-11
VBS教程：函數(shù)-String 函數(shù)...2006-11-11
用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)
用vbscript實(shí)現(xiàn)在文本文件中搜索兩個(gè)項(xiàng)...2007-04-04
VBS獲取MD5值最簡單的方法是直接調(diào)用CAPICOM組件，但是由于CAPICOM組件系統(tǒng)并不是默認(rèn)安裝，所以使用起來不方便2013-11-11