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

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

   

bygamer



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

Цитата:
выдаёт ошибку  

Запускать надо с аргументами  
cscript.exe script.vbs %folder% %mask%
или не передавать аргументом, а забить в скрипт
 

Цитата:
и ещё такой вопрос - как адаптировать скрипт для рекурсивного  поиска не файлов по маске, а одноимённых подпапок для обработки их функцией Doit ?

Дописать

Цитата:
 Set colFolders = objFolder.SubFolders  
  For Each objSubFolder In colFolders  

     If objSubFolder = нужная папка
       Doit objSubFolder
 
 
GRom_V
кавычки можно заменить на & ch(34) &  

Цитата:
WshShell.SendKeys "#I0000062B,1,#S31=7,0,0,128,129,255,255,255,255,255,"   & ch(34) & "Alarm"  & ch(34) &  "{ENTER}"  


Всего записей: 69 | Зарегистр. 12-07-2006 | Отправлено: 09:35 15-02-2010
GRom_V

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Pacho
Спасибо...
Еще вопросик - можноЛи как нить в Вин7 запустить, скриптом например, прогу от имени админа. Смысл в том чтоб пароль админа не давать?

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 09:52 15-02-2010
bygamer



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom_V
"runas" в 7ке отменили?

Всего записей: 69 | Зарегистр. 12-07-2006 | Отправлено: 10:35 15-02-2010
GRom V

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

Цитата:
"runas" в 7ке отменили?

Де не отменили конечно - но таким макаром запускается к сожелению далеко не все

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 13:35 15-02-2010
bygamer



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom V
ещё есть psexec.exe и подобные утилиты
и obj.Process.Create из WMI

Всего записей: 69 | Зарегистр. 12-07-2006 | Отправлено: 15:34 15-02-2010
Pacho



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom V
Есть ещё:

Код:
WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow])

Запуск от имени администратора:

Код:
vOperation="runas"


Код:
WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

Всего записей: 263 | Зарегистр. 02-04-2005 | Отправлено: 20:26 15-02-2010 | Исправлено: Pacho, 20:32 15-02-2010
GRom_V

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

Цитата:
Есть ещё:  
 
Код:WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow])  
Запуск от имени администратора:  
Код:vOperation="runas"  
Код:WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

 
Спасибо за пример - я в вбс не бетман...не мог бы не много уделить интелекта?
Во первых ругается на строку:  
WScript.CreateObject("Shell.Application").ShellExecute(sFile [, vArguments] [, vDirectory] [, vOperation] [, vShow])    - скобку просит...
 
Во вторых не совсем понял где сдесь указывается от какого пользователя запуск...как например запустить от имени Admin ?
Заранее спасибо...

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 02:51 16-02-2010
valmont



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

Цитата:
WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1


----------
TEMPORA MUTANTUR, ET NOS MUTAMUR IN ILLIS - времена меняются, и мы меняемся с ними.

Всего записей: 1187 | Зарегистр. 17-09-2002 | Отправлено: 08:25 16-02-2010
Pacho



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GRom_V
Метод ShellExecute объекта Shell выполняет указанное действие над указанным файлом.
sFile - имя файла
vDirectory - путь к каталогу с указанным файлом
vOperation - действие, которое необходимо выполнить
Подробнее.
 
Для "запуска от имени..." используется действие vOperation = "runas":

Код:
WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

Действие "runas" приводит к тому же действию, что и команда контекстного меню файла "Запуск от имени..." ("Запуск от имени администратора" в Windows Vista/2008/Seven):
В Windows 2000/XP/2003 вызывает диалоговое окно "Запуск от имени..."
 
В Windows Vista/2008/Seven вызывает UAC (Контроль учетных записей), для запуска от имени другого пользователя нужно использовать консольную утилиту runas.exe.
 
 
Подскажите, есть ли в VBScript методы, аналогичные Math.max() и Math.min() в JScript, вычисляющие максимальное/минимальное число из заданных?

Всего записей: 263 | Зарегистр. 02-04-2005 | Отправлено: 09:23 16-02-2010
vlth

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

Цитата:
Подскажите, есть ли в VBScript методы, аналогичные Math.max() и Math.min() в JScript, вычисляющие максимальное/минимальное число из заданных?

Нет, в VBScript таких нет. Для нахождения максимальных и минимальных значений нужно сортировать массивы.
Есть ещё вариант: объединять JScript и VBScript в одном .wsf-файле

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 12:15 16-02-2010
GRom V

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

Цитата:
Код:WScript.CreateObject("Shell.Application").ShellExecute "notepad.exe", , "C:\Windows", "runas", 1

 А можно как нить сделать чтоб скриптом и пароль набрать?

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 13:46 17-02-2010
weel



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток!
Меня терзает один вопрос - есть сервер с ценами, который постоянно отдает цены в формате XML, если URL вставить в браузер, то можно увидеть поток цен.
Можно ли их обработать с помощью VBS? Например найти в них строчку?
К сожалению адрес написать не могу, для служебного пользования...
 

Код:
 
sURI="http://******"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", sURI, False
wscript.echo oXMLHTTP.readyState
oXMLHTTP.Send(null)  
wscript.echo oXMLHTTP.readyState
wscript.sleep 5000
If oXMLHTTP.Status = 200 Then
wscript.echo "Ok"
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseXML
oADOStream.SaveToFile "D:\1.xml", 2
else
wscript.echo "Error"
end if
set oXMLHTTP=Nothing
 

 
файл таким образом скачать можно, а вот как быть с постоянным потоком цен?
Еще заметил, что первое сообщение

