VBS打造自己的重启删除工具

安装文件(REG),Install.reg,双击导入即可完成安装

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\重启删除\command]
@="WScript.exe //nologo c:\\windows\\system32\\rerase.vbs \"%1\""

 

 

rerase.vbs，需拷贝至c:\windows\system32\rerase.vbs ，当然也可是其它目录，但是要修改Insatll.reg

On Error Resume Next
TargetFile = Wscript.Arguments(0)

Set ObjRUN = Wscript.createObject("Wscript.shell")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")

If ObjFSO.FileExists(TargetFile) Then

	Set GetFile = ObjFSO.GetFile(TargetFile)
	Set InfFile = ObjFSO.CreateTextFile(objFSO.GetParentFolderName(GetFile) & "\INFFILE.INF")

	InfFile.WriteLine("[Version]")
	InfFile.WriteLine("Signature = ""$Chicago$""")
	InfFile.WriteLine("[DestinationDirs]")
	InfFile.WriteLine("DefaultDestDir = 01")
	InfFile.WriteLine("[DefaultInstall]")
	InfFile.WriteLine("DelFiles = DELETELIST")
	InfFile.WriteLine("[DELETELIST]")
	InfFile.WriteLine("INFFILE.INF")
	InfFile.WriteLine(ObjFSO.GetFileName(GetFile) & ",,,1")
	InfFile.Close
	
	ObjRUN.Run "RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 128 " & objFSO.GetParentFolderName(GetFile) & ".\INFFILE.INF", 0, TRUE
	
	WScript.Sleep 200
	
	If ObjFSO.FileExists(TargetFile) Then
		Return = Msgbox("必须重启才能完成删除操作，你想现在重启吗?", vbYesNo + vbInformation + vbDefaultButton2, "提示")
		IF Return = vbYes Then
			ObjRUN.Run "shutdown -r -t 0"
		End If
	End If
	
Else
    MsgBox "文件未找到!", 16, "错误"
End If