フォルダ内へGIFデータが保存されたら、勝手に印刷することは実現できますでしょうか？

ちなみに、「windows フォトビューアー」で開いて
印刷をするこもできますでしょうか？

一応、可能なようです。

プログラムの変更箇所は以下になります。

• PrintFile() … [変更] strCommand のパラメータを変更
• GetDefaultPrinter() … [追加] 通常使うプリンタ名を取得する。

以下、対応版です。

' File : FileWatch.vbs
' Usage : CScript FileWatch.vbs
Option Explicit

Const g_strWatchFolder = "C:\home\edu\hatena\ohtsu6\1364222104\watch"   ' 監視対象フォルダ
Const g_strBackupFolder = "C:\home\edu\hatena\ohtsu6\1364222104\backup" ' 移動先フォルダ

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Call Main()

Sub Main()
    Dim strFolder
    Dim strWatchFileName
    Dim strComputer
    Dim objWMIService
    Dim colMonitoredEvents
    Dim objLatestEvent
    
    strFolder = Replace( g_strWatchFolder, "\", "\\\\" )
    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" _ 
        & "{impersonationLevel=impersonate}!\\" & _ 
            strComputer & "\root\cimv2") 
    Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
        ("SELECT * FROM __InstanceCreationEvent WITHIN 3 WHERE " _ 
            & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ 
                & "TargetInstance.GroupComponent= " _ 
                    & "'Win32_Directory.Name=""" & strFolder & """'") 
    Do 
        Set objLatestEvent = colMonitoredEvents.NextEvent 
        strWatchFileName =  objLatestEvent.TargetInstance.PartComponent 
        strWatchFileName = GetValue( strWatchFileName )
        strWatchFileName = Replace( strWatchFileName, "\\", "\" )
        PrintFile strWatchFileName
        MoveFile strWatchFileName, g_strBackupFolder
    Loop 
End Sub

Function GetValue( strKeyValue )
    Dim strResult
    Dim strArray
    strArray = Split(strKeyValue, "=") 
    strResult = strArray(1)
    GetValue = strResult
End Function 

Sub PrintFile( strFileName )
    Dim strCommand
    Dim strPrinter
    strPrinter = GetDefaultPrinter()
    
    ' 「ＭＳペイント」にて印刷する場合
    'strCommand = "mspaint.exe " & strFileName & " /p"
    
    ' 「Windows フォトビューア」で印刷する場合
    strCommand = "rundll32.exe shimgvw.dll,ImageView_PrintTo /pt " & strFileName & " """ & strPrinter & """"
    
    Dim objShell
    Set objShell = CreateObject("Wscript.Shell") 
    WScript.Echo "[" & strCommand & "] を実行しています。"
    objShell.Run strCommand, 1, True
End Sub

Sub MoveFile( strFileName, strBackupFolder )
    ' 二重引用符除去
    strFileName = Replace( strFileName, Chr(34), "" )
    
    ' フォルダの最後に「￥」を追加
    If Right(strBackupFolder, 1 ) <> "\" Then
        strBackupFolder = strBackupFolder + "\"
    End If
    
    WScript.Echo "[" & strFileName & "] を [" & strBackupFolder & "] に移動しています。"
    fso.CopyFile strFileName, strBackupFolder , True ' 上書きコピー
    fso.DeleteFile strFileName
End Sub

Function GetDefaultPrinter()
    Dim strResult
    Dim strComputer
    strComputer = "." 
    
    Dim objWMIService
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
    Dim colPrinters
    Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where Default = TRUE") 

    Dim objPrinter 
    For Each objPrinter in colPrinters 
        strResult = objPrinter.ShareName 
        Exit For
    Next
    GetDefaultPrinter = strResult 
End Function

参考情報

■ shimgvw.vbs - コマンドラインから「Windows画像とFaxビューア」で表示/印刷する
http://www.vector.co.jp/soft/winnt/util/se393313.html
■ Hey, Scripting Guy! コンピュータが通常使うプリンタを調べる方法はありますか。
http://gallery.technet.microsoft.com/scriptcenter/79f41de2-6873-4a3d-82e7-8e411c3b2906