VBS 删除本地所有PPT文档

删除本地所有PPT格式的文件

' *****************************************************************************
' TEST SCRIPT - Del Local All PPT File.vbs
' *****************************************************************************
'  作用: 删除本地所有的PPT文档
'  作者: Edward
'  日期: 2012.9.5 23:00
'  Copyright (c) sunwill
' *****************************************************************************

On ERROR RESUME NEXT

Dim fso,file
strComputer = "."

'断开本地电脑所有网络驱动器
Set objNet = CreateObject ("Wscript.Network")
Set objNetdrv = objNet.EnumNetworkDrives
For i = 0 To objNetdrv.Count -1 Step 2
objNet.RemoveNetworkDrive objNetdrv.Item(i),True,True
Next

'结束所有PPT进程
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='powerpnt.exe' ")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

'删除指定格式PPT的文件并记录日志
Set objComputer = CreateObject("Shell.LocalMachine")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("\\10.1.10.11\tmp\delppt\" & objComputer.MachineName & ".txt")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Extension = 'ppt'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
file.WriteLine (objFile.Name)
fso.DeleteFile (objFile.Name)
Next