ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вопросы, задачи и их решения по VBScript.   Мануал (english, 600 Кб). | Зеркало MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало Немного на wikiпедии. Предыдущие части: 1   Смежные темы: Сценарии Windows Командная строка, батники\сценарии (bat, cmd) Скрипты KiXtart Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018

fire4x Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как остановить и отключить службу Windows без подтверждений? Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 00:48 17-03-2012

shveicar Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Здравствуйте,   Не безызвестная многим, программа adobe dreamweaver - может, весьма удобно, проверять сайт на наличие ссылок, результат можно увидеть в текстовом файле, вида   Код: Неработающие ссылки:   index_splash.htm    ../silginc.com/index.htm members/220_2.htm   images/newmenu__hover_01.jpg members/6145_221.htm   images/newmenu__hover_01.jpg members/6145_221.htm   6145_2f-6142-01-sm.jpg members/6145_221.htm   6145_2f-6142-01-lg.jpg   Внешние ссылки:   2257.htm   mailto:info@sexentertain.co index_splash.htm   http://www.google.com/     Потерянные файлы:   images/Descr.WD3   естественно, каждый из списков,- может быть очень длинным, (привожу краткое содержание) но структура - всегда одинакова. Проблема заключается в дальнейшей обработки этого файла. Если возможно ускорить процесс извлечения из файла полезной информации, а именно: фрагмента после надписи (Неработающие ссылки: ) причем только начальных строк до (.htm)l и всего блока до надписи (Внешние ссылки: ) Буду очень признателен, поскольку поэтапная обработка файла, имеет несколько стадий и не удобна. Если в скрипт возможно добавить ещё и опцию удаления одинаковых строк, (сохраняется только одно совпадение) в итоговом файле вывода. Будет просто великолепно. Работаю из под total commander. Надеюсь на помощь. Спасибо. Всего записей: 340 | Зарегистр. 26-09-2010 | Отправлено: 14:45 25-03-2012 | Исправлено: shveicar, 14:53 25-03-2012

13071963 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Прошу Вас оказать помощь в решении следующей задачи!!! Сам VBScript не знаю.   ==================== ОПИСАНИЕ =========================================   После сканирования документа имеется папка, в которой отсканированные файлы записаны, как правило, в следующем формате: 000.tif 001.tif 002.tif 003.tif ... 112.tif и т.д.   Файл для обработки (очистки)загружается в Spotlight Pro по очереди, "по одному"!   Имеется командный файл в Spotlight, в котором прописаны необходимые действия, выполняемые автоматически, после ручной обработки. Например:           - Автовыравнивание страницы           - Очистка мусора           - Залитие дырок           - Приведение к необходимому формату           - ...           - Сохранить как (в другой каталог)           - Закрыть файл   =================== ЗАДАЧА ===========================================     В конце командного файла необходимо выполнить команду АВТОМАТИЧЕСКОЙ загрузки  "следующего" обрабатывамого файла из указанного первоначально каталога. Например:   загружен файл 001.tif >>Ручная обработка >> Командный файл >> загружен для обработки 002.tif и т.д. до конца.     Возможно ли описать данное действие имеющейся на VBScript (или JavaScript)? ПОМОГИТЕ! Всего записей: 14 | Зарегистр. 21-11-2007 | Отправлено: 21:39 26-03-2012

timurgall Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Доброго времени, есть вот такой скрипт   Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("C:\Program Files\xxx\test.txt") Then     Set objFile = objFSO.GetFile("C:\Program Files\xxx\test.txt")     objFile.delete End If   Если запустить его локально то фаил удаляется. А через групповую политику у пользователя нет. Там где я нашел этот пример так и было написано что он для локального запуска) Только в какую сторону его доработать чтобы он был для запуска через групповые политики? Всего записей: 92 | Зарегистр. 29-07-2008 | Отправлено: 14:08 29-03-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору fire4x по реестру у меня лично работает, возможно что-то где-то у тебя не правильно. Обрати внимание что условие 2 выполняется если указанной ветки реестра не существует, можно в этом случае вводить еще условие на проверку существования ветки. if not iRC=0 then ошибка.   Пример удаления папки есть в msdne, а службами можно манипулировать с помощью wmi Win32_Service.   rte7 проще всего перенаправить экран в файл, добавив в конец команды запуска скрипта "> C:\8.txt"   13071963 По данным из гугла этот софт дружит с vbs.   timurgall Возможно у пользователя нет прав на удаление или на запуск скрипта, какая ошибка при выполнении через политики?   Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 12:44 30-03-2012

MatroskinK Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Функция  Hex()  в Vbs  умеет получать значения, не превышающие 2 c небольшим миллиарда. А как можно получить 16-ричное представление значительно больших чисел?   По условиям задачи строка. содержащая 16-ричное представление должна быть длинной 12 символов. Ауу, гуру... Всего записей: 5 | Зарегистр. 10-12-2006 | Отправлено: 21:47 30-03-2012

fire4x Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Black_Lung Цитата: Пример удаления папки есть в msdne, Можно ссылочу. Или пример удаления папки, например, %AppData%\12345 Цитата: службами можно манипулировать с помощью wmi Win32_Service А каким образом? Можете объяснить на примере любой службы? Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 23:39 31-03-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MatroskinK vbs не дружит с двоичным умножением, но есть идея.. Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 18:59 02-04-2012

MatroskinK Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору проблема решена. Vbs поддерживает деление с преобразованием результата в подтип Currency. А потом уже анализирую, как строку, полученный результат... Black_Lung, а какая была идея? Всего записей: 5 | Зарегистр. 10-12-2006 | Отправлено: 21:00 02-04-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MatroskinK У меня было идея умножения по таблице двоичных 10, можно работать с довольно большими числами с 64 битными и больше   Сегодня доделал рисует^ красивую горочку из 0 и 1: Подробнее...     Currency и hex? тоже интересно как.     fire4x   Удаление папки     Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 11:27 03-04-2012

timurgall Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Set ObjShell=CreateObject("WScript.Shell") RegStr="HKLM\software\test" ObjShell.RegWrite "RegStr&Birthday","1303","reg_SZ"   Ошибка в строке 3 символ 1.   Недопустимы вызов или аргумент процедуры. Кто может подсказать в чем не так? Всего записей: 92 | Зарегистр. 29-07-2008 | Отправлено: 19:16 09-04-2012

timurgall Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Такая же ошибка. Всего записей: 92 | Зарегистр. 29-07-2008 | Отправлено: 08:51 10-04-2012 | Исправлено: timurgall, 08:52 10-04-2012

timurgall Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: HKLM\software\test - это раздел ? если да то ObjShell.RegWrite RegStr & "\Birthday","1303","REG_SZ"   smaharbA Спасибо. Я много раз и по разному пытался изменять аргументы но ни разу не менял "reg_SZ" на "REG_SZ" и именно из-за него была ошибка.   Добавлено: Set ObjShell=CreateObject("WScript.Shell")   ОbjShell.RegWrite "HKLM\X\X\X\Windows\Layers\M:\\WORKDB\\CLIENT\\deal32.exe","DisableNXShowUI","REG_SZ"   В итоге она делает не ключ "M:\\WORKDB\\CLIENT\\deal32.exe" со значением DisableNXShowUI А разделы вниз по дереву Layers\M:\WORKDB\CLIENT\ и уже ключ deal32.exe со значение DisableNXShowUI Подмена на переменную ничего не дает. Как ей так обьяснить чего я хочу, чтобы она поняла? Всего записей: 92 | Зарегистр. 29-07-2008 | Отправлено: 13:54 10-04-2012

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование