VBS-скрипт и Total Commander

Option Explicit
Dim List, Cnt, Buf, CurDir 
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
' ***********************************************************
Dim TCS
   Set TCS = CreateObject("TCScript.Helper")
   
   TCS.SendCommand "cm_CopyFullNamesToClip"
CurDir = TCS.GetSrcPath 
TCS.SendCommand "cm_CopyFullNamesToClip", True 
MsgBox TCS.GetTextFromClip 
List = Split(TCS.GetTextFromClip,vbNewLine) 
MsgBox List(2)
MsgBox List(1)
MsgBox List(0)
 For Cnt=LBound(List) To UBound(List) 
   If Cnt Mod 2 = 1 Then 
  
      Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine 
   End If 
 Next 
 
   Dim objArgs, I
Set objArgs = WScript.Arguments 
'Вывод всех аргументов (как пример работы с ними) 
For I = 0 to objArgs.Count - 1 
    WScript.Echo objArgs(I) 
 Next 
' ***********************************************************
 
'************************************************************ 
'забираем имя ПК и кладем его в имя архива
'************************************************************
Set wshShell = WScript.CreateObject( "WScript.Shell" )
Dim strComputerName
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WScript.Echo "Computer Name: " & strComputerName
 
 
Dim WinRarPlace, WinRarParameters, WinRarDirTO
WinRarPlace = "c:\progra~1\winrar\winrar.exe"
WinRarParameters = "a -scoglc -s -r -rr10p -dh -ed -m3 -ag"&strComputerName&"_DD-WW-MMM-YYYY_HH-MM-SS"
'WinRarDirTO = "\\ARM7\temp\TO\"
WinRarDirTO = "C:\temp\TO-TEST\"
'WinRarArhivDate = "-ag+DD-WW-MMM-YYYY_HH-MM-SS%computername%"
WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & " " & file & "" )
 
'Set TCS = Nothing
 WScript.Quit

strNewName = strComputerName & Now & ".rar"
objFile = objFS.GetFile("pre-name.rar")
objFile.Move(strComputerName & Now)

strParam = "a -scoglc -s -r -rr10p -dh -ed -m3 -ag "+strComputerName+"_DD-WW-MMM-YYYY_HH-MM-SS"

strParam = "a -scoglc -s -r -rr10p -dh -ed -m3 -agDD-WW-MMM-YYYY_HH-MM-SS "+strComputerName+"_"

Dim WinRarPlace, WinRarParameters, WinRarDirTO, strParam
WinRarPlace = "c:\progra~1\winrar\winrar.exe"
WinRarArhivDate = "-agDD-WW-MMM-YYYY_HH-MM-SS"
WinRarParameters = "strParam = "a -scoglc -s -r -rr10p -dh -ed -m3 -agDD-WW-MMM-YYYY_HH-MM-SS "+strComputerName+"_""
WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & " " & file & "" )

WinRarPlace = "c:\progra~1\winrar\rar.exe"
WinRarDirTO = "D:\"
file = "Akelpad.exe"
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WinRarParameters = "a -scoglc -s -r -rr10p -dh -ed -m3 -agDD-WW-MMM-YYYY_HH-MM-SS "+strComputerName+"_"
WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & file &"" )

WinRarPlace = "c:\progra~1\winrar\rar.exe"
WinRarDirTO = "D:\"
file = "Akelpad.exe"
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WinRarParameters = "a -scoglc -s -r -rr10p -dh -ed -m3 -agDD-WW-MMM-YYYY_HH-MM-SS "+strComputerName+"_"
MsgBox(WinRarParameters)
' WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & file &"" )

WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & " " & file & "" )

WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & file & "" )

WinRarPlace = "c:\progra~1\winrar\rar.exe"
WinRarDirTO = "D:\"
file = "Akelpad.exe"
CreateObject( "WScript.Shell" )
'strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
strComputerName = "Пример"
WinRarParameters = "a -scoglc -s -r -rr10p -dh -ed -m3 -agDD-WW-MMM-YYYY_HH-MM-SS "+strComputerName+"_"
WshShell.Run WinRarPlace & " " & WinRarParameters & " " & WinRarDirTO & file, 0

