[Script]
Section=Defaults|Extension|AddZeros|exe-arc up|js

'signatur.vbs by ricobautsch

'Script for Script Content Plugin (c)Lev Freidin, 2005
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
'
'Этот скрипт показывает первые 10 байт файла в тектовом или hex представлении
'может быть полезен для поиска файлов с определенной сигнатурой
'This script returns the first 10 bytes in the file as text or hex-representation.
'Could be usefull for example to search for files with a specified signatur

const bHex = True
const nCharCnt = 10

Set fso = CreateObject("Scripting.FileSystemObject")
Set oTextStream = fso.OpenTextFile(filename)

If not oTextStream.AtEndOfStream Then
  content_str = oTextStream.Read(nCharCnt)
 
  If bHex Then
    For i=1 To Len(content_str)
      If content <> "" Then
        content = content & " "
      End If
     
      hex_value = Hex(Asc(Mid(content_str,i,1)))
     
      content = content & string(2 - len(hex_value), "0")
      content = content & hex_value
    Next
  Else
    content = content_str
  End If
End If

oTextStream.Close

'Script for Script content Plugin
' van Dusen
' (c)Lev Freidin, 2005
' http://www.totalcmd.net/plugring/script_wdx.html
' http://wincmd.ru/plugring/script_wdx.html

Dim fso, f1, f2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(filename)

sBaseIst = lcase(fso.GetBaseName(filename))
sExtIst = lcase(fso.GetExtensionName(filename))
sDateModF1 = f1.DateLastModified
sExtSoll1 = "doc"
sExtSoll2 = "pdf"
Const ForReading = 1


SELECT Case sExtIst

   Case sExtSoll1
      sResult = sExtSoll2 & " - сответствующий файл"
      If fso.FileExists(sBaseIst & "." & sExtSoll2) Then
         Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll2)
         sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
         If sTimeDiff < 0 Then
            sResult = "2: " & sResult & " устарел"
         Else
            sResult = "1: " & sResult & " свежий"
         End If
         sResult = sResult & " (" & sTimeDiff & " Min. Diff.)"
      Else
         sResult = "3: " & sResult & " отсутствует"
      End If

   Case sExtSoll2     
      If fso.FileExists(sBaseIst & "." & sExtSoll1) Then
         Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll1)
         sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
         If sTimeDiff > = 0 Then
            sResult = "2: Файл устарел"
         Else
            sResult = "1: Свежий файл"
         End If
         sResult = sResult & " ("& sTimeDiff & " Min. Diff.)"
      Else
         sResult = "3: "& sExtSoll1 &" - соответствующий файл отсутствует"
      End If

   Case Else
      sResult = ""

End SELECT

content = sResult

Set fso=nothing
Set f1=nothing
Set f2=nothing

'relpath.vbs - Show relative path to file in the Branch view (Ctrl+B)
'Script for Script Content Plugin (c)Lev Freidin, 2005
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
Dim fso, f, tcs

Set fso = CreateObject("Scripting.FileSystemObject")
Set tcs = CreateObject("TCScript.Helper")

f = tcs.GetSrcPath
relpath = left(filename, len(filename) - len(fso.GetFileName(filename)))
relpath = Mid(relpath, Len(f)+1)
content = relpath

Set fso=nothing
Set tcs=nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set oTextStream = fso.OpenTextFile(filename)

If not oTextStream.AtEndOfStream Then
  s = oTextStream.ReadLine
  Pos1 = InStr(1, s, """")
  Pos2 = InStrRev(s, """")
  If (Pos1 > 0) and (Pos2 > Pos1) Then
    content = Mid(s, Pos1 + 1, Pos2 - Pos1 - 1)
  Else
    content = "not found"
  End If
End If

oTextStream.Close

Script=My_Script.vbs 1

Script=My_Script.vbs
Params=1 2 3 4

Script=My_Script.vbs
Param1=1
Param2=2
Param3=3
Param4=4

'============================
' Колонка Result будет возвращать признак наличия файла\каталога в указанном файле-списке:
'   0 - файл\каталог НЕ найден; 1 - файл\каталог найден
'=== Изменяемые параметры ===
Const FileList = "C:\FileList.txt" 'Файл-список
'============================

Dim FSO
Const ForReading = 1
content = Result
Set FSO = Nothing

Function Result
  Dim List, dlm
  Result = 0
  Set FSO = CreateObject("Scripting.FileSystemObject")
  If Not FSO.FileExists(FileList) Then
    Exit Function
  End If
 
  On Error Resume Next
  List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
  If Err.Number <> 0 Then
    Exit Function
  End If
  On Error GoTo 0
 
  dlm = vbNewLine
  If InStr(1, dlm & List & dlm, dlm & filename & dlm, vbTextCompare) > 0 Then
    Result = 1
  End If
End Function

'signatur.vbs by ricobautsch
'edited by Anger 29.04.2010

'Script for Script Content Plugin (c)Lev Freidin, 2005
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
'
'Этот скрипт показывает 11 байт файла (nCharCnt=11) начиная с начала (nCharStart=0) в hex
'и тектовом представлении - может быть полезен для поиска файлов с определенной сигнатурой
'Возвращаемые параметры: Result=HEX, Result1=Text

const nCharStart = 0
const nCharCnt = 11

Set fso = CreateObject("Scripting.FileSystemObject")
Set oTextStream = fso.OpenTextFile(filename)

oTextStream.Skip(nCharStart)
If not oTextStream.AtEndOfStream Then
  content_str = oTextStream.Read(nCharCnt)

' Выводим Text в result1
  content1=Replace(content_str,Chr(0),Chr(1))

' Выводим HEX в result
    For i=1 To Len(content_str)
      If content <> "" Then
        content = content & " "
      End If
     
      hex_value = Hex(Asc(Mid(content_str,i,1)))
     
      content = content & string(2 - len(hex_value), "0")
      content = content & hex_value
    Next
'Else
'  content="EOF"
'  content1="EOF"
End If

oTextStream.Close

[Searches]
Video по содержимому > 500 кБ_SearchFor=
Video по содержимому > 500 кБ_SearchIn=
Video по содержимому > 500 кБ_SearchText=
Video по содержимому > 500 кБ_SearchFlags=0|000002000020|||||1|500|1||0000|
Video по содержимому > 500 кБ_plugin=script.Result1 contains FLV | script.Result1 contains mp4 | script.Result1 contains 3gp | script.Result1 contains AVI

content.Add "Новая колонка", "Результат"

content.Add "Defaults", "Результат 1"
content.Add "Extension", "Результат 2"
content.Add "AddZeros", "Результат 3"
content.Add "exe-arc up", "Результат 4"
content.Add "js", "Результат 5"

'=================================================
' Колонка Result возвращает владельца файла\папки
'=================================================

content = Result

Function Result
  On Error Resume Next
  Dim wmiSecSettings 'WMI объект для параметров безопасности
  Dim wmiSecurityDescriptor 'Дескриптор защиты файла

  Dim FOResult 'Результат выполнения операции чтения дескриптора безопасности
  Dim wmiOwner 'Объект владельца файла

  Set wmiSecSettings = GetObject ("winmgmts:Win32_LogicalFileSecuritySetting.path='" & filename & "'") 'Создание WMI объекта файла

  FOResult = wmiSecSettings.GetSecurityDescriptor(wmiSecurityDescriptor) 'Считывание дескриптора безопасности
  Set wmiOwner = wmiSecurityDescriptor.Owner 'Создание объекта владельца файла

  If Err.Number <> 0 Then 'Ошибка при определении владельца файла
    Result = "Can't get file owner. Error: " & Err.Description
  Else 'Владелец файла определен - вывод результата
    Result = wmiOwner.Domain & "\" & wmiOwner.Name
  End If
End Function

uses Windows;

function GetModuleFileNameStr: String;
 var
   buffer : array [0..MAX_PATH] of Char;
 begin
   GetModuleFileName( Hinstance, buffer, MAX_PATH);
   Result := buffer;
 end;

iniPath := ExtractFilePath(GetModuleFileNameStr);

<br />Номер SIM-карты: 00000000000000000000</td>

'====================================================
' Колонка Result возвращает "Номер SIM-карты"
'====================================================

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading  = 1
Const ReadingLine = 61

On Error Resume Next
Select Case LCase(FSO.GetExtensionName(filename))
  Case "html"
    content = FromHtml(filename)
  Case "xml"
    content = FromXml (filename)
  Case "xls"
    content = FromXls (filename)
  Case Else
    content = ""
End Select
If Err.Number <> 0 Then content = ""
On Error GoTo 0

Set FSO = Nothing

Function FromHtml(pFile)
  Dim i
  FromHtml = ""
  With FSO.OpenTextFile(pFile, ForReading)
    i = 1
    Do While Not .AtEndOfStream
      If i < ReadingLine Then
        .SkipLine
        i = i + 1
      Else
        FromHtml = Mid(.ReadLine, 24, 20)
        Exit Do
      End If
    Loop
    .Close
  End With
End Function

Function FromXml(pFile)
  FromXml = ""
  'Задача пока не формализована
'  With FSO.OpenTextFile(pFile, ForReading)
'    Do While Not .AtEndOfStream
'      .SkipLine
'    Loop
'    .Close
'  End With
End Function

Function FromXls(pFile)
  FromXls = ""
  With CreateObject("Excel.Application")
    .Workbooks.Open pFile, null, True
    On Error Resume Next
    FromXls = .Cells(5,3).Value
    On Error GoTo 0
    .Quit
  End With
End Function

FromHtml = Mid(.ReadLine, 34, 20)

Dim FSO, objFolder, objShellApp, objItem
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = CreateObject("Shell.Application").NameSpace(FSO.GetParentFolderName(FileName))
Set objItem = objFolder.ParseName(FSO.GetFileName(FileName))
Content = objFolder.GetDetailsOf(objItem, 25)

LongName=1

'====================================================
' Колонка Result  возвращает "Номер Sim-карты"
' Колонка Result1 возвращает имя владельца Sim-карты
'====================================================

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading  = 1

On Error Resume Next
Select Case LCase(FSO.GetExtensionName(filename))
  Case "html"
    content = FromHtml(filename)
  Case "xml"
    content = FromXml (filename)
  Case "xls"
    content = FromXls (filename)
  Case Else
    content = ""
End Select
If Err.Number <> 0 Then content = ""
If content <> "" Then content1 = GetName(content)
If Err.Number <> 0 Then content1 = ""
On Error GoTo 0

Set FSO = Nothing

Function FromHtml(pFile)
  Dim P, P1, Text
  Const Str = "Номер SIM-карты:"
  FromHtml = ""
  With FSO.OpenTextFile(pFile, ForReading)
    Text = .ReadAll
    .Close
  End With
  P = InStr(1, Text, Str, 1)
    FromHtml = P
  If P > 0 Then
    P1 = InStr(P + Len(Str), Text, "<")
    If P1 > 0 Then FromHtml = Trim(Mid(Text, P + Len(Str), P1 - P - Len(Str)))
  End If
End Function

Function FromXml(pFile)
  FromXml = ""
  'Задача пока не формализована
'  With FSO.OpenTextFile(pFile, ForReading)
'    Do While Not .AtEndOfStream
'      .SkipLine
'    Loop
'    .Close
'  End With
End Function

Function FromXls(pFile)
  FromXls = ""
  With CreateObject("Excel.Application")
    .Workbooks.Open pFile, null, True
    On Error Resume Next
    FromXls = .Cells(5,3).Value
    On Error GoTo 0
    .Quit
  End With
End Function

Function GetName(pSim)
  Const NamesFile = "D:\work\номера_сим-карт.xls"
  Const ColSim    = 3 'Номер столбца с номерами
  Const ColName   = 2 'Номер столбца с именами
  Const Row       = 2 'Номер начальной строки
  GetName = ""
  Dim i, Sim
  i = Row
  With CreateObject("Excel.Application")
    .Workbooks.Open NamesFile, null, True
    On Error Resume Next
    Do
      Sim = .Cells(i,ColSim).Value
      If Sim = pSim Then
        GetName = .Cells(i,ColName).Value
        Exit Do
      End If
      i = i + 1
      If Err.Number <> 0 Then Exit Do
    Loop Until Sim = ""
    On Error GoTo 0
    .Quit
  End With
End Function

const nCharStart = 24
const nCharCnt = 5

Set fso = CreateObject("Scripting.FileSystemObject")
Set oTextStream = fso.OpenTextFile(filename)

oTextStream.Skip(nCharStart)
If not oTextStream.AtEndOfStream Then
  content_str = oTextStream.Read(nCharCnt)

  content=Replace(content_str,Chr(0),Chr(1))

End If
oTextStream.Close

Option Explicit

Dim strFileName
Dim intByteCount

Dim objFSO
Dim objSpeechFileStream

Dim lngLength
Dim arrBuff


strFileName  = "C:\WINDOWS\notepad.exe"
intByteCount = 2

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objSpeechFileStream = WScript.CreateObject("SAPI.SpFileStream")

If objFSO.FileExists(strFileName) Then
   lngLength = objFSO.GetFile(strFileName).Size
   
   With objSpeechFileStream
      .Open strFileName
      
      On Error Resume Next
      
      .Seek lngLength - intByteCount
      
      If Err.Number = 0 Then
         On Error Goto 0
         
         If .Read(arrBuff, intByteCount) = intByteCount Then
            WScript.Echo ConvertByteArray2HexString(arrBuff)
         End If
      Else
         On Error Goto 0
      End If
      
      .Close
   End With
Else
   ' Nothing to output
End If

WScript.Quit 0

'=============================================================================
Function ConvertByteArray2HexString(arrByteArray)
   Dim i
   Dim strValue
   
   strValue = ""
   
   For i = 1 To LenB(arrByteArray)
      strValue = strValue & Right("00" & Hex(AscB(MidB(arrByteArray, i, 1))), 2)
   Next
   
   ConvertByteArray2HexString = strValue
End Function
'=============================================================================

With CreateObject("SAPI.SpFileStream")
  .Open FileName
  .Seek CreateObject("Scripting.FileSystemObject").GetFile(FileName).Size - 2
  If .Read(F, 2) = 2 Then
    For i = 1 To LenB(F)
      Content = Content & Right("00" & Hex(AscB(MidB(F, i, 1))), 2)
    Next
  End If
  .Close
End With

...
For i = 1 To LenB(BinaryFile)
   If AscB(MidB(BinaryFile, i, 1)) = 255 Then If AscB(MidB(BinaryFile, i+1, 1)) = 196 Then Exit For
DHT=i '(или DHT=i-2) лень думать
...

BN = LCase(CreateObject("Scripting.FileSystemObject").GetBaseName(FileName))
i = InStrRev(BN, "_")
y = Mid(BN, i + 1)
If i > 0 And IsNumeric(y) Then content = y

[Script]

Section=BaseNameRev

[BaseNameRev]
Script=BaseNameRev.vbs

'Script for Script Content Plugin
'(c)Lev Freidin, 2005-2008

'Show Android APK file info
'Script Autor - Dreamer...

'It's my first vbs :)

