Программирование "удобняшек" на VBScript - [51] :: Прикладное программирование

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

mihmig

Member

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

Serhi84
Поймите, движок Windows Script Host не предназначен для таких сложных вещей. Ну чем Вас не устраивает дополнительный, РОДНОЙ для Windows exe-файл subinacl?
Его что трудно рядом со скриптом положить? Зачем делать проблемы там где их можно обойти?

Ну покопайе WMI (Windows Management Instrumentation) - мож там есть объекты registry и security...

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 13:37 28-05-2009

SANIOK_AV

Full Member

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

mihmig

Цитата:

чем Вас не устраивает дополнительный, РОДНОЙ для Windows exe-файл subinacl?

он то устраивает...
но вот не хочется его таскать рядом со скриптами (в моём случае с батником)))...

Цитата:

Поймите, движок Windows Script Host не предназначен для таких сложных вещей.

думал есть в нём такая возможность ...

Всего записей: 485 | Зарегистр. 31-03-2009 | Отправлено: 14:00 28-05-2009

Serhi84

Junior Member

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

просто дело в том, что мне нужно выполнять скрипт машинах на 200, а копировать впридачу к скрипту еще что-то или регить dll - как то некрасиво) придется и правда WMI глянуть, может есть там что

Всего записей: 45 | Зарегистр. 31-01-2008 | Отправлено: 16:55 28-05-2009

mihmig

Member

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

Serhi84
Дык, сделайте скрипт, батник, все pstools,nircmd.exe и прочие примочечки, запакуйте все в самораспаковывающийся winrar - и получившийся единственный exe-шник запускайте на клиенте. В winrar-е (на нем кстати инсталляторы даже пишут) кидайте все exe сразу в system32 - на будущее так сказать.

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 12:25 29-05-2009

MAVrADMIN

Junior Member

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

Коллеги, помогите информацией о том, как через VBS реализовать включение/выключений галки "При подключении вывести значек в области уведомлений" в свойствах сетевого подключения

Всего записей: 194 | Зарегистр. 18-05-2006 | Отправлено: 13:12 29-05-2009 | Исправлено: MAVrADMIN, 13:13 29-05-2009

Maza_Faka Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору del
	Всего записей: 1420 \| Зарегистр. 25-10-2006 \| Отправлено: 15:26 29-05-2009 \| Исправлено: Maza_Faka, 15:29 29-05-2009

drsheff777

Newbie

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

Доброго времени суток, вопрос следующего содержания.
Вот скриптец, приведный несколько страниц назад... в закоментированной строке идет проверка, если файл старше 3х дней, то удалять. В папке "C:\UR\" лежит 2 файла, за 29.05 и 1.06, и почему-то скрипт убивате файл за 1.06, а 2й не трогает. Помогите разобраться, заранее премного благодарен.

Dim FSO1, WSH1
Dim TheFolder1, TheFiles1, AFile1
Set WSH1 = CreateObject("WScript.Shell")
Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set TheFolder1 = FSO1.GetFolder("C:\UR\") '==========Каталог, откуда удалять
Set TheFiles1 = TheFolder1.Files
For Each AFile1 In TheFiles1
'If FormatDateTime(AFile1.DateLastModified, 2) < FormatDateTime(Date-3, 2) Then AFile1.Delete
Next

Всего записей: 3 | Зарегистр. 01-06-2009 | Отправлено: 12:36 01-06-2009

Rush Уже за тридцать...	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору drsheff777 У тебя стоит удаление по дате модификации. А по ней ли ты смотрел даты файлов? Ведь и более ранний файл ты мог изменить после более позднего.
	Всего записей: 3551 \| Зарегистр. 20-11-2003 \| Отправлено: 16:39 01-06-2009

drsheff777

Newbie

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

Rush
Прошу прощения за "тупняк", но и при значении
If FormatDateTime(AFile1.DateCreated, 2) < FormatDateTime(Date-3, 2) Then AFile1.Delete
все равно происходит удаление файла созаного за сегодняшний день

Всего записей: 3 | Зарегистр. 01-06-2009 | Отправлено: 17:43 01-06-2009

Rush

Уже за тридцать...

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

drsheff777
Попробуй так

Код:

If DateValue(FormatDateTime(AFile1.DateLastModified, 2)) < DateValue(FormatDateTime(Date-3, 2)) Then AFile1.Delete

Кстати, я сам ступил в прошлом посте - забыл, что удаляются старше 3 дней, а не просто более старшие...

Добавлено:
Или даже лучше

Код:

If cdate(FormatDateTime(AFile1.DateLastModified, 2)) < cdate(FormatDateTime(Date-3, 2)) Then AFile1.Delete

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 18:26 01-06-2009 | Исправлено: Rush, 19:03 01-06-2009

Shutswl

Newbie

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

Есть батник отключающий сетевой адаптер

Код:

devcon disable "PCI\VEN_10EC&DEV_8139"

Появилась необходимость реализовать тоже самое в vbs. Подскажите в какую сторону копать..

Всего записей: 5 | Зарегистр. 09-07-2008 | Отправлено: 16:46 03-06-2009

Maza_Faka

Advanced Member

Shutswl

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "devcon disable ""PCI\VEN_10EC&DEV_8139""", 0

Всего записей: 1420 | Зарегистр. 25-10-2006 | Отправлено: 08:11 04-06-2009

mihmig

Member

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

Цитата:

отключающий сетевой адаптер

Не надо мучить девайсы

после нескольких вкл/выкл винда может затупить.
Если Вам надо отключить сетевое соединение попробуйте утилиту cnic.exe

Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 15:32 04-06-2009

Shutswl Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Maza_Faka Спасибо большое! То что нужно )
	Всего записей: 5 \| Зарегистр. 09-07-2008 \| Отправлено: 16:33 04-06-2009

GRom V Full Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Люди!!! Есть у когонить скрипт для автоматизированного входа в Telnet с набором логина и пароля???
	Всего записей: 466 \| Зарегистр. 31-10-2006 \| Отправлено: 04:12 09-06-2009

tatuchipapa

Junior Member

Код:

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 100
WshShell.SendKeys "telnet 192.168.0.1{ENTER}"
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "admin{ENTER}"
WScript.Sleep 300
WshShell.SendKeys "root{ENTER}"
WScript.Sleep 300
WshShell.SendKeys "Rebt{ENTER}"
WScript.Sleep 6000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 15000
WshShell.SendKeys "{ENTER}"
WshShell.SendKeys "exit{ENTER}"

скрипт для ребута через телнет, свои команды пропиши.

Всего записей: 48 | Зарегистр. 07-08-2007 | Отправлено: 20:04 09-06-2009

GRom V

Full Member

tatuchipapa
Спасибо!!!
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.AppActivate "C:\Windows\system32\cmd.exe"
WScript.Sleep 100
WshShell.SendKeys "telnet 192.168.0.1{ENTER}"
WScript.Sleep 300 - А можно чтоб вместо WScript.Sleep 300 было чтото типа WScript.Wait "username"
Т.Е чтоб ожиданиебыло не по таймеру а по выводу строки Login:
WshShell.SendKeys "admin{ENTER}"

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 04:49 10-06-2009 | Исправлено: GRom V, 08:03 10-06-2009

tatuchipapa Junior Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору вообще убери строку WScript.Sleep 300, тогда окно вода будет ждать пока наберёшь вручную логин
	Всего записей: 48 \| Зарегистр. 07-08-2007 \| Отправлено: 12:39 10-06-2009

GRom V

Full Member

tatuchipapa

Цитата:

вообще убери строку WScript.Sleep 300, тогда окно вода будет ждать пока наберёшь вручную логин

Втом то и дело что в ручную не надо! У меня получилось так:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.AppActivate "%system32%\cmd.exe"
WScript.Sleep 100
WshShell.SendKeys "telnet IP port{ENTER}"
WScript.Sleep 3000
WshShell.SendKeys "Login{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "pass{ENTER}"
WshShell.SendKeys "exit{ENTER}"
Но компы у всех разные - если пауза большая - ждешь
если маленькая - пролетает
А вот еслиб вместо таймера было ожидание строки Login: и если строка появилась то
WshShell.SendKeys "Login{ENTER}" ........

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 14:47 10-06-2009

argr1985 Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Ребята, а как написать vb скрипт, который бы удалял в папке файлы, начинающиеся на букву "E"?
	Всего записей: 2 \| Зарегистр. 06-03-2008 \| Отправлено: 11:50 16-06-2009

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