Do While MyKey
  ...
Loop

Do While MyKey
  ...
прочитать MyKey из файла
Loop

Do While MyKey
counter=counter+1
  ...
if counter=мульён then
counter=0
прочитать MyKey из отведенного места
end if
Loop

WScript.Sleep 200

//JScript
var WshShell = WScript.CreateObject("WScript.Shell");
var Str;
KL = true;
Str = "THE MATRIX HAS YOU..." //Печатаемая строка
while (KL) {
  if (WshShell.AppActivate("Microsoft Word")) { //Проверка заголовока активного окна
  WriteWord("^+P36~"); //Установить размер шрифта 36 пт
  WriteWord("^B");     //Включить полужирное начертание
  for (i=0;i<=Str.length;i++)
    {
    WriteWord(Str.substring(i,i+1));
    }
  }
  KL = false;
  WScript.Sleep(10000);
}

function WriteWord(varWord) {
  WshShell.SendKeys(varWord);
  WScript.Sleep(300);
}

Set FSO = CreateObject("Scripting.FileSystemObject")
Set OS  = CreateObject("Shell.Application")

var WSH_Shell = WScript.CreateObject("WScript.Shell");
var SysPath = WSH_Shell.ExpandEnvironmentStrings("%WinDir%") + "\\system32";
WSH_Shell.Run(SysPath+'\\Rundll32.exe shell32,ShellExecuteA 0,"","","'+SysPath+'\\calc.exe","","",5');

Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.About
Set TCS = Nothing

var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run("calc.exe");

var WSH_Shell = WScript.CreateObject("WScript.Shell");
WSH_Shell.Run('Rundll32.exe user32.dll,MessageBoxA "API-функция: MessageBoxA"', 0x40)

Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SetTextToClip ("фыва")
msgbox TCS.GetTextFromClip

'==================================================================
' Поиск и замена строк в выделенных файлах в TC с помощью EmEditor

' В параметрах вызова из TC должно быть прописано:
' %L
'
' Ниже задайте правильный путь к EmEditor
'==================================================================

Dim Editor
'-------- Путь к EmEditor -----------------------
Editor = "d:\Program Files\EmEditor\emeditor.exe"
'------------------------------------------------

Dim WS, FSO, StreamFile, Find_String, Replace_String, Current_File, MsgBut
Set WS = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

Find_String = InputBox("Введите искомую строку", "Поиск и замена")
if Len(Find_String) = 0 then
 MsgBut = MsgBox("Не задана строка для поиска!", vbOKOnly + vbExclamation, "Поиск и замена")
 WScript.Quit()
End if
Replace_String = InputBox("Введите строку для замены", "Поиск и замена")

Do While Not StreamFile.AtEndOfStream
 Current_File = StreamFile.ReadLine
 WS.Run """" & Editor & """ /fc """ & Find_String & """ """ & Current_File & """ /rw """ & Replace_String & """"
Loop

StreamFile.Close
Set WS = Nothing
Set FSO = Nothing
Set StreamFile = Nothing
Wscript.Quit

TOTALCMD#BAR#DATA
d:\WHS\ReplaceInFiles.vbs
%L
shell32.dll,22
Поиск и замена в файлах


-1

'**************************************************
' File:    ReplaceTxt.vbs (WSH sample in VBScript)
' Author:  (c) G. Born, Batya, Zergal
'
' Что-то меняет в Ваших файлах
' УРА - Никакого бэкапа!!!
'**************************************************
Option Explicit
Dim WS, FSO2, StreamFile, Find_String, Replace_String, Current_File, MsgBut
Set WS = WScript.CreateObject("WScript.Shell")
Set FSO2 = CreateObject("Scripting.FileSystemObject")

Set StreamFile = FSO2.OpenTextFile(WScript.Arguments(0), 1)

Find_String = InputBox("Введите искомую строку", "Поиск и замена")
if Len(Find_String) = 0 then
 MsgBut = MsgBox("Не задана строка для поиска!", vbOKOnly + vbExclamation, "Поиск и замена")
 WScript.Quit()