Dim fso, sExt, ts, s, re, f, oExec, WshShell, tmp, tt, fnd
Set fso = CreateObject("Scripting.FileSystemObject")
sExt = lcase(fso.GetExtensionName(filename))
Const ForReading = 1

Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = True

'-------TEST ZONE---------
'f = "d:\Android\Games\Стрелять\com.gamelab3d.vampireadventuresbl_1_1.0.0.apk"
'-----TEST ZONE END-------

Select Case sExt
case "apk"


Set f = fso.GetFile(filename)
Fn = fso.GetFileName(Chr(34) & f & Chr(34))

'-------Check if db file not exist----------------
If (fso.FileExists("ApkList.txt")) Then
     
   Else
Set Nfile = FSO.CreateTextFile("ApkList.txt")
Nfile.Close
End If

list = "ApkList.txt"
Set ts = fso.OpenTextFile(list, ForReading)
Do Until ts.AtEndOfStream
s = ts.readLine
Loop
'-----------Check Filename in db-----------------
Fnd = inStr(s, Fn)
If Fnd = 0 Then
'----------------If not in db---------------------
ts.Close
strPath = "C:\Temp"
strFileName = fso.GetTempName
strFullName = fso.BuildPath(strPath, strFileName)

Set WshShell = CreateObject("WScript.Shell")
oExec = WshShell.Run("cmd /C aapt d badging " & Chr(34) & f & Chr(34) & " >" & strFullName, 0, True)

