Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

XXXXL



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Rush
, помоги ещё раз пожалуйста. Только что бы изменилось одно слово PASSWORD.
Если забыл то вот тут почитай
У меня самого никак не получается самому сделать.
вот строка:
ZTnBatch.exe -h 192.168.1.1 -p PASSWORD -c "poe drop poe0"

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 19:29 22-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
XXXXL

Цитата:
Только что бы изменилось одно слово PASSWORD

 

Код:
    ' Окна ввода данных  
'Login_Input = InputBox("Введите логин:", "Внимание!", "")
Password_Input = InputBox("Введите пароль:", "Внимание!", "")
 
 
    ' Задаём переменную для имени файла
FileName = "Test.txt"
 
    ' Читаем нужный файл
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(FileName, 1)
FileContent = f.ReadAll
f.Close
 
    ' Включаем регулярные выражения
Set regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
 
    ' Маски для замены
Pettern = "-p ([^\d]+) -c"
PatternReplace = "-p " & Password_Input & " -c"
 
    ' Меняем значения пароля
FileContent = ReplaceText(FileContent, Pettern, PatternReplace)
 
    ' Записываем в файл после замены
Set f = fso.OpenTextFile(FileName, 2)
f.Write FileContent
f.Close
 
    ' Очищаем
Set f = Nothing
Set fso = Nothing
Set regEx = Nothing
 
 
    ' Функция замены
Function ReplaceText(txt, patrn, replStr)
    regEx.Pattern = patrn
    ReplaceText = regEx.Replace(txt, replStr)
End Function

 
Добавлено:
Nagual

Цитата:
Написан для устранения кривизны тэга [code]

 
С этим тегом оно не связано, скорее с тегом br - если копировать текст с двумя строками, то мы видим что только первая строка имеет лишний пробел на конце, значит до символа перевода строки добавляется пробел.
 
Добавлено:

Цитата:
Скрипт для удаления концевых пробелов в файлах

Кстати, неплохо было бы для браузера сделать подобную функцию:
«Копировать с руборда»    
 
Позже может сделаю..

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 20:55 22-02-2008 | Исправлено: ViSiToR, 21:01 22-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Позже может сделаю..

Вроде сделал: Copy_From_Ru-Board_Installer_to_IE.vbs (5 kb).
 
Правда у меня один глюк проявляется - когда копируем, текущее окно IE теряет фокус  (возможно это мой локальный глюк, в последнее время ещё не такие глюки бывали ).
 
Добавлено:
P.S
Кому интересно, могу и для Opera сделать .

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:08 22-02-2008
JustVisiter



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Стоит такая задача: зная только имя пользователя в AD, добавить его в определённую группу AD. Столкнулся с проблемой: как указать пользователя, не зная, в каком OU он находиться. Везде в примерах идёт подключение через LDAP, где необходимо указать OU, иначе "объект в домене не найден".
Подскажите пожалуйста, как это сделать?

Всего записей: 29 | Зарегистр. 19-10-2002 | Отправлено: 07:42 23-02-2008
XXXXL



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR Спасибо
 
 

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 09:31 23-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Обновил Copy_From_Ru-Board_Installer_to_IE.vbs (3 kb).
 
Убрал лишнее, и исправил несколько ошибок (на последней строке не убирался пробел + ещё пару синтаксических ошибок).

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 13:40 23-02-2008
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
Цитата:
С этим тегом оно не связано, скорее с тегом br  - если копировать текст с двумя строками, то мы видим что только первая строка имеет лишний пробел на конце, значит до символа перевода строки добавляется пробел.
написал бы ты это админу, мне это не интересно, веришь?
 
интересно вот что...
господа, как получить имя текущей папки, в которой находится скрипт, подчеркну, только имя текущей папки, а не полный путь до нее, желательно без использования регулярных выражений
пример:
есть папка, в которой лежит скрипт
C:\Documents and Settings\All Users
надо получить
All Users

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 15:47 23-02-2008 | Исправлено: Nagual, 16:06 23-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Nagual

Цитата:
как получить имя текущей папки, в которой находится скрипт, подчеркну, только имя текущей папки

 

Код:
Set fso = CreateObject("Scripting.FileSystemObject")
 
Path = WScript.ScriptFullName '"C:\Documents and Settings\All Users\test.vbs"
ParentPath = fso.GetParentFolderName(Path)
FolderName = fso.GetBaseName(ParentPath)
 
Wscript.Echo FolderName

 
Или триммить...
 

Код:
Wscript.Echo GetParentDirName(WScript.ScriptFullName)
 