End if
Replace_String = InputBox("Введите строку для замены", "Поиск и замена")


      ' We must define ForWriting because the
      ' iomode constants are unknown to VBScript.
      Const ForWriting = 2              ' iomode: write access

'      Const inF = "TestFile.txt"
'      Const outF = "TestFile1.txt"

Do While Not StreamFile.AtEndOfStream


      ' Here are the strings for replacement.

      Dim Text
      Dim fso, oFile                 ' Object variable
      Dim oFileIn, oFileOut   ' Text stream
      Dim path, fileIn, fileOut

      path = StreamFile.ReadLine         ' Retrieve current path to script.
      fileIn = path    ' Create filenames.
      fileOut = left(path, len(path)-4) & "_" & right(path,4)

      ' Create a FileSystemObject object to access the file system.
      Set fso = CreateObject("Scripting.FileSystemObject")

      If Not fso.FileExists(fileIn) Then  ' Input file exists?
          WScript.Echo "File '" & fileIn & "' not found"
          WScript.Quit 1
      End If

      ' Input file present; open file and create output file.
      Set oFileIn = fso.OpenTextFile(fileIn)   ' Open input file.
      Set oFileOut = fso.OpenTextFile(fileOut, _
                          ForWriting, True)    ' Open output file.

      Do While Not (oFileIn.atEndOfStream)
          Text = oFileIn.ReadLine              ' Read a line.
          Text = Filter(Text, Find_String, Replace_String)
          oFileOut.WriteLine Text              ' Write text.
      Loop
      oFileOut.Close
      oFileIn.Close
      fso.DeleteFile FileIn
      Set oFile = fso.GetFile(fileOut) 
      oFile.move FileIn
      Set oFileOut = nothing
      Set oFileIn = nothing
