Local $hFileOpen = FileOpen($filename, $FO_READ)

Local $hFileOpen = FileOpen($filename, 0)

[ExeScriptParsers]
vbs=%COMMANDER_PATH%\Scripts\Parsers\wscript.exe
vbsVarFormat=filename="%s"

Content = "Test"
WScript.StdOut.Write Content

Set fso = CreateObject ("Scripting.FileSystemObject")
Set stdout = fso.GetStandardStream (1)
stdout.WriteLine "This will go to standard output."

WScript.Echo WScript.StdIn.ReadLine

Content = WScript.FullName
Content1 = WScript.ScriptFullName

$env:path = [Runtime.InteropServices.RuntimeEnvironment]::GetRuntimeDirectory()
[AppDomain]::CurrentDomain.GetAssemblies() | % {
  if (! $_.location) {continue}
  $Name = Split-Path $_.location -leaf
  Write-Host -ForegroundColor Yellow "NGENing : $Name"
  ngen install $_.location | % {"`t$_"}
}

; This VBS interpreter is only for example, WinScriptadv uses vbs\js\python engines via COM that is much faster than this.
; You can use it in portable versions of Total commander or if WSH is broken in Windows.
;vbs=%WINDIR%\system32\cscript.exe
;vbsCmdArgs=//nologo
;vbsVarFormat=filename="%s"
;vbsDoubleSlashPath=0
;vbsStdOutFormat=Wscript.echo %s

CreateObject("Scripting.FileSystemObject")._
GetStandardStream(1, True).Write "Символы Unicode: àéÿüĄŀĦĤŕž"
WScript.Echo WScript.StdIn.ReadLine

[Dicts]
Script=Dicts.vbs
content=Название
content1=Язык 1
content2=Язык 2
extensions=dsl|dz|xdxf

DZ = "C:\Test.dsl.dz"
MsgBox CreateObject("Shell.Application").NameSpace(DZ).Items.Item(0)

TOTALCMD#BAR#DATA
%ComSpec% /c for /f "delims=" %# in
('type %WF') do "%%COMMANDER_PATH%%\Plugins\exe\DictZipUI\dictzip.exe" -k "%%#" && move "%p%%~n#.dsl.dz" "%t"
%COMMANDER_PATH%\Totalcmd.exe,21
Compress dsl dicts with dictzip to other panel

1
-1

TOTALCMD#BAR#DATA
cmd /k "%COMMANDER_PATH%\Utils\dictzip.exe" -d
%N -c
%COMMANDER_EXE%,2
Вывод с пом. dictzip

[General]
Script=General.vbs
content=Result
extensions=*
FoldersPaths=0

ActiveScripts=MinutesAgo|CheckEncoding|Signature|General

Const FileList = "d:\My documents\Desktop\FileTree.txt" 'Файл-список

@d:\FileTree.txt

116813.jpg
13853.jpg
58deb6f0f3c33fb93ccba1e27e432f80.jpg
59022.jpg
89660.jpg
89666.jpg
89669.jpg
9313.jpg
d10918453222l (1).jpg
d22238563712b (2).jpg
d2763627502l (1).jpg
d29714550942b (2).jpg
g23007454092 (1).jpg
g5010100319 (1).jpg
___________3_1_4ecbd7ff172ff.jpg
_________________4f1be7fccc9fc.jpg

FileList = "d:\My documents\Desktop\FileTree.txt" 'Файл-список
Dim L, content : L = vbNewLine : content = 0
With CreateObject("Scripting.FileSystemObject")
  If .FileExists(FileList) Then If InStr(L & .OpenTextFile(FileList)._
  ReadAll & L, L & .GetFileName(Filename) & L) Then content = 1
End With

