Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & _
"." & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("Select * From __InstanceCreationEvent Within 5 Where " _
& "Targetinstance Isa 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=""c:\\\\Windows\\\\System32\\\\Spool\\\\Printers""'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Wscript.Echo objLatestEvent.TargetInstance.PartComponent
Loop
从http://www.codeproject.com/Articles/42212/WMI-and-File-System-Monitoring
改编而且这将启动一个服务
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Service")
For Each objItem in colItems
If Lcase(objitem.Name) = "spooler" Then
msgbox objitem.name & " " & objitem.status & " " & objitem.state
objitem.StartService
End If
Next
这将删除打印机文件夹中的文件
On error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\windows\system32\spool\Printers")
For each f in fldr.files
f.delete
Next
告诉我们你试过了什么。没有免费代码写作服务在这里! – CrakC
我有一个清除打印队列的脚本,我希望在给出打印命令'@echo off echo 10秒后运行。 回声清除打印队列... 净停止后台处理程序 呼应删除所有打印作业...... 平本地主机-N 4> NUL 德尔/ Q的%SystemRoot%\ SYSTEM32 \阀芯\打印机\ *。* 网络启动后台打印程序 echo done! ping localhost -n 4> nul' –
从任何应用程序打印后运行它都会非常困难(可能不可能)。你能告诉我们你想完成什么吗?也许还有另一种方法来实现它。 – aphoria