Set tmp = fso.OpenTextFile(strFullName, ForReading)
Do Until tmp.AtEndOfStream
fStr = tmp.readAll
Loop

'-------PETRARKAAAAAAAAA------------

'--------Application Name---------------
re.Pattern = "application: label='(.*)' "
if re.Test(fStr) then
Set tt = re.Execute(fStr)
ApkName = re.replace (tt(0),"$1")
End If
'--------Application Version---------------
re.Pattern = "versionName='(.*)'"
if re.Test(fStr) then
Set tt = re.Execute(fStr)
Vers = re.replace (tt(0),"$1")
End If
'--------Android version---------------
re.Pattern = "sdkVersion:'(.*)'"
if re.Test(fStr) then
Set tt = re.Execute(fStr)
Pack = re.replace (tt(0),"$1")
If Pack = "16" Then
Andr = "Android 4.1.x"
End If
If Pack = "15" Then
Andr = "Android 4.0.3"
End If
If Pack = "14" Then
Andr = "Android 4.0"
End If
If Pack = "13" Then
Andr = "Android 3.2"
End If
If Pack = "12" Then
Andr = "Android 3.1.x"
End If
If Pack = "11" Then
Andr = "Android 3.0.x"
End If
If Pack = "10" Then
Andr = "Android 2.3.3"
End If
If Pack = "9" Then
Andr = "Android 2.3.0-2"
End If
If Pack = "8" Then
Andr = "Android 2.2.x"
End If
If Pack = "7" Then
Andr = "Android 2.1.x"
End If
If Pack = "6" Then
Andr = "Android 2.0.1"
End If
If Pack = "5" Then
Andr = "Android 2.0"
End If
If Pack = "4" Then
Andr = "Android 1.6"
End If
If Pack = "3" Then
Andr = "Android 1.5"
End If
If Pack = "2" Then
Andr = "Android 1.1"
End If
If Pack = "1" Then
Andr = "Android 1.0"
End If
If Pack = "10000" Then
Andr = "Current Dev. Build"
End If
Else
Andr = "Unknown"
End If
'--------ARM v7---------------
re.Pattern = " 'armeabi-(.*)'"
if re.Test(fStr) then
Set tt = re.Execute(fStr)
VArm = re.replace (tt(0),"$1")
Arm7 = " arm" & VArm
End if
'--------ARM v6---------------
re.Pattern = " 'armeabi'(.*)"
if re.Test(fStr) then
Set tt = re.Execute(fStr)
VArm = re.replace (tt(0),"$1")
Arm6 = " armv6"
End If
'-----------STOP PETRAAARKAAA---------------------
'--------------Write to ApkList db-----------------------
Const ForAppending = 8
Set ts2 = fso.OpenTextFile(list, ForAppending, true)
Line = Fn & " ------- " & "<name>" & ApkName & " v." & Vers & "</name> ------- <misc>" & Andr & " " & Arm6 & " " & Arm7 & "</misc>"
'Wscript.Echo Line
LineWright = ts2.WriteLine(Line)
tmp.Close
fso.DeleteFile(strFullName)
ts2.Close
End If