Set Reg = New Regexp : Reg.IgnoreCase = True
Reg.Pattern = "^([abcgkmorxy]|bmp[23]?|bie|clipboard|cur|dib|emf|gif(|87)|group4|icon?|jbi?g|jp[egx]|jpeg-ls|histogram|msl|mvg|null|p?jpeg|png(|8|24|32)|preview|rle|text|vid|xwd|p?tiff?)$"
If Reg.Test(Mid(FileName, InStrRev(FileName, ".") + 1)) Then
  With CreateObject("WIA.ImageFile")
    On Error Resume Next
    .LoadFile FileName : Content = .FileExtension
    If Err.Number = 0 Then
      Content1 = "Нет" : Content3 = "Нет"
      If .IsAlphaPixelFormat Then Content1 = "Есть"
      If .IsAnimated         Then Content3 = "Есть"
    End If
  End With
End If : Content2 = "Нет"
' Следующую строку в случае отображения всех кроме "Прозрачность" полей можно закомментировать (разница по скорости сразу станет ощутима):
If CreateObject("WScript.Shell").Run("%ComSpec% /c for /f %# in ('""""%COMMANDER_PATH%\Utils\ImageMagick\identify.exe"" -format %[opaque] """ & FileName & """|find /i /c ""true""""') do exit /b %#", 0, True) = 0 Then Content2 = "Есть"

Dim FSO, lText
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
lText = FSO.OpenTextFile(filename, ForReading).ReadAll