Код:
wscript.echo oXMLHTTP.readyState

показывает 2, а вот после  

Код:
oXMLHTTP.Send(null)  

сообщение уже не выскакивает и
скрипт зависает (я подозреваю из-за того, что нету конца загружаемой страницы)
Как можно прервать загрузку? Или может задать размер, который он должен загрузить?

Всего записей: 16 | Зарегистр. 04-08-2008 | Отправлено: 19:52 17-02-2010 | Исправлено: weel, 19:55 17-02-2010
arr1val

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день.
Подскажите как изменить скрипт:
 

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and DHCPEnabled=TRUE")
 
For Each objNetAdapter in colNetAdapters
  For Each strAddress in objNetAdapter.IPAddress
        arrOctets = Split(strAddress, ".")
        If arrOctets(0) and arrOctets(1) Then
            strNewAddress = arroctets(0) & "." & arroctets(1) & "." & arrOctets(2) & "." & "211"            
            arrIPAddress = Array(strNewAddress)
    strSubnetMask = objNetAdapter.IPSubnet
    strGateway = objNetAdapter.DefaultIPGateway
    strGatewayMetric = objNetAdapter.GatewayCostMetric
    arrDNSServers = objNetAdapter.DNSServerSearchOrder
    errEnable = objNetAdapter.EnableStatic(arrIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
  End If
 Next
Next

 
чтобы он менял все (маску, dns, wins, gateway), кроме айпишника, который и так уже статично задан. Заранее большое спасибо.
 
----------------------------------------
Пришли сами к такому решению:

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
 
strSubnetMask = "255.255.248.0"
 
 
For Each objNetAdapter in colNetAdapters
 
strIPAddress = CStr(objNetAdapter.IPAddress(0))
 
 errEnable = objNetAdapter.EnableStatic(Array(strIPAddress), Array(strSubnetMask))
 
Next

Всего записей: 43 | Зарегистр. 01-02-2008 | Отправлено: 18:12 19-02-2010 | Исправлено: arr1val, 19:40 19-02-2010
cambit

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уважаемые Знатоки!!  
Подскажите пожалуйста программу для быстрой компиляции vbs\js скриптов в ехе-файл так, чтобы не создавались временные папки.  
Я пробовал несколько vbstoexe программ, но все они создают саморапаковующиеся архивы и запускают скрипт из временных папок, а в результате теряются пути к запускаемым из скрипта исполняемым файлам. Также пробовал Scriptcryptor, который, как обещали работает по другому принципу, но созданный ею ехе-шник на Win98 не запустился ("Программа выполнила недопустимую операцию ...), а сама прога на 98-ой хоть и установилась, но запускатся тоже не захотела по то й же причине.  
ЕХЕ-файл должен запускаться из-под Win98SE!

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 09:08 22-02-2010 | Исправлено: cambit, 10:33 22-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit
Подобный вопрос задавал Hugo121 несколько страниц назад. Окончание обсуждения - на предыдущей странице.
Программирование "удобняшек" на VBScript, стр.70
Программирование "удобняшек" на VBScript, стр.72

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 11:25 22-02-2010
ZlydenGL



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа знающие, помогите пожалуйста!
 
Есть некий софт, написаный америкосами, а соответственно, в нем НЕ предусмотрена работа на ОСях, где в качестве региональных настроек используется что-либо помимо English (US). Переключать перед каждым запуском региональные настройки на English, а после завершения работы - обратно на Русский, довольно неудобно, но вот куда начать копать, чтобы эту задачу автоматизировать - найти не могу.  
 
Варианты работать исключительно с англоязычной локалью как-то рассматривать не хочется.
 
Можт кто подскажет направление поиска? Или пример скрипта?

----------
Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 12:00 22-02-2010
cambit

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

Цитата:
cambit  
Подобный вопрос задавал Hugo121 несколько страниц назад. Окончание обсуждения - на предыдущей странице.  
Программирование "удобняшек" на VBScript, стр.70  
Программирование "удобняшек" на VBScript, стр.72  

 
Ну не работает это все  под Win98! Ну что за напасть такая. Ставил на чистую машину (После Format с: ) Может чего надо доустановить?

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 20:11 22-02-2010 | Исправлено: cambit, 20:13 22-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ScriptCOM я использовал исключительно на машинке с Win98 SE. Потом был Primal Script 4 (кажется, под той же ОС). Скрипты компилировались без проблем.

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 20:52 22-02-2010
cambit

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

Цитата:
ScriptCOM я использовал исключительно на машинке с Win98 SE

Доступна версия - "Оптимизирована дл Windows 2000" А Ваша не завалялась случайно?

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 21:41 22-02-2010 | Исправлено: cambit, 22:40 22-02-2010
vlth

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambit
Из Readme:
Версия 0.21
Система  ScriptCOM предназначена для опытных пользователей и системных администраторов
Windows 9xZ/NT/2000
 
Только эта версия (0.21) - другой не видел - в Инете и есть.

Всего записей: 258 | Зарегистр. 22-01-2008 | Отправлено: 22:57 22-02-2010
   

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