| Код |
Set objWMIService = GetObject(«winmgmts:» _
& «{impersonationLevel=impersonate}!\\.\root\cimv2″)
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
(«SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE » _
& «Targetinstance ISA ‘CIM_DirectoryContainsFile’ and » _
& «TargetInstance.GroupComponent= » _
& «‘Win32_Directory.Name=»"c:\\\\pdfprint»"‘»)
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
MyFile = objLatestEvent.TargetInstance.PartComponent
Set objLatestEvent = Nothing
MyFile = UCase (MyFile)
MyFile = Replace(MyFile, «\\», «\»)
MyFile = Mid (MyFile,InStr(MyFile,»"»")+1, Len(MyFile)-InStr(MyFile,»"»")-1)
If (InStr ( MyFile, «.PDF»)) = (Len (MyFile)-3) Then
Set WSHShell = WScript.CreateObject(«WScript.Shell»)
WshShell.Run «»"C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe»" -p » & «»"» & MyFile & «»"», 1, True
Set WSHShell = Nothing
End If
Set objFSO = CreateObject(«Scripting.FileSystemObject»)
objFSO.DeleteFile(MyFile)
Set objFSO = Nothing
Loop
|
Этот скрипт ждёт появление файла в директории, потом печатает его, а потом удаляет файл. 
|
)