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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
 
спасибочки.
 
 
 
Тут собрал еще одну удобняшку ,выводит в текстовый файл следующую информацию.  
 
Имя пользователя :  user
Имя компьютера : computer
Вход в домен : domain
Ключ продукта :xxxxx-xxxxx-xxxxx-xxxxx-xxxxx
ID продукта :xxxxx-OEM-xxxxxxx-xxxxx
 
сам файл VBS http://slil.ru/24248513
 
Подробнее...
 
 

Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 14:27 16-04-2007 | Исправлено: alur2005, 13:58 17-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
добры время сутаг =)
 
подскажити код на .js  
необходимо ф файле найти нужный текст и заменить иго другим ....
 
ПЛИЗЗЗ оч нуно =)

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 00:54 18-04-2007
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
minicoder
function ReplaceText(fileName, pattern, replacedText)
{
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var f = fso.GetFile(fileName);
    var ts = f.OpenAsTextStream(1); // 1 = ForReading
    if (!ts.AtEndOfStream)
    {
        var buf = ts.ReadAll();
        ts.Close();
        var ts = f.OpenAsTextStream(2); // 2 = ForWriting
        buf = buf.replace(pattern, replacedText);
        ts.Write(buf);
        ts.Close();
    }
}
 
// пример
ReplaceText("1.txt", /A/g, "B");

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 12:28 18-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance ....... =) ОГРОМНОЕЕЕЕ СПАСИБО ВАМ !!!!!!! СПАСИБОООО =)
 
Добавлено:
distance ИЗИНИТИ КАНЕШ ..... как сделать чтоб  заменяемый символ в вашем примере "A"
был переменной..... ReplaceText("1.txt", /A/g, "B");
с символом "B" работает как переменная если убрать кавычки а "A" ЧТОТ НИНАЮ КАГ сделать  
ато получаится что фсе символы "A" заменяются ..... а мне нужно чтоб она була переменной ТАГ КАГ СИМВОЛЫ ЗАМЕНЯЕМЫЕ В ТЕКСТЕ МНОГО И ФАЙЛОФ МНОГА =)
присвоил значение к примеру  
A="7777";  
 
ПОДСКАЖИТИ ЕСИ МОНА ТАКОЕ =)  
 

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 13:17 18-04-2007
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
minicoder
вместо заменяемого текста может быть как строка, так и регулярное выражение.
использование просто строки черевато побочными эффектами
например в такой записи:
ReplaceText("file.txt", "A", "B");
если файл file.txt содержит строку: 111AAA222
то после вызова функции там будет 111BAA222, а не 111BBB222, как можно было бы ожидать.
Поэтому надо строить регулярное выражение
 
var re = /что-то/g; // g =  глобальная замена
var replaceTo = "заменяемый текст"; // можно использовать макроподстановку групп, подробнее - см. url
ReplaceText("file.txt", re, replaceTo);

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 15:19 18-04-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
minicoder
distance тебе все очень правильно сказал.
Если ты уверен что строка поиска не может быть истолкована как регулярное выражение, то можно подставлять эту строку при задании регулярного выражения:
Код:
var re = new RegExp(find_string,"gi"); //i-игнорирование регистра
иначе надо преобразовывать строку в регулярное выражение

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 17:39 18-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance & mozers ///////  
=) я канеш мож надоел но я прост не шарю гг ....... тыкал тыкал .. читал читал ... неполучаится =)
 
напишити плиззз код сами мну тут  
 
чтоб в начале кода задавались переменые А и В
А = "слово";
В = "слово замена";
 
дальши оно там чёто делаит ищит и заменяится по данным переменных =)
и заканьчюитси =)
 
гг =)

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 20:16 18-04-2007
KillHunter



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем доброго времени суток.Необходимо написать "удобняшку" на VBScript,которая при выходе юзера из домена копировала содержимое папки Мои документы на файл сервак в папку с именем пользователя, с заменой изменённых файлов.
Домен,под win2k3.Заранее спасибо.

Всего записей: 19 | Зарегистр. 21-07-2006 | Отправлено: 00:45 19-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нужно ищё одна штука...
ищет текст в файле а фсё что после него удаляется  
 
как ето на js замутить подскажите еси не трудно......
 

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 01:55 19-04-2007
AlexStud

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть вопрос, может не туда - тогда сорри...
 
Нужно подключить принтер именно из-под пользователя (win xp) не давая user'y дополнительных прав на локальную машину:
 
(часть logon скрипта в GP)
...
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer WHERE DeviceID = '\\\\10.101.1.11\\hp LaserJet 1160'")  
If colItems.Count = 0 Then
    Set objNetwork = CreateObject("WScript.Network")
    objNetwork.AddWindowsPrinterConnection "\\10.101.1.11\hp LaserJet 1160"
    objNetwork.SetDefaultPrinter "\\10.101.1.11\hp LaserJet 1160"
End If
...
(часть logon скрипта в GP)
 
С правами админа работает нормально, есессна.
Поможите, плиз.

Всего записей: 28 | Зарегистр. 07-12-2002 | Отправлено: 14:05 17-05-2007 | Исправлено: AlexStud, 14:11 17-05-2007
gap5



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кстати, а ни в чей извращенный разум не приходила идея написать скрипт который бы отключал юзеру клавиатуру и мышку? Иногда надо что-то настроить через radmin, а туповатый юзер мешает...