Option Explicit
Dim List, Cnt, Buf, CurDir 
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
' ***********************************************************
' BrowseForFolder_files.vbs
' Создание диалогового окна для выбор файла
' ***********************************************************
' Флаги.
Const BIF_returnonlyfsdirs       = &H0001
Const BIF_dontgobelowdomain      = &H0002
Const BIF_statustext             = &H0004
Const BIF_returnfsancestors      = &H0008
Const BIF_editbox                = &H0010
Const BIF_validate               = &H0020
Const BIF_browseforcomputer      = &H1000
Const BIF_browseforprinter       = &H2000
Const BIF_browseincludefiles     = &H4000
Dim file
file = BrowseForFoldr("Выберите файл или папку", BIF_returnonlyfsdirs + BIF_browseincludefiles, "")
If file = "-5" Then
WScript.Echo "Выбран файл в корневой папке"
Else
If file = "-1" Then
WScript.Echo "Объект не выбран"
Else
WScript.Echo "Объект: ", file
End If
End If
 
' Получение полного пути к объекту
Function BrowseForFoldr(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, tmp
Set oShell = WScript.CreateObject("Shell.Application")
' Взывать диалоговое окно Browse For Folder.
Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir)
If Err.Number <> 0 Then
If Err.Number = 5 Then
BrowseForFoldr="-5"
Err.Clear
Set oShell = Nothing
Set oItem = Nothing
Exit Function
End If
End If
' Теперь попытаемся получить полный путь.
BrowseForFoldr = oItem.ParentFolder.ParseName(oItem.title).Path
' Обработка нажатия кнопки Cancel и выбора диска.
 
If Err<> 0 Then
If Err.Number = 424 Then                 ' Обработать кнопку Cancel.
BrowseForFoldr ="-1"
Else
Err.Clear
' Обработать ситуацию, в которой пользователь выбирает диск.
tmp = InStr(1, oItem.title, ":")
If tmp > 0 Then          ' Символ ":" найден; взять два символа и добавить \.
BrowseForFoldr = Mid(oItem.Title, (tmp - 1), 2) & "\"
End If
End If
End If
Set oShell = Nothing
Set oItem = Nothing
On Error GoTo 0
End Function
 
'создание комментария/описания для нового архива
Dim CommentScript, CommentScriptPlace
CommentScript = "RarComment.bat"
CommentScriptPlace = "\\ARM7\temp\TO\"
WshShell.Run ( "" & CommentScript & " " & file & " " & CommentScriptPlace & "" )
 
'небольшая пауза для того, чтобы отработали батники
WScript.Sleep 100
 
'запускаем архиватор, для создания копии указанной папки
Dim WinRarPlace, WinRarParameters, WinRarDirTO, WinRarArhName, strComputerName, WinRar_ilogKey, WinRar_logKey, WinRarCommentParams
WinRarPlace = "c:\progra~1\winrar\winrar.exe"
'-ma5 winrar сохраняет файлы в версии архиватора 5.0
WinRarParameters = "a -s -r -rr10p -idcdpq -htb -ma5 -dh -isnd -ed -m3 -ag+DD-WW-MMM-YYYY_HH-MM-SS"
WinRarCommentParams = "-z" & CommentScriptPlace & "rarcomment.txt"
WinRarDirTO = "\\ARM7\temp\TO\"
WinRar_ilogKey = "-ilog\\ARM7\temp\TO\errorlog.txt"
WinRar_logKey = "-logfap=\\ARM7\temp\TO\log.txt"
WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarCommentParams & " " & WinRar_ilogKey & " " & WinRar_logKey & " " & WinRarDirTO & " " & file & "" )

' ------------------------------------------------------------------------------
' отправить почту об удачном выполнении скрипта
Dim EmailSubject, EmailBody
EmailSubject = "Sending Email by CDO"
EmailBody = "This is the body of a message sent via" & vbCRLF & _
        "a CDO.Message object using SMTP authentication."
Const EmailFrom = "inzaim@gmail.com"
Const EmailFromName = "username"
Const EmailTo = "username@gmail.com"
Const SMTPServer = "smtp.gmail.com"
Const SMTPLogon = "username@gmail.com"
Const SMTPPassword = "password"
Const SMTPSSL = True
Const SMTPPort = 465
Const cdoSendUsingPickup = 1    'Send message using local SMTP service pickup directory.
Const cdoSendUsingPort = 2  'Send the message using SMTP over TCP/IP networking.
Const cdoAnonymous = 0  ' No authentication
Const cdoBasic = 1  ' BASIC clear text authentication
Const cdoNTLM = 2   ' NTLM, Microsoft proprietary authentication
' First, create the message
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = EmailSubject
objMessage.From = """" & EmailFromName & """ <" & EmailFrom & ">"
objMessage.To = EmailTo
objMessage.TextBody = EmailBody
' Second, configure the server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPLogon
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPPort
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = SMTPSSL
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
' Now send the message!
 