content   = GetXmlResult(lText, "Документ", "ИдДок"     )
content1  = GetXmlResult(lText, "Документ", "НомСооб"   )
content2  = GetXmlResult(lText, "Документ", "ДатаСооб"  )
content3  = GetXmlResult(lText, "СвСчет"  , "НомСч"     )
content4  = GetXmlResult(lText, "Файл"    , "ИдФайл"    )
content5  = GetXmlResult(lText, "Документ", "ИдФайлИсх" )
content6  = GetXmlResult(lText, "Документ", "ДатаОбр"   )
content7  = GetXmlResult(lText, "Документ", "КодОбр"    )
content8  = GetXmlResult(lText, "Документ", "РезОбр"    )
content9  = GetXmlResult(lText, "Ошибки"  , "КодОшибки" )
content10 = GetXmlResult(lText, "Ошибки"  , "НаимОшибки")
content11 = GetXmlResult(lText, "Документ", "ТипСооб"   )
content12 = trim(_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Фамилия" ) & " " &_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Имя"     ) & " " &_
            GetXmlResult2(lText, "СвНП"   , "ФИОФЛ", "Отчество") & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Фамилия" ) & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Имя"     ) & " " &_
            GetXmlResult2(lText, "НПИП"   , "ФИОИП", "Отчество") & " " &_
            replace(GetXmlResult2(lText, "СвНП", "НПРО", "НаимОрг"), """, """") & " " &_
            replace(GetXmlResult2(lText, "СвНП", "НПИО", "НаимОрг"), """, """"))
Set FSO = Nothing

Function GetXmlResult(pText, pTag1, pTag2)
  GetXmlResult = ""
  On Error Resume Next
  GetXmlResult = GetXMLValue(pText, pTag1, pTag2)
  If Err.Number <> 0 Then GetXmlResult = ""
  On Error GoTo 0
End Function

' Получить значение из XML
Function GetXMLValue(byVal pText, pParentTag, pTag)
  Dim REx
  Set REx = New RegExp
  REx.Global     = True
  REx.IgnoreCase = True
  REx.Pattern = "< *" & pParentTag & "[\r ][^>]*" & pTag & " *= *""([^>=]+) *""[\r >]"
  If REx.Test(pText) Then GetXMLValue = REx.Execute(pText)(0).SubMatches(0)
End Function

Function GetXmlResult2(pText, pTag1, pTag2, pTag3)
  GetXmlResult2 = ""
  On Error Resume Next
  GetXmlResult2 = GetXMLValue2(pText, pTag1, pTag2, pTag3)
  If Err.Number <> 0 Then GetXmlResult2 = ""
  On Error GoTo 0
End Function

' Получить значение из XML 2
Function GetXMLValue2(byVal pText, pParentTag1, pParentTag2, pTag)
  Dim REx
  Set REx = New RegExp
  REx.Global     = True
  REx.IgnoreCase = True
  REx.Pattern = "< *" & pParentTag1 & "[\r ][^>]*>[^<]*<" & pParentTag2 & "[\r ][^>]*" & pTag & " *= *""([^>=]+) *""[^>]*>[^\?]*</" & pParentTag1 & ">"
  If REx.Test(pText) Then GetXMLValue2 = REx.Execute(pText)(0).SubMatches(0)
End Function

If Matches.Count > 0 Then
      ArrPN(i) = FormatCurrency(objRegExp.Replace(ArrPN(i), "$1") & ","& objRegExp.Replace(ArrPN(i), "$3"), -1, -1)
   End If

Set File = CreateObject("Shell.Application").NameSpace(0).ParseName(FileName)
Execute "Content=File.ExtendedProperty(""System.ApplicationName"")"

Crash in plugin WinScriptsAdv.wdx:
External exception EEDFADE

WDX Guide
Exception in ContentGetValue

... in Array(..., "System.Language", "System.Author")

Reg.Pattern = "^(do[ct][xm]?|xl[st][xm]?|p[op]t[xm]?|vsd)$"

ActiveScripts=FindO

[FindO]
Script=FindO.vbs
content=FindO
extensions=*
FoldersPaths=1

#NoTrayIcon

Local $aMediaInfoGet, $content = '', $hDLL, $iHeight, $iWidth, $sRotation
Local $aMediaInfo

$hDLL = DllOpen(@ScriptDir & '\MediaInfo.dll')
$aMediaInfo = DllCall($hDLL, 'ptr', 'MediaInfo_New')
DllCall($hDLL, 'dword', 'MediaInfo_Open', 'ptr', $aMediaInfo[0], 'wstr', $CmdLine[1])
$aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Rotation', 'int', 1, 'int', 0)
$sRotation = $aMediaInfoGet[0]
If ($sRotation = '0.000') Or ($sRotation = '') Then
    $aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Width', 'int', 1, 'int', 0)
    $iWidth = $aMediaInfoGet[0]
    $aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Height', 'int', 1, 'int', 0)
    $iHeight = $aMediaInfoGet[0]
    If $iWidth < $iHeight Then $content = 'Achtung!'
Else
    $content = 'Achtung!'
EndIf
DllCall($hDLL, 'none', 'MediaInfo_Close', 'ptr', $aMediaInfo[0])
DllClose($hDLL)
MsgBox(4096, '', $content)

#NoTrayIcon
Local $aMediaInfoGet, $content = '', $hDLL, $iHeight, $iWidth, $sRotation
Local $aMediaInfo

$hDLL = DllOpen(@ScriptDir & '\MediaInfo.dll')
$aMediaInfo = DllCall($hDLL, 'ptr', 'MediaInfo_New')
DllCall($hDLL, 'dword', 'MediaInfo_Open', 'ptr', $aMediaInfo[0], 'wstr', $filename)
$aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Rotation', 'int', 1, 'int', 0)
$sRotation = $aMediaInfoGet[0]
If ($sRotation = '0.000') Or ($sRotation = '') Then
    $aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Width', 'int', 1, 'int', 0)
    $iWidth = $aMediaInfoGet[0]
    $aMediaInfoGet = DllCall($hDLL, 'wstr', 'MediaInfo_Get', 'ptr', $aMediaInfo[0], 'int', 1, 'int', 0, 'wstr', 'Height', 'int', 1, 'int', 0)
    $iHeight = $aMediaInfoGet[0]
    If $iWidth < $iHeight Then $content = 'Achtung!'
Else
    $content = 'Achtung!'
EndIf
DllCall($hDLL, 'none', 'MediaInfo_Close', 'ptr', $aMediaInfo[0])
DllClose($hDLL)

...
au3=%COMMANDER_PATH%\Plugins\wdx\WinScriptsAdv_wdx\Scripts\AutoIt3.exe
...
[RotationAutoIt]
Script=MediaInfo.au3
content=Rotation
extensions=3gp|asf|avc|avi|d2v|dat|divx|flv|m4v|mkv|mov|mp4|mpe|mpeg|mpg|ts|vob|webm|wmv
FoldersPaths=0

Name = Mid(FileName, InStrRev(FileName, "\") + 1)
With New Regexp
  .Pattern = "\[(\d+)\]" : If .Test(Name) Then Content = .Execute(Name)(0).Submatches(0)
End With

arr=filename.match(/\[(\d+)][^\\]*$/);if(arr!=null)content=arr[1]

;::::::::::::::::::::::::::::::: SWLcount.au3 ::::::::::::::::::::::::::::::
; Назначение: получение числа символов, слов, строк для информационных полей

; Положить blb2txt.exe в %COMMANDER_PATH%\Plugins\wdx\WinScriptsAdv\Scripts\
; Программа доступна по следующей ссылке:  http://balabolka.site/blb2txt.zip
; Поддержка: azw, azw3, chm, djvu, doc(x), eml, epub, fb2, fb3, htm(l), odp,
; ods, odt, mobi, litmht, pdb, pdf, ppt(x), prc, rtf, tcr, wpd, wri, xls(x),
; а также любых текстовых файлов по списку заданных в options.ini расширений
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
#NoTrayIcon
Opt('MustDeclareVars', 1)
Dim $FileName
If FileGetSize($FileName) = 0 Then
  $FileName = ObjCreate('Shell.Application').NameSpace(0).ParseName($FileName).ExtendedProperty('LinkTarget')
  If Not $FileName Then Exit
  If Not FileGetSize($FileName) Then Exit
EndIf
Dim $Ext, $PID, $Text, $Text2, $Content, $Content1, $Content2
$Ext = StringRegExp($FileName, '((?<=\.)[^.]+|)$', 1)[0]
If Not $Ext Then Exit
If StringInStr('|azw|azw3|chm|djvu|doc|docx|eml|epub|fb2|fb3|htm|html|lit|mht|mobi|odp|ods|odt|pdb|pdf|ppt|pptx|prc|rtf|tcr|wpd|wri|xls|xlsx|', '|' & $Ext & '|', 2) Then
  $PID = Run('"' & EnvGet('COMMANDER_PATH') & '\Plugins\wdx\WinScriptsAdv\Scripts\blb2txt.exe" -f "' & $FileName & '" -o -rpn -sn -ss','', 0, 2)
  While 1
    $Text = StdoutRead($PID, 1)
    If $Text Then
      If $Text = $Text2 Then ExitLoop
    EndIf
    $Text2 = $Text
  WEnd
  $Text2 = ''
  StdioClose($PID)
Else
  Dim $oFile
  $oFile = FileOpen($FileName)
  $Text  = FileRead($oFile)
  FileClose($oFile)
EndIf
$Content  = StringLen($Text)
$Content1 = UBound(StringRegExp($Text,'\R', 3)) + 1
$Content2 = UBound(StringRegExp($Text,'\p{L}+-?\p{L}*', 3))
$Text = ''

'=================================================
' Script for WinScriptAdv content plugin

' Возвращает значение ячейки Excel
'=================================================

'========== Изменяемые параметры =================
Const Addr = "Лист1!C12"  ' Адрес ячейки
'=================================================

content = Result(filename, Addr)

Function GetCellValue(pXl, pFile, pAddr)
  pXl.Visible = False
  pXl.DisplayAlerts = False
  Call pXl.Workbooks.Open(pFile, , True)
  GetCellValue = pXL.Range(pAddr)
End Function

Function Result(pFile, byVal pAddr)
  Dim objXL
  Set objXL = CreateObject("Excel.Application")
  On Error Resume Next
  Result = GetCellValue(objXL, pFile, pAddr)
  On Error Goto 0
  objXL.Quit()
  Set objXL = Nothing
End Function

'=================================================
' Script for WinScriptAdv content plugin

' Возвращает значение последней ячейки Excel в указанном столбце
'=================================================

'========== Изменяемые параметры =================
Const Addr = "Лист1!C"  ' Адрес ячейки без строки
'=================================================

content = Result(filename, Addr)

Function GetCellValue(pXl, pFile, pAddr)
  Dim lRow, lSh
  pXl.Visible = False
  pXl.DisplayAlerts = False
  Call pXl.Workbooks.Open(pFile, , True)
  If InStr(pAddr, "!") > 0 Then
    Set lSh = pXl.Worksheets(Left(pAddr, InStr(pAddr, "!") - 1))
  Else
    Set lSh = pXl.ActiveSheet
  End If
  lRow = lSh.UsedRange.Find("*", , , , , 2).Row
  GetCellValue = lSh.Range(pAddr & CStr(lRow))
  Set lSh = Nothing
End Function

Function Result(pFile, byVal pAddr)
  Dim objXL
  Set objXL = CreateObject("Excel.Application")
  On Error Resume Next
  Result = GetCellValue(objXL, pFile, pAddr)
  On Error Goto 0
  objXL.Quit()
  Set objXL = Nothing
End Function

=ВПР("Итого по смете:";B:C;2;ЛОЖЬ)

''=================================================
' Script for WinScriptAdv content plugin

' Возвращает значение найденной ячейки Excel в указанном столбце
' по принципу =ВПР("Итого по смете:";B:C;2;ЛОЖЬ)
'=================================================

'========== Изменяемые параметры =================
Const Addr = "Лист1!C"  ' Адрес ячейки без строки
Const columnConst = "B:B"  ' В каких столбцах должно быть найдено постоянное значение
Const ValueConst = "Итого по смете:"  ' Само постоянное значение
'=================================================

content = Result(filename, Addr)

Function GetCellValue(pXl, pFile, pAddr)
  Dim lRow, lSh
  pXl.Visible = False
  pXl.DisplayAlerts = False
  Call pXl.Workbooks.Open(pFile, , True)
  If InStr(pAddr, "!") > 0 Then
    Set lSh = pXl.Worksheets(Left(pAddr, InStr(pAddr, "!") - 1))
  Else
    Set lSh = pXl.ActiveSheet
  End If
  lRow = lSh.Range(columnConst).Find(ValueConst, , , , , 1).Row
  GetCellValue = lSh.Range(Addr & lRow)
  Set lSh = Nothing
End Function

Function Result(pFile, byVal pAddr)
  Dim objXL
  Set objXL = CreateObject("Excel.Application")
  On Error Resume Next
  Result = GetCellValue(objXL, pFile, pAddr)
  On Error Goto 0
  objXL.Quit()
  Set objXL = Nothing
End Function

' Script for WinScriptAdv content plugin
'
' Разделяет имена папок и файлов по заданному разделителю

'========== Изменяемые параметры =================
Const Separator = " - "
'=================================================

Dim fs, f, fn
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f  = fs.GetFolder(filename)
fn = f.name ' Имя папки
fn = fs.GetBaseName(filename) ' Имя файла

content = fn ' Полное имя файла
content1 = split(fn, Separator)(0) ' Часть 1
content2 = split(fn, Separator)(1) ' Часть 2
content3 = split(fn, Separator)(2) ' Часть 3

[Script]
ActiveScripts=Test

[Test]
Script=Test.vbs
content=Test
extensions=*
FoldersPaths=0

content = 1

Crash in plugin WinscriptsADV.wdx:
External exception EEDFADE