Loop
Function GetPath
    ' Retrieve the script path.
    Dim path
    path = WScript.ScriptFullName  ' Script name
    GetPath = Left(path, InStrRev(path, "\"))
End Function

Function Filter(txt, expr1, expr2)
    ' Replace expr1 with expr2 in text.
    Dim oReg

    Set oReg = New RegExp        ' Create regular expression.
    oReg.Global = True           ' All matches
    oReg.IgnoreCase = True       ' Make case-insensitive.

    ' Replace all expr1 with expr2.
    oReg.Pattern = expr1          ' Set pattern.
    Filter = oReg.Replace(txt, expr2)
End Function

'*** End

'=========================[ Start of file ]=========================
'  File:         ReplaceInFiles.vbs
'  Description:  Производит поиск текста с заменой
'                в выделенных текстовых файлах     
'  Installation: Создайте кнопку на панели TC
'                Команда: "диск:\путь\к\файлу\ReplaceInFiles.vbs"
'                Параметры: "%L"
'  Copyright:    (c) 2006-2008, Volniy

Option Explicit

Dim FSO, Find_String, Replace_String, F, Buffer, ListFile, Found
Const ForReading = 1, ForWriting = 2

Set FSO = CreateObject("Scripting.FileSystemObject")

Find_String = InputBox("Введите искомую строку", "Поиск и замена")
If Len(Find_String) = 0 Then
   MsgBox "Не задана строка поиска!", vbExclamation, "Поиск и замена"
   WScript.Quit()
End If

Replace_String = InputBox("Введите строку для замены", "Поиск и замена")

Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not ListFile.AtEndOfStream
   Call DoItForThisFile(ListFile.ReadLine)
Loop
ListFile.Close
Set ListFile = Nothing
Set F = Nothing
Set FSO = Nothing

MsgBox "Поиск с заменой завершен!", vbInformation, "Поиск и замена"
WScript.Quit

Sub DoItForThisFile(FilePath)
   Set F = FSO.OpenTextFile(FilePath, ForReading)
   Buffer = F.ReadAll
   F.Close
   Found = InStr(1, Buffer, Find_String, 1)
   If Found <> 0 Then
     Buffer = Replace(CStr(Buffer), Find_String, Replace_String,1,-1,1)
     'FSO.CopyFile FilePath, FilePath & ".bak"
     Set F = FSO.OpenTextFile(FilePath, ForWriting)
     F.Write Buffer
     F.Close
   End If
End Sub
'=========================[  End of file  ]=========================

/* ====================================
   Подсчет количества выделенных файлов
   Параметры вызова из TC:
   %L
==================================== */
var objArgs, FSO, TextFile, i = 0;
objArgs = WScript.Arguments;
FSO = new ActiveXObject("Scripting.FileSystemObject");
TextFile = FSO.OpenTextFile(objArgs(0));
while (!TextFile.AtEndOfStream)
{
  i++;
  TextFile.SkipLine();
}
TextFile.Close();
WScript.Echo("Выделено " + i + " файлов");

// KoS Скрипт первый
// Ставим wallpaper, который имеет рейтинг более трех включительно
// Файлы имеют вид: 4 Cat.jpg или 5 Abstract.bmp

//--------------------------------------------------------
//Открываем временно новую вкладку. Потом, в конце, мы ее закроем.
//Обои лежат в папке, которая вызывается из Favorites: ctrl+d f w

var xxx = WScript.CreateObject("WScript.Shell");

xxx.SendKeys("^{t}");
xxx.SendKeys("^{d}");
xxx.SendKeys("{f}");
xxx.SendKeys("{w}");
xxx.SendKeys("^{b}");
  WScript.Sleep(300);
 
// Устанавливаем фильтр по ctrl+F12
// Там условие следующее: [345] (.*).(jpg|bmp)
// В меню выбора он вызывается >345
xxx.SendKeys("^{F12}"); 
xxx.SendKeys(">");
xxx.SendKeys("345");
xxx.SendKeys("{ENTER}");

xxx.SendKeys("^{a}"); // Выделяем все файлы

xxx.SendKeys("^%{F1}"); // Запускаем другой скрипт, который висит в меню "Запуск" на ctrl+alt+F1

/* ====================================Batya
   Подсчет количества выделенных файлов
   Параметры вызова из TC: %L
==================================== */
var objArgs, FSO, TextFile, p = 0;
objArgs = WScript.Arguments;
FSO = new ActiveXObject("Scripting.FileSystemObject");
TextFile = FSO.OpenTextFile(objArgs(0));
while (!TextFile.AtEndOfStream)
{
  p++;
  TextFile.SkipLine();
}
TextFile.Close();


//===============================================KoS

var xxx = WScript.CreateObject("WScript.Shell");


var r = Math.random()
for (var i = 1; i <= r * p; i++)
xxx.SendKeys("{DOWN}");

xxx.SendKeys("^%{F2}"); //пришлось установить команду "снять все выделение" на дополнительную комбинацию клавиш: ctrl+alt+F2, потому что в скрипте почему-то не работали ни ctrl+Num-, ни Num*
//Может, я их не правильно записывал, может для Num нужно что-то особенное

xxx.SendKeys("{F3}");
  WScript.Sleep(100);
xxx.SendKeys("+{e}"); // у меня на просмотр картинок стоит "sgviewer"
  WScript.Sleep(100);
xxx.SendKeys("{ESC}");
xxx.SendKeys("^{F10}");
xxx.SendKeys("^{w}"); // закрываем вкладку
WScript.Sleep(100);

var objArgs, FSO, MyPictures, PicturesRank, FileArray = new Array( ), r, Irfan, WshShell;
// ============= Задайте каталог картинок ===============
MyPictures = "c:\\MyPictures\\Collection";
// ============== Задайте путь IrfanView ================
Irfan = '"D:\\Program Files\\IrfanView\\i_view32.exe"'
// ======================================================

// === Минимальное желаемое качество картинок ===
objArgs = WScript.Arguments;
if (objArgs.length == 0)
  PicturesRank = 5;
else
  PicturesRank = objArgs(0);
 
FSO = new ActiveXObject("Scripting.FileSystemObject");
ToProcess(MyPictures);

r = Math.round(Math.random() * FileArray.length);
WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run(Irfan + " " + FileArray[r] + " /wall=2 /killmesoftly");

function ToProcess(FolderPath)
{
  var ParentFolder, FilesCollection, FoldersCollection, FileName, FileExt;
  ParentFolder      = FSO.GetFolder(FolderPath);
  FilesCollection   = new Enumerator(ParentFolder.files);
  FoldersCollection = new Enumerator(ParentFolder.SubFolders);

  // === Обработаем вложенные файлы ===
  for (; !FilesCollection.atEnd(); FilesCollection.moveNext())
  {
    FileName = FilesCollection.item().Name;
    FileExt  = FSO.GetExtensionName(FilesCollection.item()).toLowerCase( );
    // === Условие отбора картинок ===
    if ((FileName.substr(0, 1) >= PicturesRank) && ((FileExt == "jpg") || (FileExt == "bmp")))
    {
      FileArray = FileArray.concat(FilesCollection.item());
    }
  }
  // === Обработаем вложенные папки ===
  for (; !FoldersCollection.atEnd(); FoldersCollection.moveNext())
  {
    ToProcess(FoldersCollection.item());
  }
}

'=========================[ Start of file ]===================
'  File:         Separators.vbs
'  Description:  Производит переключение между 3-мя любыми
'                позициями разделителя панелей ТС
'  Installation: Создайте новую команду в меню Запуск TC
'                Команда: "диск:\путь\к\файлу\Separators.vbs"
'                Назначьте на нее горячую клавишу
'  Copyright:    (c) 2006, Volniy

Option Explicit
Dim TCS
Const Pos1=85, Pos2=15, Pos3=50

Set TCS = CreateObject("TCScript.Helper")

TCS.LockTC True

If TCS.Separator < 0 Or TCS.Separator > 100 Then
   TCS.SendCommand "cm_50Percent", True
End If

Select Case CInt(TCS.Separator)
Case (Pos2 - 1), Pos2, (Pos2 + 1)
   TCS.Separator = Pos3
Case (Pos3 - 1), Pos3, (Pos3 + 1)
   TCS.Separator = Pos1
Case (Pos1 - 1), Pos1, (Pos1 + 1)
   TCS.Separator = Pos2
Case Else
   TCS.Separator = Pos3
End Select

TCS.LockTC False
Set TCS = Nothing
Wscript.Quit()
'=========================[  End of file  ]===================

SendMessage(TCMainHwnd, 1075, cmdnumber,  0)

regsvr32 vbscript.dll

'=========================[ Start of file ]===================
'  File:         EraseCDRW.vbs
'  Description:  Производит очистку RW диска, используя
'                движок Nero версии 6 и выше
'  Installation: Создайте кнопку или команду в меню Запуск TC
'                Команда: "диск:\путь\к\файлу\EraseCDRW.vbs"
'                Если приводов у Вас два, то возможно, что
'                (0) понадобится заменить на (1)
'  Copyright:    (c) 2006, Volniy

Option Explicit
Dim n, d, et
Set n = CreateObject("Nero.Nero")
Set d = n.GetDrives(262172)(0)
d.LoadCD
et=d.CDRWErasingTime(True)
d.EraseCDRW(True)
WScript.Sleep et*1000
d.EjectCD
Set d=Nothing
Set n=Nothing
Wscript.Quit()
'=========================[  End of file  ]===================

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: GroupDescription.vbs
'
' AUTHOR: Artem Mayskii
' DATE  : 25.09.2006
'
' COMMENT: Групповое создание комментариев
'
'==========================================================================
Option Explicit

Dim TCS, CopyFClip, Sel, FSO, TextStream, Clip, Descript, Sp
Set TCS = CreateObject("TCScript.Helper")

Sp = " "
Descript = "Описание"
Sel = TCS.GetSrcSelectedFiles(-1)

TCS.SendCommand("cm_CopyNamesToClip")

Clip = TCS.GetTextFromClip

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TextStream = FSO.CreateTextFile("C:\descript.ion")

TextStream.WriteLine Clip & Descript

'****************************************************************
' Copyright (c) LA

' This script renames given in parameter file in accordance with
' the following logic:
'   filename.ext -> filename.[tag].ext
' and copies the result filename to clipboard.

'****************************************************************
' Version:

' 1.0 10 Jan 2007 - Initial release

'****************************************************************
' Parameters

 strTag = "[tag]"

'****************************************************************

' script arguments
Set objArgs = WScript.Arguments
' if argument (filename) is not given, then exit
If WScript.Arguments.Count <> 1 Then
  WScript.Quit
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")
' get file passed as first arguments to the script
Set objFile = objFSO.GetFile(objArgs(0))
' create new file name as path + filename + [tag] + extension
strNewName = objFSO.GetParentFolderName(objFile) & "\" & objFSO.GetBaseName(objFile) & "." & strTag & "." & objFSO.GetExtensionName(objFile)
objFSO.MoveFile objArgs(0), strNewName

' copy new file name to clipboard with IE usage
'Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate("about:blank")
'objIE.document.parentwindow.clipboardData.SetData "text", strNewName
'objIE.Quit

' copy new file name to clipboard by sending Ctrl+Shift+Ins
' refreshing panel before copying
WScript.CreateObject("WScript.Shell").SendKeys "^{R}"
WScript.Sleep(100)
WScript.CreateObject("WScript.Shell").SendKeys "^+{INSERT}"

' copy new file name to clipboard with TCHelper usage
'Set TCS = CreateObject("TCScript.Helper")
'TCS.cm_CopyNamesToClip

[em_configChangeIniFiles]
cmd=%COMMANDER_PATH%\Utils\WSH\em_configChangeIniFiles.js

MENUITEM "Р&едактировать файлы конфигурации", em_configChangeIniFiles

' File:         ZebraMark.vbs
' Description:  Помечает все файлы и каталоги через один.
' Requirements: WSH Helper for TC by Volniy
' Copyright:    (c) 2007, Volniy, aLexx

Option Explicit
Dim FSO, ListFile, SelFile, TCS
Dim File1, File2, Cnt, Buf
Const ForWriting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")

TCS.SendCommand ("cm_SelectAll")  'Выбрать всё
TCS.SendCommand ("cm_CopyFullNamesToClip")  'Копируем в буфер
Set ListFile = FSO.OpenTextFile("1.txt", ForWriting, True) 'Сохраняем в файл
ListFile.Write TCS.GetTextFromClip
ListFile.Close
Set ListFile = FSO.OpenTextFile("1.txt", 1)
Do While Not ListFile.AtEndOfStream
  SelFile = ListFile.ReadLine
  Cnt = Cnt + 1
  File2 = FSO.GetFileName(SelFile)
  If Cnt Mod 2 = 0 Then
     Buf = Buf & SelFile & vbNewLine
  End If
Loop
ListFile.Close
TCS.ClearClip
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True
FSO.DeleteFile("1.txt")

Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
MsgBox "Выделено ""зеброй"":): " & Cnt \ 2 & " файлов и каталогов.", vbInformation, "Завершено!"
WScript.Quit

' File:         ZebraMark-2.vbs
' Description:  Помечает все файлы и каталоги через один.
' Requirements: WSH Helper for TC by Volniy
' Copyright:    (c) 2007, Volniy, aLexx

Option Explicit
Dim List, TCS, Cnt, Buf
Set TCS = CreateObject("TCScript.Helper")

TCS.SendCommand ("cm_SelectAll")  'Выбрать всё
TCS.SendCommand ("cm_CopyFullNamesToClip")  'Копируем в буфер
List = Split(TCS.GetTextFromClip,vbNewLine) ' Получаем массив имен
For Cnt=LBound(List) To UBound(List)
  If Cnt Mod 2 = 1 Then
     Buf = Buf & List(Cnt) & vbNewLine
  End If
Next
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True

Set TCS = Nothing
MsgBox "Выделено ""зеброй"":): " & Cnt \ 2 & " файлов и каталогов.", vbInformation, "Завершено!"
WScript.Quit

' File:         SaveMark.vbs
' Description:  Сохраняет выделение в файл. Параметром идёт имя файла.
' Requirements: WSH Helper for TC by Volniy
' Copyright:    (c) 2007, aLexx

Option Explicit
Dim FSO, TCS, ListFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")

If WScript.Arguments.Count > 0 Then
  TCS.SendCommand ("cm_CopyFullNamesToClip")  'Копируем выделение в буфер
  Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 2, True) 'Сохраняем в файл
  ListFile.Write TCS.GetTextFromClip
  ListFile.Close
End If

Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
WScript.Quit

do
{
   nextFile=FilesList.Readline();

   var fFile=fso.GetFile(nextFile;

   fFile.Copy(path,false);
   WScript.Sleep(200);
}
while(!FilesList.atEndOfStream)

{
   nextFile=FilesList.Readline();
   fso.CopyFile (nextFile, path, false);
   WScript.Sleep(200);
}

var oShell = WScript.CreateObject("Shell.Application");

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace("C:\WINDOWS")
objFolder.CopyHere("C:\AUTOEXEC.BAT")

oIE.Document.ValidForm.fRemark.Value = "No remarks"

oIE.Document.GetElementByID("fRemark").Value = "No remarks"

[Buttonbar]
button=Wcmicons.dll,47
cmd=SwitchFilter.vbs
param=Исполняемые
menu=SwitchFilter

'SwitchFilter.vbs   (требуется установленный Script Helper ActiveX for TC)
'Параметры: шаблон поиска или фильтр. Если шаблон поиска содержит пробелы, заключите его в кавычки.
'Обычный клик по кнопке скрипта установит/выключит фильтр/шаблон в текущей панели.
'Если на кнопку перетащить файл, в панели остануться только объекты того же типа.

Set TCS = CreateObject("TCSCRIPT.Helper")

[sFilter]="имитация ключа ini-файла"
   sFilter="*.exe"
   sFilter = Replace(sFilter, Chr(34),"")

If WScript.Arguments.Count > 0 Then    'запуск без параметров переключает последний фильтр
   sFilter = WScript.Arguments(0)
   If CreateObject("Scripting.FileSystemObject").FileExists(sFilter) Then sFilter = "*." + LCase(Left(Split(sFilter, ".")(Ubound(Split(sFilter, "."))), Sgn(Ubound(Split(sFilter, "."))) * Len(Split(sFilter, ".")(Ubound(Split(sFilter, "."))))))
   TCS.INIWrite WScript.ScriptFullName, "sFilter", "sFilter", Chr(34) + sFilter + Chr(34)    'запомнить фильтр
End If

   If InStr(sFilter,"*") = 0 Then sFilter = Chr(62) & sFilter

If TCS.GetFilter(TCS.GetSrcPath) <> sFilter Then
   TCS.SendCommand "cm_SrcUserDef"
   TCS.SendKeystroke sFilter & "{ENTER}"
Else
   TCS.SendCommand "cm_SrcAllFiles"
End If

MsgBox GetAnExtension("c:\noname")
Function GetAnExtension(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

If WScript.Arguments.Count > 0 Then    'запуск без параметров переключает последний фильтр
   sFilter = WScript.Arguments(0)
   Set FSO = CreateObject("Scripting.FileSystemObject")
   If FSO.FileExists(sFilter) Then sFilter = "*." & FSO.GetExtensionName(sFilter)
   TCS.INIWrite WScript.ScriptFullName, "sFilter", "sFilter", Chr(34) & sFilter & Chr(34)    'запомнить фильтр
End If

Buffer = Replace(CStr(Buffer), Find_String, Replace_String, 1, -1, 1)

' File:         ZebraMark-2.vbs
' Description:  Помечает все файлы и каталоги через один.
' Requirements: WSH Helper for TC by Volniy
' Copyright:    (c) 2007, Volniy, aLexx

Option Explicit
Dim List, TCS, Cnt, Buf
Set TCS = CreateObject("TCScript.Helper")

TCS.SendCommand ("cm_SelectAll")  'Выбрать всё
TCS.SendCommand ("cm_CopyFullNamesToClip")  'Копируем в буфер
List = Split(TCS.GetTextFromClip,vbNewLine) ' Получаем массив имен
If UBound(List) > 2 Then
  For Cnt=0 To UBound(List)
    If Cnt Mod 2 = 1 Then
     Buf = Buf & List(Cnt) & vbNewLine
    End If
  Next
  TCS.SetTextToClip CStr(Buf)
  TCS.SendCommand "cm_LoadSelectionFromClip", True
  MsgBox "Выделено ""зеброй"":): " & Cnt \ 2 & " файлов и каталогов.", vbInformation, "Завершено!"
Else
  TCS.SendCommand ("cm_ClearAll")  'Снять выделение
End If

Set TCS = Nothing
Set List = Nothing
Set Cnt = Nothing
Set Buf = Nothing
WScript.Quit

Option Explicit
Dim WMI, ComLine, oProc, oP, Btn, i, ProcCount

On Error Resume Next
'Объявляем объект WMI
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
If Err.Number <> 0 Then
  MsgBox Err.Number & ": " & Err.Description
  WScript.Quit
End If
'В командной строке должно быть по 2 слэша, например, C:\\Путь\\до\\файла\\Файл.Расширение
ComLine   = Replace(WScript.ScriptFullName, "\", "\\")
'Ищем в списке процессов по командной строке, не запущен ли уже данный скрипт
Set oProc = WMI.ExecQuery("SELECT * from Win32_Process " &_
            "WHERE CommandLine Like '%wscript%" & ComLine & "%'")
ProcCount = oProc.Count
'Если процессов более одного (с учетом текущего запуска)
If ProcCount > 1 Then
  'Выдаем предупреждение с предложением завершить работу старого скрипта
  Btn = MsgBox("Обнаружен ранее запущенный аналогичный скрипт." &_
        vbNewLine & "Старый процесс будет замещен новым."       &_
        vbNewLine, _
        vbOKCancel + vbQuestion, "Перезапуск скрипта")
  'Если отвечаем "OK"
  If Btn = vbOK Then
    i = 0
    'Убиваем все аналогичные процессы, кроме текущего (он последний)
    For Each oP In oProc
      i = i + 1
      If i = ProcCount Then
        Exit For
      End If
      oP.Delete_
    Next
  Else
    Set oProc = Nothing
    Set WMI   = Nothing
    WScript.Quit
  End If
End If
On Error Goto 0

Set TCS = CreateObject("TCScript.Helper")

' Имитирует нажатие клавиши CAPSLOCK
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.SendKeystroke "{CAPSLOCK}"
Wscript.Quit

TCS.SendCommand "cm_SelectAll", True

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1252"="c_1251.nls"

' File:         ZebraMark-3.vbs
' Description:  Помечает все файлы и каталоги через один
' What's new:   Работает в BranchView
' Requirements: WSH Helper for TC by Volniy
' Copyright:    (c) 2010, Volniy

Option Explicit
Dim List, TCS, Cnt, Buf, CurDir
Set TCS = CreateObject("TCScript.Helper")

TCS.SendCommand "cm_SelectAll", True  'Выбрать всё
CurDir = TCS.GetSrcPath
TCS.SendCommand "cm_CopyFullNamesToClip", True
List = Split(TCS.GetTextFromClip,vbNewLine)

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
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True
TCS.GetSrcSelectedFiles

MsgBox "Выделено ""зеброй"": " & (UBound(TCS.GetSrcSelectedFiles) +1) & _
       " файлов/каталогов." , vbInformation, "Завершено!"
Set TCS = Nothing
WScript.Quit

TCS.SendCommand "cm_SelectAll", False
TCS.SendCommand "cm_CopyFullNamesToClip", True

TCS.Sleep 1000

TCS.Pause = 1000
TCS.SendCommand "cm_SelectAll", False
TCS.SendCommand "cm_CopyFullNamesToClip", False

TCS.SendCommand "cm_SelectAll", False
TCS.SendCommand "cm_CopyFullNamesToClip", False
TCS.Sleep 1000

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1252"="c_1251.nls"

Buf = Buf & Mid(List(Cnt), Len(CurDir) +2) & vbNewLine

      Buf = Buf & List(Cnt) & vbNewLine

SetTextToClip("c:\папка\файл.ext",1049)

TCS.SendKeystroke "^+1"

...
Строка:   2
Символ:   1
Ошибка:   0x800700C1
Код:   800700C1
Источник:    (null)

' Создание папки в соседней панели с именем файла\папки под курсором
' Параметр "%O"
Dim TCS
    Set TCS = CreateObject("TCSCRIPT.Helper")
    Name  = WScript.Arguments(0)
    Line = TCS.GetTrgPath & "\" & Name
    TCS.SendCommand "cm_MkDir"
    TCS.Pause = 200
    TCS.SendKeystroke (Line)
Set TCS = Nothing

Dim TCS, fso, Line
Set TCS = CreateObject("TCSCRIPT.Helper")
Set fso = CreateObject("scripting.filesystemobject")

Line = TCS.GetTrgPath & "\" & WScript.Arguments(0) 
If fso.FolderExists(Line) = False Then fso.CreateFolder(Line)

Set TCS = Nothing
Set fso = Nothing

' Создание папки в соседней панели с именем файла\папки под курсором
' Параметры: "%T%O"
Dim TCS, fso, Line
Set fso = CreateObject("scripting.filesystemobject")

Line = WScript.Arguments(0)
If fso.FolderExists(Line) = False Then fso.CreateFolder(Line)

Set fso = Nothing

TOTALCMD#BAR#DATA
%ComSpec% /c md
"%T%O"
WCMICONS.DLL,29
Создание папки в соседней панели с именем файла\папки под курсором

1
-1

MsgBox ValidPath("c:\+++\^^\%%")

Function ValidPath(Path )
  For i=1 To Len(Path)
    s=Mid(Path,i,1)
    Select Case s
      Case "(",")","{","}","+","%","^","~"
        s="{" & s & "}"
    End Select
    ValidPath=ValidPath & s
  Next
End Function

FolderPath = "C:\DOCUME~1\Default\LOCALS~1\Temp"
MsgBox CreateObject("Shell.Application").NameSpace(FolderPath).Self.Path

Set SA = CreateObject("Shell.Application")
TMP = WSH.ExpandEnvironmentStrings("%TEMP%")
Path = SA.NameSpace(TMP).Self.Path

'Копирование текста в буфер обмена
strCopy = "Этот текст будет скопирован в буфера обмена"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentWindow.clipboardData.setData "text", strCopy
objIE.Quit

Set List = CreateObject("Scripting.Dictionary")
List.Add Key1, Value1
List.Add Key2, Value2

MyVar = "бла"
Set List = CreateObject("Scripting.Dictionary")
List.Add "бла"   , "Значение 1"
List.Add "блабла", "Значение 2"
If List.Exists(MyVar) Then
  MsgBox "По ключу """ & MyVar & """ найдено значение """ & List(MyVar) & """"
Else
  MsgBox "По ключу """ & MyVar & """ ничего не найдено"
End If

If List.Exists(MyVar) Then MsgBox MyVar