Function GetParentDirName(sPath)
    sPath = Left(sPath, InStrRev(sPath, "\", -1, 1)-1)
    GetParentDirName = Mid(sPath, InStrRev(sPath, "\", -1, 1)+1)
End Function


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 17:06 23-02-2008
Ortios



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Друзья, помогите решить проблему.
Есть команда net send, посылающая сообщения в сети. На тех серверах в сети, на которые редко заглядываешь со временем накапливается большое количество этих сообщений, пока все сбросишь опухнешь. Короче нужен скрипт, который бы махом закрывал накопившиеся на данном сервере сообщения. Групповые политики не предлагать.

Всего записей: 73 | Зарегистр. 24-12-2007 | Отправлено: 18:51 23-02-2008
Dem_anywhere



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А если службу мессенджера перезапустить - не сбросятся?

Всего записей: 230 | Зарегистр. 28-02-2006 | Отправлено: 00:12 24-02-2008
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
спасибо, то, что нужно
test.vbs
Код:
Set fso = CreateObject("Scripting.FileSystemObject")
FolderName = fso.GetBaseName(fso.GetParentFolderName(WScript.ScriptFullName))
if
FolderName="" Then FolderName="Root"
Wscript.Echo FolderName

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 04:13 24-02-2008
mr1



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста создать скрипт который:
1.    менял права доступа для файла/директории для группы users – полный
2.    запускался <скрипт>  файл/директория

Всего записей: 38 | Зарегистр. 03-01-2006 | Отправлено: 12:46 24-02-2008
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
есть такой код:
1.vbs
Код:
For I=0 to WScript.Arguments.Count-1
a=WScript.Arguments(I)
MsgBox
a
a=" "&Chr(34)&WScript.Arguments(I)&Chr(34)
par=a
Next
MsgBox
par
 
передаю параметры скрипту
как получить строку вида
( "param1" "param2" "param3" "paramN")
то есть нужно получить строку из параметров в кавычках в одной строке
 
Добавлено:
разобрался

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 21:16 24-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помнится я тут спрашивал про методы помещения текста в буфер обмена. Но приведённый метод имеет некое свойство сворачивать открытое (активное) окно Internet Explorer если функция вызывается из контекстного меню IE.
 
Это именно тот самый глюк в скрипте для копирования с Ru-Board.
 
У кого нибудь есть идеи как исправить это?

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:06 25-02-2008
efrik

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как скриптом определить IP-адрес по заданному полному (FSQN)  имени?

Всего записей: 8 | Зарегистр. 23-08-2005 | Отправлено: 16:04 26-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR

Цитата:
глюк в скрипте для копирования с Ru-Board.  

Может я чего не понимаю, но у меня с борды стандартными средствами нормально копируется.
А, вообще, чтобы выделенный текст скопировать со страницы в буфер обмена, достаточно написать такой скрипт (естественно, в файле CopyFrom_forum.ru-board.htm):

Код:
<SCRIPT LANGUAGE="JavaScript">
    var ParentWin = external.menuArguments;
    ParentWin.document.selection.createRange().execCommand("copy");
</SCRIPT>

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 19:20 26-02-2008
Ortios



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну, так как прибить сообщения net send на серверах, перезапуск службы мессенджера ничего не дает. Поэтому нужен скрипт. VBS не знаю. Но на мой непросвещенный взгляд надо прибить в цикле окна с заголовками "Служба сообщений" для рус. Windows и "Messenger service" для eng.Windows.

Всего записей: 73 | Зарегистр. 24-12-2007 | Отправлено: 22:17 26-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Rush

Цитата:
у меня с борды стандартными средствами нормально копируется.

На конце строк нет пробелов? копировать нужно более одной строки (где есть переводы строк).
 

Цитата:
чтобы выделенный текст скопировать со страницы в буфер обмена, достаточно написать такой скрипт

Перед помещением, его нужно обработать, убрать пробелы на конце

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 23:29 26-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR

Цитата:
На конце строк нет пробелов? копировать нужно более одной строки (где есть переводы строк).  

А понял. Я просто не посмотрел на предыдущие посты, где говорилось о проблеме с пробелами. Просто мне как-то это никогда не мешало.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 02:02 27-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR

Цитата:
Перед помещением, его нужно обработать, убрать пробелы на конце  

Нужно, обработаем:
Код:
<SCRIPT LANGUAGE="JavaScript">
     var ParentWin = external.menuArguments;
     var sText = ParentWin.document.selection.createRange().text;
     if (sText != '') {sText = sText.replace(/ +$/gim,'');
          ParentWin.document.parentWindow.clipboardData.setData ("text", sText);}
     else {alert ("Не выделен текст!", "Удаление концевых пробелов - Ошибка!");}
</SCRIPT>

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 17:38 27-02-2008 | Исправлено: Rush, 17:52 27-02-2008
   

Страницы: 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 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru