CurrPorts - показывает все открытые порты вашего компьютера, закрытие TCP-соединений, завершение процессов
CurrPorts - показывает все открытые порты вашего компьютера, закрытие TCP-соединений, завершение процессов
DomainHostingView - показывает подробную информацию о доменах
FileZilla - FTP-менеджер для загрузки и скачивания  файлов с FTP-серверов
FileZilla - FTP-менеджер для загрузки и скачивания  файлов с FTP-серверов
FileZilla - FTP-менеджер для загрузки и скачивания  файлов с FTP-серверов
FileZilla - FTP-менеджер для загрузки и скачивания  файлов с FTP-серверов
FileZilla Server - конфигурирование, настройка и мониторинг работы сервера
FileZilla Server - конфигурирование, настройка и мониторинг работы сервера
FileZilla Server - конфигурирование, настройка и мониторинг работы сервера
FileZilla Server - конфигурирование, настройка и мониторинг работы сервера
IPNetInfo - показывает всю доступную информацию об IP-адресе
MACAddressView - информация о сетевых адаптерах по их MAC адресам
NetRouteView - графическая оболочка стандартной Windows утилиты по управлению маршрутами
OperaCacheView - просмотр кэша веб браузера Opera
OperaPassView - восстановление паролей в веб браузере Opera
Putty - Telnet и SSH клиент. Help в папке с программой
Putty - Telnet и SSH клиент. Help в папке с программой
SiteShoter - создание скриншотов веб страниц
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
SmartSniff - перехват и просмотр TCP/IP-пакетов, передаваемых через сетевые адаптеры между клиентом и сервером
Tftpd32 - DHCP, TFTP, SNTP и Syslog сервера + TFTP клиент
Uninstall Office 2003
Uninstall Office 2007
Uninstall Office 2007
Uninstall Office 2010
VideoCacheView - извлечение видео файлов из кэша веб браузеров
WakeMeOnLan - удалённое включение компьютера
WinSCP - графический клиент протоколов SFTP и SCP
Wireless Network Watcher - показывает кто подключался к вашему WiFi
WirelessNetView -  обзор активных Wi-Fi сетей. Для каждой найденной сети показывает расширенную информацию
Запуск сервера, как программы
Запуск сервера, как программы
Запуск сервера, как программы
Инсталляция и запуск сервера в качестве службы
Инсталляция и запуск сервера в качестве службы
Остановка и удаление службы сервера
Остановка и удаление службы сервера
Остановка сервера, как программы
Остановка сервера, как программы
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC
Скачать/обновить все утилиты от NirSoft в сборке TC

---------------------------
Windows Script Host
---------------------------
Сценарий:    C:\PowerUserv57\scripts\Новый файл.vbs
Строка:    52
Символ:    28
Ошибка:    Индекс выходит за пределы допустимого диапазона: '[number: -1]'
Код:    800A0009
Источник:  Ошибка выполнения Microsoft VBScript

---------------------------
ОК    
---------------------------

copy /y "%~dp0..\..\install\User\User.ini" "%~dp0..\..\install\Bars\User.bar"
"%~dp0ExtractsFromBarMenu.vbs" "%~dp0..\..\install\Bars\" "%~dp0Spisok.txt"
findstr /c:" - " "%~dp0Spisok.txt" >SpisokProgram.txt
del "%~dp0Spisok.txt"
del "%~dp0..\..\install\Bars\User.bar"

' ExtractsFromBarMenu.vbs
'========================   Описание   =====================================
' Извлекает из всех в .bar файлов в указанной папке значения menuX=
' и сохраняет результат в алфавитном порядке в указанный файл
'=======================   Параметры  =====================================
' 1-й параметр: путь\до\папки\bar-файлов
' 2-й параметр: путь\к\файлу куда сохраняется информация
'========================   Примеры   =====================================
' "%%COMMANDER_PATH%%\Bar" "%%COMMANDER_PATH%%\Bar.txt"

' Автор:             Аверин Андрей
' Версия:          1.1  (29.03.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru/forum/3-261-856-16-1333007402
'========================================================================
If WScript.Arguments.Count < 2 Then MsgError(1)
FFolder = GetPath(WScript.Arguments(0)) : bFile = GetPath(WScript.Arguments(1)) : BT = ""

With CreateObject("Scripting.FileSystemObject")
   If .FileExists(FFolder) Then MsgError(2)
   Set FF = .GetFolder(FFolder)
   For Each Files In FF.Files
     If LCase(.GetExtensionName(Files)) = "bar" Then
       B = .OpenTextFile(Files).ReadAll
       If InStr(LCase(B), "[buttonbar]") = 0 Then B = .OpenTextFile(Files, 1, False, -1).ReadAll
       If InStr(LCase(B), "[buttonbar]") = 0 Then B = .OpenTextFile(Files, 1, False, -2).ReadAll
       If InStr(LCase(B), "[buttonbar]") > 0 Then BT = BT & B & vbNewLine
       N = InStr(BT, "яю[")
       If N > 0 Then BT = Mid(BT, 1, N - 1)
     End If
     B = ""
   Next
   If Len(BT) > 0 Then
     L = Split(BT, vbNewLine)
     For i = 0 To Ubound(L)
       If Len(L(i)) > 0 Then
         If InStr(LCase(L(i)), "menu") > 0 Then
          N = Trim(Mid(L(i), InStr(L(i), "=") + 1))
          If Len(N) > 0 Then T = T & N & vbNewLine
         End If
       End If
     Next
     M = Split(T, vbNewLine)
     On Error Resume Next
     MM = DelDublicateArr(M)
     SortingUp MM, 0, Ubound(MM)
     T = Join(MM, vbNewLine)
     .CreateTextFile(bFile, True).Write T
   End If
End With

Set FF = Nothing : WScript.Quit
Function GetPath(pPath) : GetPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings(pPath) : End Function

Sub MsgError(N)
   Select Case N
     Case 1 Msg = "Должно быть Два параметра!"
     Case 2 Msg = "Указанная папка не существует"
   End Select
   MsgBox Msg, vbOKOnly & vbInformation, "Чтение menu из .bar файлов" : WScript.Quit
End Sub

Sub SortingUp(sArr, ll, rr)
   Dim ii, jj, xx, yy
   ii = ll : jj = rr : xx = sArr((ll + rr) \ 2)
   Do
     While sArr(ii) < xx : ii = ii + 1 : Wend
     While xx < sArr(jj) : jj = jj - 1 : Wend
     If ii <= jj Then
       If sArr(ii) <> sArr(jj) Then
         yy = sArr(ii) : sArr(ii) = sArr(jj) : sArr(jj) = yy
       End If
       ii = ii + 1 : jj = jj - 1
     End If
   Loop Until ii > jj
   If ll < jj Then SortingUp sArr, ll, jj
   If ii < rr Then SortingUp sArr, ii, rr
End Sub

Function DelDublicateArr(Arrr)
   Dim oDict, Item, Key
   Set oDict = CreateObject("Scripting.Dictionary")
   oDict.RemoveAll : oDict.CompareMode = 0
   For Each Item In Arrr
     If Len(Item) > 0 Then
       If Not oDict.Exists(Item) Then oDict.Add Item, Item
     End If
   Next
   Key = oDict.Keys : Set oDict = Nothing : DelDublicateArr = Key
End Function