objMessage.Send

Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'запускаем архиватор, для создания копии указанной папки (rarcomment.txt)
'объявляем необходимые переменные
Dim WinRarPlace, WinRarA, WinRarKeys, WinRarDirTO, WinRarArhDate, WinRar_ilogKey, WinRar_logKey, WinRarFilesList
'место расположения WinRar
WinRarPlace = "c:\progra~1\winrar\winrar.exe"
'ключи для работы WinRar
'  a        : запуск архивации, пишется без символа "-".
' -s        : создание неприрывного архива, что экономит место, но менее устойчиво к повреждениям.
' -r        : включить обработку подкаталогов.
' -rr10p    : добавить к архиву 10% информации для восстановления архива, если он окажется битым.
' -idcdpq   : Не показывать сообщения:
'             c-отключает вывод строки с авторскими правами (copyright),
'             d-отключает вывод строки "Готово" в конце операции,
'             p-отключает вывод процентного индикатора хода выполнения,
'             q-активизирует "тихий" режим, при котором на экран выводятся только сообщения об ошибках и запросы.
' -htb      : В архивах RAR целостность данных определяется по контрольным суммам BLAKE2, 256бит. Буква b отвечает за принудительный выбор BLAKE2.
' -ma5      : winrar сохраняет файлы в версии архиватора 5.0.
' -dh       : Данный ключ включает в обработку файлы, открытые для записи другими программами.
' -isnd     : Разрешает звуковые сигналы(как работает неясно).
' -ed       : Не добавлять пустые каталоги.
' -m3       : Степень сжатия. -m0 Без сжатия, -m1 Скоростной, -m2 Быстрый, -m3 Обычный, -m4 Хороший, -m5 Максимальный.
' -z        : Добавить комментарий к архиву из файла -zfilename.txt.
' -w<путь>  : Задать каталог для временных файлов.
' @list.lst : Порядок добавления файлов в непрерывный архив. В Windows этот файл должен находиться в том же каталоге, что и RAR, либо в каталоге %APPDATA%\WinRAR.
'переменная a указывает винрару, что нужно создавать архив.
WinRarA = "a"
'переменная с необходимыми ключами для работы WinRar.
WinRarKeys = "-s -r -rr10p -idcdpq -htb -ma5 -dh -isnd -ed -m3 -w\\ARM7\temp\TO\"
'Дата создания архива используется как название сформированного архива.
WinRarArhDate = "-agDD-WW-MMM-YYYY_HH-MM-SS"
'Директория куда будут складываться новые архивы
WinRarDirTO = "\\ARM7\temp\TO\"
'Файл ошибок винрара
WinRar_ilogKey = "-ilog\\ARM7\temp\TO\errorlog.txt"
'Файл лога работы винрара
'WinRar_logKey = "-logfap=\\ARM7\temp\TO\log.txt"
'список файлов по которому винрар создаст новый архив
WinRarFilesList = "@C:\temp\Back2\VBS\list.txt"
'Запуск самого архиватора WinRar
'WshShell.Run ( "" & WinRarPlace & " " & WinRarParameters & " " & WinRarCommentParams & " " & WinRarFilesList & " " & WinRar_ilogKey & " " & WinRar_logKey & " " & WinRarDirTO & " " & file & "" )
WshShell.Run ( "" & WinRarPlace & " " & WinRarA & " " & WinRarKeys & " " & WinRarArhDate & " " & WinRar_ilogKey & " " & WinRar_logKey & " " & WinRarDirTO & " " & WinRarFilesList & "" )
 
'запускаем отправку уведомления на емаил о корректном выполнении задачи.
'Dim EmailSend
'EmailSend = "C:\temp\Back2\VBS\SendMail.vbs"
'WshShell.Run ("" & EmailSend & "")

dim sF: sF = "."
dim j, s
set objFS = WScript.CreateObject("Scripting.FileSystemObject")
set objF = objFS.GetFolder(sF).Files
 
 
For Each j in objF
    s = s & j.name & vbCrLf
Next
MsgBox(s)
 
'здесь пока "висит" следующий MsgBox вручную или на автомате
'создаем любой файл для проверки скрипта
 
WScript.Echo("objF.count = " & objF.count)
 
set objF = objFS.GetFolder(sF).Files
 
WScript.Echo("objF.count = " & objF.count)
 
 
For Each j in objF
    if InStr(1, Cstr(s), Cstr(j.name), 0) = 0 Then
        MsgBox("found file: " & j.name)
    End If
Next
 
WScript.Quit