» Программирование "удобняшек" на VBScript

mihmig

Цитата:

ха! ребут точки при зависании точки?

Точка действительно останавливается. Т.е. зависает не полностью, пинги есть, но инета нет, помогает только ребут (сигнал 96%, шумы -98dbm, замена точки на такую же из другой партии не помогла, прошивка тоже). Причина остановки передачи данных непонятная, толи в зоне Френеля что-то появилось, толи радиочастот надзор вычисляет. Тоже самое наблюдается и у остальных 6-ти Wi-fi сетях в разных районах. Такая ситуация наблюдается в начале месяца, примерно 1-2 недели. Потом всё нормализуется.

Rush

Цитата:

По дате создания:

Код:
set fso = createobject("scripting.filesystemobject")
set sha = createobject("shell.application")
set dir = sha.namespace("имя папки")  
set arr = dir.items
arr.filter 192, "Base*.rar"
for i = 0 to arr.count - 1
   if i > 0 then
      if fso.getfile(arr.item(i).path).datecreated < tmpdate then
         fso.deletefile arr.item(i).path
      else
         fso.deletefile tmppath
      end if
   end if
   if fso.fileexists(arr.item(i).path) then
      tmpdate = fso.getfile(arr.item(i).path).datecreated
      tmppath = arr.item(i).path
   end if
next

Спасибо огромное! Работает.

Доброго времени суток!

Ситуация такова:
есть ветка реестра... к примеру HKLM\system
нужно дать полный доступ на эту ветку пользователю Sasha

можно ли как-то это реализовать с помощью vbs?

заранее благодарен!

SANIOK_AV
Regperm.exe

Maza_Faka, спасибо...
Regperm.exe это как я понял сторонняя утилита... (можно и с помощью SubInACL.exe)
мне бы без сторонних утилит...

SANIOK_AV
без сторонних не получится

sLap
жалько...((

SANIOK_AV

Цитата:

нужно дать полный доступ на эту ветку пользователю Sasha
можно ли как-то это реализовать с помощью vbs?

Ну если Вас сильно напрягает таскать за скриптом subiacl.exe(cacls.exe или regperm)
есть библиотека для использования в vbs-скриптах функций из dll.

Зашел, хотел написать сообщение про доступ к ветке реестра конкретному пользователю, смотрю, последние сообщения как раз по моей теме. Задача такая же - без посторонних утилит и dll(типа subinacl, reginin, adssecurity.dll) с помощью vbs-скрипта дать конкретные права конкретному пользователю домена на ветку реестра. Примеры в инете есть, но все почти используют вспомогательные утилиты или dll. Как то нужно через setsecuritydescriptor попробовать сделать, но по возможности безо всяких вспомогательных программ. Если кто чем сможет помочь - буду премного благодарен

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

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

mihmig

Цитата:

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

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

Цитата:

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

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

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

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

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

Доброго времени суток, вопрос следующего содержания.
Вот скриптец, приведный несколько страниц назад... в закоментированной строке идет проверка, если файл старше 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

drsheff777
У тебя стоит удаление по дате модификации. А по ней ли ты смотрел даты файлов?
Ведь и более ранний файл ты мог изменить после более позднего.

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

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

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

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

Код: devcon disable "PCI\VEN_10EC&DEV_8139"

Shutswl

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

Цитата:

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

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

Maza_Faka
Спасибо большое! То что нужно )

Люди!!! Есть у когонить скрипт для автоматизированного входа в Telnet с набором логина и пароля???

Код: 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}"

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}"

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

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}" ........

Ребята, а как написать vb скрипт, который бы удалял в папке файлы, начинающиеся на букву "E"?

Помогите с VBS-скриптом.
Нужно на флешке постоянно отслеживать определенный файл, например demon.dem, и если файла нет или флешка отключена - запустить определенную программу.

Подскажите какие сведения я могу получить с помощью vbs (logon script для терминальной сессии) о операционной системе клиента который логинится на терминальный сервер?
На данный момент я могу определить имя его компьютера: WshShell.ExpandEnvironmentStrings("%clientname%")

Что ещё можно узнать? Интересует его ip, днс имя, версия системы, в общем любые сведения.