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

最新推荐文章于 2023-11-06 16:21:23 发布

weixin_34041003

最新推荐文章于 2023-11-06 16:21:23 发布

阅读量128

点赞数

文章标签： shell python

原文链接：https://my.oschina.net/veterans/blog/27839

版权

2019独角兽企业重金招聘Python工程师标准>>>

安装文件(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

转载于:https://my.oschina.net/veterans/blog/27839