'-------------Read from db function----------------------

Set ts = fso.OpenTextFile(list, ForReading)
Do Until ts.AtEndOfStream
s = ts.readLine
Loop
re.Pattern = "<name>(.*)</name>"
if re.Test(s) then
Set tt = re.Execute(s)
ApkNV = re.replace (tt(0),"$1")
End If
re.Pattern = "<misc>(.*)</misc>"
if re.Test(s) then
Set tt = re.Execute(s)
Andr = re.replace (tt(0),"$1")
End If
content= ApkNV
content1= Andr
'-------TEST ZONE---------
'Wscript.Echo ApkNV & Andr
'-----TEST ZONE END-------
ts.Close

End Select

Content=filename;

Content=/\\/.test(filename);

'var filename = "' + filename + '";'

Set SC = CreateObject("ScriptControl")
SC.Language = "JScript"
SC.AddCode("function FA(e){return(e);}")
content=SC.Run("FA",filename)

Dim FS, SC, SH, TS
Set FS           = CreateObject("Scripting.FileSystemObject")
Set SH          = CreateObject("WScript.Shell")
TC                = SH.ExpandEnvironmentStrings("%COMMANDER_PATH%")
Set TS           = FS.OpenTextFile(TC & "\PlugIns\wdx\script\test.js")
TX                = TS.ReadAll()
Set SC          = CreateObject("MSScriptControl.ScriptControl")
SC.Language = "JScript"
SC.AllowUI    = false
SC.AddCode(TX)
TS.Close()
Set TS           = Nothing
content          = SC.Run("FA", filename, FS, SH)
Set SH          = Nothing
Set FS           = Nothing
Set SC          = Nothing

