第一次修改：
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject(WSCRIPT.SHELL)
WSH.POPUP(确定要清除？)
On Error Resume Next
Set oFSO=CreateObject(Scripting.FileSystemObject)
Set f1=ofso.GetFile(c:\windows\system32\test.inf)
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP(请重启机器!)

第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject(WSCRIPT.SHELL)
WSH.POPUP(确定要清除？)
On Error Resume Next
Set oFSO=CreateObject(Scripting.FileSystemObject)
oFSO.DeleteFile(c:\windows\system32\test.inf)
Set oFSO=Nothing
WSH.POPUP(请重启机器!) Set Tas = GetObject(Winmgmts:) set q = Tas.instancesof(win32_process) do for each i in q if i.name = ABC.exe then '\\查找进程名为ABC.exe是否存在 Wsh.echo 检测到了ABC.exe，于是我自动弹出了。 end if next Wsh.sleep 1000 '\\每秒钟检测一次 loop 把ABC.exe改成你需要的那个进程名字就可以了， 这个程序是检测到那个进程就会弹出一个对话框。 如果你不会看进程，那就打开任务管理器， 再打开你想要检测的那个程序， 主意进程的变动， 如果发现一个新的进程， 那就是你需要找的那个进程。 Set fso=CreateObject(Scripting.FileSystemObject)
Set f1=fso.GetFile(c:\windows\system32\test.inf)
v=msgbox(★文件大小为:&f1.size&字节★&vblf&!!!是否删除?,vbyesno,☆by hkmfk)
if v=vbno then
msgbox 删除被取消!
wscript.quit
end if
fso.deletefile f1
Set FSO=Nothing
'--------------------------------------------------------------
%windir%\system32\test.inf 不能有VBScript不支持环境变量 第一次修改：
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject(WSCRIPT.SHELL)
WSH.POPUP(确定要清除？)
On Error Resume Next
Set oFSO=CreateObject(Scripting.FileSystemObject)
Set f1=ofso.GetFile(c:\windows\system32\test.inf)
oFSO.DeleteFile f1
Set oFSO=Nothing
WSH.POPUP(请重启机器!)

~~~~~~~~~~~~~~
第二次修改
Dim oFSO,f1,WSH
SET WSH=WSCRIPT.CreateObject(WSCRIPT.SHELL)
WSH.POPUP(确定要清除？)
On Error Resume Next
Set oFSO=CreateObject(Scripting.FileSystemObject)
oFSO.DeleteFile(c:\windows\system32\test.inf)
Set oFSO=Nothing
WSH.POPUP(请重启机器!)

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
测试成功。。。 用引号引起来是不是就可以包含中文了，我不懂vbs。我是用批处理做的，把删除注册表语句echo到一个临时文件中，再静默导入，还有个判断语句，如果有个存在一个标志文件就导入删除，如果不存在就导入添加的