Всего записей: 1070 | Зарегистр. 30-05-2006 | Отправлено: 14:57 17-05-2007
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gap5
На VBScript не знаю, а на васике писать минуту...

Код:
Option Explicit
 
Private Declare Function blockinput Lib "user32" Alias "BlockInput" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Main()
    Dim timeMS As Long
        If Command$ <> "" Then
            timeMS = Command$
            blockinput True
            Sleep timeMS
            blockinput False
            End
        Else
            End
        End If
End Sub
 
 
Добавлено:
Надо бы, конечно, timeMS = CLng(Command$)

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 15:27 17-05-2007 | Исправлено: Rush, 15:30 17-05-2007
megamozg13



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
gap5
если сеть на WinNT-подобных, проще dameware юзать.

Всего записей: 313 | Зарегистр. 27-07-2004 | Отправлено: 16:02 17-05-2007
gap5



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хочу написать считалку трафика по SNMP, задача запускать внешнюю софтину, которая опрашивает девайс, получает от него 2 переменных (входящий и исходящий трафик) и далее записывает их содержимое в файл "текущая-дата.log" в формате  
 
<in>XXX</in>
<out>XXX</out>
 
Но есть один момент - девайс может перегрузиться (между опросами) и тогда значине счетчиков сбросится, по этому надо их значения с чем-то сравнивать...
 
Пока вижу такую процедуру:
 
а0)
Запускаем внешние команды "data.exe -trafficin" и "data.exe -trafficout"
Пишем их вывод (набор цифр) в переменные CUR-IN и CUR-OUT соответственно, далее смотрим:
 
если нет файла "prev.log" идем на а1) если он есть на б1)
 
а1) создаем файл "prev.log" и пишем в него значения  
(1 строка) CUR-IN,
(2) CUR-OUT
(3) CURRENT-DATE  
(4) 0
(5) 0
после умираем (или, если со временем не будет утечки мозгов (как с этим в vbs?), засыпаем на 5 минут и потом повторяем все с команды а0).
 
б1) считываем содержимое "prev.log"  
1 строка в PREV-IN  
2 строка в PREV-OUT  
3 строка в PREV-DATE
4 строка в TODAY-IN
5 строка в TODAY-OUT
 
далее сравниваем - если PREV-DATE = текущей дате, то идем на в1)
если не равен текущей дате идем на а1) (т.е. как бы начинаем отсчет с нуля для новой даты)
 
в1)
если PREV-IN < CUR-IN, и PREV-OUT < CUR-OUT (т.е. счетчики не сбрасывались)
получаем разницу и прибавляем текущие показания, т.е. CUR-IN - PREV-IN + TODAY-IN = LOG-IN, и CUR-OUT - PREV-OUT + TODAY-OUT = LOG-OUT.
 
если PREV-IN > CUR-IN, и PREV-OUT > CUR-OUT (т.е. счетчики на девайсе сбрасывались)
просто восстанавливаем актуальное значение, т.е. TODAY-IN + CUR-IN = LOG-IN, TODAY-OUT + CUR-OUT = LOG-OUT
 
пишем в файл CURRENTDATE.log значения <in>LOG-IN</in> и <out>LOG-OUT</out> далее идем на в2)
 
в2) пишем значения в "prev.log"
(1строка) CUR-IN
(2) CUR-OUT
(3) CURRENTDATE
(4) LOG-IN
(5) LOG-OUT
 
Вроде все предусмотрел или нет?
Кому не сложно, накидайте примерный вид этого на vbs.

Всего записей: 1070 | Зарегистр. 30-05-2006 | Отправлено: 20:30 17-05-2007 | Исправлено: gap5, 20:31 17-05-2007
Feldsherus

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет народ!
Подскажите как с помощью VBScript получить ip-адрес ADSL(dial-up) соединения в виде текстовой строки.
 
всем заранее огромное спасибо

Всего записей: 23 | Зарегистр. 09-02-2007 | Отправлено: 16:00 19-05-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Feldsherus
Всё-таки лень скачать vbsedit? отлавливай свой ADSL по мак-адресу

Код:
 
' List IP Addresses for a Computer
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
 
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then  
        WScript.Echo IPConfig.ServiceName
        WScript.Echo IPConfig.MacAddress
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            WScript.Echo IPConfig.IPAddress(i)
        Next
    End If
Next
 

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 16:52 19-05-2007
Feldsherus

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndVGri Спасибо тебе огромное!!! Очень выручил!

Всего записей: 23 | Зарегистр. 09-02-2007 | Отправлено: 00:12 20-05-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Такой вроде простой вопрос: Как проверять по условию без чувствительности к регистру букв?
 
К примеру хочу проверить две переменные, чтобы регистр букв не играл никакой роли:
 

Код:
TestVar1 = "test"
TestVar2 = "tEst"
 
If TestVar1 = TestVar2 Then MsgBox "OK"

 
Сообщения не видать , как такое осуществить?

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 06:43 21-05-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
If StrComp(TestVar1, TestVar2, vbTextCompare) = 0 Then MsgBox "Ok"

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 07:26 21-05-2007
ViSiToR



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

Цитата:
If StrComp(TestVar1, TestVar2, vbTextCompare) = 0 Then MsgBox "Ok"

Спасибо, то что нужно.

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 19:26 21-05-2007
   

Страницы: 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