function FA(e,f,s){
  var u=f.getBaseName(e);
  return(u);
}

script.ini
[param2]
Script=param2.vbs
parameter=a|b|c|d

'param2.vbs
cont=Split(parameter,"|")
Content=cont(0)
Content1=cont(1)

var
 a=new ActiveXObject('Shell.Application'),
 f=new ActiveXObject('Scripting.FileSystemObject'),
 n=a.NameSpace(f.getParentFolderName(filename));

Content=fb(fa(filename));

function fa(e){return(f.getFileName(n.ParseName(f.getFileName(e)).path));}
function fb(e){return(/[^а-яё\x01-\xFF]/i.test(e));}

Content=filename;

n=a.NameSpace(filename).Self.Path;

var
 WSH   = new ActiveXObject("WSCript.Shell"),
 Shell = new ActiveXObject('Shell.Application');

Content=fb(Shell.NameSpace(WSH.CurrentDirectory & "\\").ParseName(filename).Name);
function fb(e){return(/[^а-яё\x01-\xFF]/i.test(e));}

var   // проверяем на юникодность имена файлов, переданных короткими (8.3) именами
 a=new ActiveXObject('Shell.Application'),
 c=new ActiveXObject('MSScriptControl.ScriptControl'),
 f=new ActiveXObject('Scripting.FileSystemObject'),
 n=a.NameSpace(f.getParentFolderName(filename));

c.language='VBScript';
c.allowUI=false;
c.addCode(
'Function FC(E)\n'+
'  FC = ""\n'+
'  For i = 1 to Len(E)\n'+
'    FC = FC & Chr(Asc(mid(E,i,1)))\n'+
'  Next\n'+
'End Function\n'
);

Content=fb(fa(filename));

function fa(e){return(n.ParseName(f.getFileName(e)).path);}
function fb(e){var u=c.run('fc',e);return(f.fileExists(u)||f.folderExists(u));}

Content=1;

Content = "Нет"
For i = 1 to Len(FileName)
  If Chr(Asc(Mid(FileName, i, 1))) = "?" Then
    Content = "Да" : Exit For
  End If
