第一次修改：

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("請重啟機器!")