Печать JPEG-изображений

Option Explicit
 
Dim strTargetFolder
Dim strComputer
 
Dim objSWbemServicesEx
Dim objSWbemEventSource
Dim objSWbemObjectEx_Event
Dim objSWbemObjectEx_CIM_DataFile
 
 
strTargetFolder = "c:\TecT"
strComputer = "."
 
Set objSWbemServicesEx = GetObject("WinMgmts:\\" & strComputer & "\Root\CIMV2")
 
Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'CIM_DirectoryContainsFile' AND " & _
"TargetInstance.GroupComponent = 'Win32_Directory.Name=""" & Replace(strTargetFolder, "\", "\\\\") & """'")
 
 
WScript.Echo "Monitor files creation and Print documents in [" & strTargetFolder & "]..."
 
Do
Set objSWbemObjectEx_Event = objSWbemEventSource.NextEvent
Set objSWbemObjectEx_CIM_DataFile = objSWbemServicesEx.Get(objSWbemObjectEx_Event.TargetInstance.PartComponent)
 
WScript.Echo Now() & " |  | New file: [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
 
Select Case UCase(objSWbemObjectEx_CIM_DataFile.Extension)
Case "DOC"
PrintByWord objSWbemObjectEx_CIM_DataFile.Name
Case "XLS"
PrintByExcel objSWbemObjectEx_CIM_DataFile.Name
Case Else
' Nothing to do
End Select
 
 
WScript.Echo Now() & " |  | Delete file: [" & objSWbemObjectEx_CIM_DataFile.Name & "]"
objSWbemObjectEx_CIM_DataFile.Delete
Loop
 
WScript.Quit 0
'=============================================================================
 
'=============================================================================
Sub PrintByWord(strFileName)
Const wdDoNotSaveChanges = 0
 
Dim objWord
Dim objDoc
 
Set objWord = WScript.CreateObject("Word.Application")
 
WScript.Echo Now() & " |  | Print file: [" & strFileName & "]"
 
With objWord
Set objDoc = .Documents.Open(strFileName, False, True, False)
 
objDoc.PrintOut True
 
Do
WScript.Sleep 500
Loop Until .BackgroundPrintingStatus = 0
 
Set objDoc = Nothing
 
.Quit wdDoNotSaveChanges
End With
 
Set objWord = Nothing
End Sub
'=============================================================================
 
'=============================================================================
Sub PrintByExcel(strFileName)
Dim objExcel
Dim objWorkbook
 
Set objExcel = WScript.CreateObject("Excel.Application")
 
WScript.Echo Now() & " |  | Print file: [" & strFileName & "]"
 
With objExcel
Set objWorkbook = .Workbooks.Open(strFileName, 0, True)
 
objWorkbook.PrintOut
objWorkbook.Saved = True
 
Set objWorkbook = Nothing
 
.Quit
End With
 
Set objExcel = Nothing
End Sub
'=============================================================================

InvokeVerb("&Print")

Set objFolderItems = CreateObject("Shell.Application").NameSpace("D:\Temp").Items
objFolderItems.Filter 64, "*.jpg"
objFolderItems.InvokeVerbEx "print"

Set objFolderItems = CreateObject("Shell.Application").NameSpace("D:\Temp").Items
objFolderItems.Filter 64, "*.jpg"
For Each objVerb In objFolderItems.Verbs
    strTemp = LCase(Replace(objVerb.Name, "&", ""))
    If strTemp = "печать" Or strTemp = "print" Then
        objVerb.DoIt
        Exit For
    End If
Next

objFolderItems.Filter(64, "000.jpg;002.jpg")

Dim Image_Collection
Dim Master As Object
Master = WScript.CreateObject("WIA.CommonDialog")
Image_Collection = WScript.CreateObject("WIA.Vector")
'Здесь не смог перевести на vbs:
'            For Each item As String In FileList
'                Image_Collection.Add(item)
'            Next
Call Master.ShowPhotoPrintingWizard(Image_Collection)

Files = Array("C:\1.jpg", "D:\2.jpg", "F:\3.jpg")
Set oDesc = CreateObject("Shell.Application").NameSpace(0)
i = 0
 
For Each oVerb in oDesc.ParseName(Files(0)).Verbs
    Verb = LCase(Replace(oVerb.Name, "&", ""))
    If Verb = "печать" Or Verb = "print" Then Exit For
    i = i + 1
Next
 
For Each F in Files
  oDesc.ParseName(F).Verbs.Item(i).DoIt
Next