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

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

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

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Открыть новую тему     Написать ответ в эту тему

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
slime555



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем доброго времени суток!  Есть скрипт, сканирует юзеров в OU из AD, сверяет сегодняшнюю дату с датой его рождения(записана в поле "Описание") и в случае совпадения делает рассылку коллегам о дне рождения. Раньше все пользователи были в одном OU, теперь в этом OU созданы другие OU и юзеры внутри. Нужно, чтобы скрипт сканировал весь домен рекурсивно. Вот начальный скрипт:
>>
Помогите пожалуйста!
Всего записей: 151 | Зарегистр. 08-07-2008 | Отправлено: 20:24 25-06-2014
inile

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую! Есть пару сабжей, которые не считают vbs программой. Т.е. exe, bat, com запускают, но не vbs. Каждый раз компилировать в exe не выход.
Нужен скрипт, который будучи скомпилирован в exe, запускал бы из собственной директории одноименный vbs. Например, есть 123.vbs, кладу рядом скомпилированный скрипт и переименовываю в 123.exe. При старте он должен запустить 123.vbs.
Или подскажите готовые решения.
Всего записей: 1955 | Зарегистр. 29-06-2011 | Отправлено: 15:42 30-06-2014
bk99



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В win XP такой код пикал системным динамиком:

Код:
Set S = CreateObject("WScript.Shell")    
S.Run "%comspec% /c" & Chr(7),0

В win 7 x64 это не прокатывает - звук идёт через колонки. Как пустить beep через спикер?
Всего записей: 947 | Зарегистр. 27-12-2005 | Отправлено: 10:39 06-07-2014 | Исправлено: bk99, 10:39 06-07-2014
idlenlazy

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bk99
 
Не уверен, что семерка вообще может пищать спикером.
Всего записей: 163 | Зарегистр. 05-01-2009 | Отправлено: 16:50 07-07-2014
Tilks

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bk99
на 64-бит win7 системе уже никак, кроме как драйвер написать. На 32-бит win7 умники меняли beep.sys от xp.
Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 17:45 07-07-2014
slime555



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят, есть решение по моему вопросу 4 поста назад?
Всего записей: 151 | Зарегистр. 08-07-2008 | Отправлено: 09:10 21-07-2014
idiMAN

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
slime555
 
Организуй рекурсию по типу

Код:
 
Set oDomain = GetObject("LDAP://DC=fakedomain,DC=local")
 For Each item in oDomain
       ListUsers(item.adspath)
 Next
 
 Function ListUsers(oObj)
 On Error Resume Next
       Set thing = GetObject(oObj)
       For Each child In thing
             If child.class = "user" Then
                   тут твои сравнения и отправка почты
             End If
             If child.class = "organizationalUnit" or child.class = "container" or _  
             child.class = "builtinDomain" Then ListUsers(child.adspath)      
       Next
 End Function
 

 
Добавлено:
inile
 
Сделай такой батник и назови его "123.bat", при его запуске запустится твой "123.vbs", если обзовёшь батник "456.bat", то запустится "456.vbs" и т.п.

Код:
 
@echo off
cscript.exe "%~dpn0.vbs"
 

 
P.S. Если нужен не консольный вывод информации, а gui, то замени в батнике cscript.exe на wscript.exe
Всего записей: 466 | Зарегистр. 05-05-2003 | Отправлено: 15:28 24-07-2014
inile

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
zidiMAN, спасибо большое. В моем случае достаточно было запускать WScript.exe, с vbs как параметр.
Всего записей: 1955 | Зарегистр. 29-06-2011 | Отправлено: 16:12 30-07-2014
1Ulyana1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Не поможете написать скрипт вывода изображения (любого формата) по правой стороне экрана.
 
Запускается скрипт, отображается изображение, через 5 сек завершается. Возможно ли так выполнить при помощи vbs скрипта. Изображение находится рядом со криптом при запуске.
Всего записей: 2 | Зарегистр. 01-08-2014 | Отправлено: 10:33 01-08-2014 | Исправлено: 1Ulyana1, 10:42 01-08-2014
unreal666



Gold Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1Ulyana1
а свой нерабочий скрипт выложить, чтобы посмотреть чего да как?
Всего записей: 6671 | Зарегистр. 14-02-2005 | Отправлено: 10:44 01-08-2014
1Ulyana1

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подробнее...
Всего записей: 2 | Зарегистр. 01-08-2014 | Отправлено: 10:50 01-08-2014
Laserje18

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!
Подскажите, как реализовать "умную" приостановку исполнения скрипта, зависящую от размера файла filename.
Дело в том, что если дать мало времени на копирование файла filename и продолжить скрипт дальше, то копирование прерывается.

Код:
zipname="c:\test.zip"
filename="c:\test.txt"
CreateObject("Scripting.FileSystemObject")_
.CreateTextFile(zipname, True)_
.Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
CreateObject("Shell.Application")_
.NameSpace(zipname).CopyHere filename,&H4&
WScript.Sleep 500
 

Я думал, что сработает такой код, но он не сработал.

Код:
Do While Not FSO.GetFile(zipname)=True Then
WScript.Sleep 100
Loop

Всего записей: 64 | Зарегистр. 11-09-2012 | Отправлено: 02:22 03-08-2014
Tilks

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

Код:
zipname="c:\test.zip"  
filename="c:\test.txt"  
CreateObject("Scripting.FileSystemObject")_  
.CreateTextFile(zipname, True)_  
.Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)  
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(zipname).CopyHere filename,&H4&  
 
Do Until objShell.NameSpace(zipname).Items.Count = 1
   WScript.Sleep 500
Loop  
Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 11:30 03-08-2014
Laserje18

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tilks
Спасибо! Идеально работает.
Всего записей: 64 | Зарегистр. 11-09-2012 | Отправлено: 12:59 03-08-2014
inile

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
.
Всего записей: 1955 | Зарегистр. 29-06-2011 | Отправлено: 16:09 04-08-2014 | Исправлено: inile, 01:09 06-08-2014
msmih



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
del. вопрос снят
Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 07:17 20-08-2014 | Исправлено: msmih, 20:43 21-08-2014
ppoiuytre

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!  
Есть вопрос по приему параметров *.vbs"ом из виндовс сервиса.
Например есть скрипт, который реализует некий функционал,  (запуск скрипта автоматизирован). Так вот, появилась необходимость динамически параметры, с которыми запускается скрипт, менять.  
(параметры вида {12345AB} 1 {67890DC} 2)
// может возможно выполнять GET запрос, но как это реализуется?
если можно с примером.
 
Всем добра!
Всего записей: 4 | Зарегистр. 22-08-2014 | Отправлено: 14:53 22-08-2014 | Исправлено: ppoiuytre, 14:55 22-08-2014
unreal666



Gold Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ppoiuytre
что-то нифига не понятно. Кто должен менять эти параметры и где? И причем тут get-запросы?
Всего записей: 6671 | Зарегистр. 14-02-2005 | Отправлено: 15:04 22-08-2014
Tilks

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ppoiuytre
http://forum.ru-board.com/topic.cgi?forum=33&topic=1601#2
Всего записей: 2688 | Зарегистр. 14-08-2005 | Отправлено: 15:43 22-08-2014
ppoiuytre

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подробнее...
Всего записей: 4 | Зарегистр. 22-08-2014 | Отправлено: 16:07 22-08-2014 | Исправлено: ppoiuytre, 16:15 22-08-2014
Открыть новую тему     Написать ответ в эту тему

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru