проблемы со сценарием печати vbs

Привет всем, у меня проблемы с этим скриптом vbs

set shApp = CreateObject("shell.application")
currentPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") 
set shFolder = shApp.NameSpace( currentPath )
set files = shFolder.Items()
for each files in files

if files.name <> "2" then
    'msgbox("printing "&files.name) 
                            files.InvokeVerbEx ("Print") 

end if
next

Предполагается, что это будет печатать все файлы в папке скриптов, НО он также печатает исходный код скрипта, я не хочу печатать сам скрипт vbs, только другие файлы, как мне это сделать? Что я делаю не так ?? 2 — это имя файла самого скрипта 2.vbs

Также как закрыть слово после печати автоматически?

Благодарность !