Next

Content = CreateObject("Shell.Application").NameSpace(CreateObject("WScript.Shell").CurrentDirectory).ParseName(filename).Name

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html>
<html>
<head>
  <title>Переключатель Script.wdx</title>
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
  <meta http-equiv="X-UA-Compatible" content="IE=8" />
  <script type="text/jscript" language="JScript">
    self.resizeTo(400,200);
    self.moveTo(200,100);
  </script>
  <hta:application
   applicationName="WDXScriptSwitcher-II"
   border="thin"
   icon="%SystemRoot%/system32/scrobj.dll"
   id="HTApp"
   innerBorder="no"
   maximizeButton="no"
   minimizeButton="no"
   selection="no"
   singleInstance="yes"
   version="0.2"
   />
  <style type="text/css">
   *{color:navy;font:normal 14px/16px Arial;margin:0;padding:0;}
   p{cursor:hand;padding:5px 10px;}
   p:hover{background-color:yellow;}

  </style>
</head>
<script type="text/jscript" language="JScript">
  var
   a=[],
   f=new ActiveXObject('Scripting.FileSystemObject'),
   o=HTApp.commandLine.replace(/^"|[^\\]+$/g,'')+'script.ini',p,q,r,s,t;

  s=f.openTextFile(o);
  t=s.readAll();
  s.close();
  q=t.match(/Section\=[^\n\r]+/)[0].split('=')[1];
  a=t.match(/\[\w+\](\s*;\s*[^\n\r]*)?/g);
  for(var i=0;i<a.length;i++){
    r=a[i].split(/\s*;\s*/);
    if(r[0]!='[Script]'){
      p=document.createElement('P');
      p.comment=r[0].replace(/^\[|\]$/g,'');
      p.innerHTML='•&emsp;'+(r.length>1?r[1]:r[0]);
      p.attachEvent('onclick',fa);
      if(p.comment==q)p.style.fontWeight='bold';
      document.documentElement.appendChild(p);
    }
  }

  function fa(e){
    self.resizeTo(0,0);
    self.moveTo(-100,-100);
    var u,v;
    t=t.replace(/Section\=[^\n\r]+/,'Section='+f.getFileName(e.srcElement.comment));
    s=f.openTextFile('script.ini',2);
    s.write(t);
    s.close();
    try{
      with(new ActiveXObject('WScript.Shell'))
       run(
        expandEnvironmentStrings('%COMMANDER_PATH%\\PlugIns\\util\\tccp.exe')+' 540',
        0,
        true
       );
    }catch(e){}
    window.close();
  }
</script>
</html>

[eng]
Result=ColumnName

[rus]
Result=ИмяКолонки

---------------------------
Crash in plugin script.wdx:
External exception EEDFADE
---------------------------
+
---------------------------
Crash in plugin script.wdx:
Access violation at address 03AA239C. Read of address AFF60B25
---------------------------

версия 0.2 - тестовая версия, для проверки работы более чем с одной колонкой

'...
content  = Result
content1 = Result1
content2 = Result2
'...

Function Result
'...
End Function

Function Result1
'...
End Function

Function Result2
'...
End Function

For i = 0 To 9
 If Content(i) = 1 Then Exit For
Next
Execute CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell")._
Environment("Process")("COMMANDER_PATH") & "\Plugins\wdx\Script\Name_" & i & ".vbs").ReadAll

with CreateObject("Scripting.FileSystemObject")
   Content = FormatNumber(.GetFile(filename).size / 1073741824, 2)
end with

With CreateObject("Shell.Application").NameSpace(CreateObject("Wscript.Shell").CurrentDirectory)
  Content = .GetDetailsOf(.ParseName(FileName), 1)
End With

[Script]
Section=SolidFileVersion
[SolidFileVersion]
Script=SolidWorksFile_Version.vbs

<meta charset="кодировка"
<meta http-equiv="Content-Type" content="text/html; charset=кодировка"