Postscriptum Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору niichavo Сенкс. Попробую.   У меня в Delphi, оказывается, есть замечательный Help, в котором все есть. Только вот в win32_Process такого свойства нет, я пробовал всяческие win32_Terminal, Win32_ServerSession,Win32_SessionProcess и т.д. и нигде не могу найти нужное мне свойство. У win32_Process есть свойство SessionId - вот где теперь по этому SessionId посмотреть - активен этот сеанс или нет? Всего записей: 464 | Зарегистр. 31-01-2004 | Отправлено: 02:08 03-07-2009 | Исправлено: Postscriptum, 02:21 03-07-2009

DrWarrior Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброе время суток!   Подскажите, как с помощью WSH прочитать нужную запись в DBF-файле? пробовал так: Set File = fso.GetFile(aDBPath&"1SDBSet.dbf") Set TS = File.OpenAsTextStream(1) Line2 = TS.ReadLine ' а также Read и ReadALL MsgBox(Line2)   но в итоге отображается несоклько символов "m" и все. Хотя длина строки Line2 соответствует длине файла 1SDBSET.DBF. Такое впечатление, что читываение идет до определенного символа(например перенос каретки) и все... Всего записей: 72 | Зарегистр. 12-09-2008 | Отправлено: 07:58 03-07-2009

DrWarrior Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Rush , спасибо!   попробуем через ADO..... Всего записей: 72 | Зарегистр. 12-09-2008 | Отправлено: 10:11 03-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору посоветуйте хороший редактор+отладчик для VBScript Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 11:25 03-07-2009

Integer27h Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору V0lt Цитата: посоветуйте хороший редактор+отладчик для VBScript PrimalScript Всего записей: 201 | Зарегистр. 11-09-2006 | Отправлено: 11:57 03-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Integer27h Цитата: PrimalScript с отладкой там беда какая-то Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 12:43 03-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mihmig Цитата: vbsedit спасибо, то что надо Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 15:13 04-07-2009 | Исправлено: V0lt, 22:45 05-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Можно ли сделать так, чтобы скрипт запускался через cscript.exe, а не wscript.exe? Т.е. надо чтобы юзер шелкнул по скрипту и увидел консоль в котором скрип рисует ход выполнения. Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 22:49 05-07-2009

Grisha_Tamashi_SAN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Хай, Олл. Сделал скриптик для автозагрузки цепочки комманд или программ в hidden режиме. ---hid_exec.vbs Код:   Option Explicit   On Error Resume Next   Dim WshShell   Set WshShell = WScript.CreateObject ("WScript.Shell")     'Число в скобках равно "количество дисков минус единица"   Dim TrueCryptCommands(2), TrueCryptCommand   TrueCryptCommands(0) = Chr(34) & "C:\Program Files\TrueCrypt\TrueCrypt.exe" & Chr(34) & " /v \Device\Harddisk1\Partition1 /lS /q background" 'Монтируем том TrueCryptCommands(1) = "net share Music$=s:\music /remark:" & """My Misic""" 'Создаем шары TrueCryptCommands(2) = "net share dist$=s:\dist /remark:" & """My distribution""" 'Создаем шары TrueCryptCommands(3) = WshShell.ExpandEnvironMentStrings("%SystemDrive%") & "\del_temp.bat" 'Удаляем временные файлы   For Each TrueCryptCommand in TrueCryptCommands   MSGbOX TrueCryptCommand    WshShell.Run TrueCryptCommand, 0, vbTrue   Next   ----hid_exec.vbs Отсюда вопрос, как использовать в данном случае функцию Environ, у меня что-то не получилось? Прошу сильно не пинать Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 12:04 06-07-2009

mozers Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору V0lt Есть несколько вариантов: Запускать скрипт из батника со сдедующим содержанием: Код: @cscript /nologo c:\path\my_script.vbs   Ассоциировать все скрипты с cscript. Для этого достаточно 1 раз выполнить команду: Код: wscript c:\path\my_script.vbs //H:CScript   Добавить в сам скрипт проверку движка, и если он отличается от CScript перезапустить скрипт: my_script.js : Код: var WshShell = new ActiveXObject("WScript.Shell");   if (/wscript.exe/i.test(WScript.FullName)){     WshShell.Run('cmd /f:on /t:1b /k title=My Super Script & cscript /nologo "' + WScript.ScriptFullName);     WScript.Quit(); }   WScript.Echo("go.. go.. go.."); // далее - весь остальной код...     cmd /k тут добавлено только для того, чтобы после окончания работы скрипта консольное окошко не схлопывалось. Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 16:14 06-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mozers Цитата: Добавить в сам скрипт проверку движка, и если он отличается от CScript перезапустить скрипт: а на бейсике можно? Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 18:36 06-07-2009 | Исправлено: V0lt, 18:38 06-07-2009

mozers Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору V0lt my_script.vbs : Код: Set WshShell = CreateObject("WScript.Shell")   If InStr(WScript.FullName, "cscript.exe") = 0 Then     WshShell.Run "cmd /f:on /t:1b /k title=My Super Script & cscript /nologo """ & WScript.ScriptFullName & """"     WScript.Quit End If   WScript.Echo "go.. go.. go.." ' далее - весь остальной код... Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 20:01 06-07-2009

V0lt Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mozers Большое спасибо! Всего записей: 10501 | Зарегистр. 05-02-2003 | Отправлено: 21:02 06-07-2009

Grisha_Tamashi_SAN Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Так что Environ никто не использует в скриптах? Всего записей: 44 | Зарегистр. 17-09-2002 | Отправлено: 14:02 07-07-2009

mihmig Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Пытаюсь решить следующую задачу: нужно автоматизировать вход на https-страничку поддержки провайдера и провести там действия. (В частности автоматическая смена пароля на PPPoE в зависимости от времени суток - ограничение для ребенка) Пишу скрипт: Код: Dim ie Set ie = WScript.CreateObject("InternetExplorer.Application") ie.visible = True ie.navigate("https://support.atknet.ru:443/") Do While IE.Busy   WScript.Sleep(100) Loop Dim form set form=ie.document.forms(0) form.username.value="11111111" form.password.value="22222222" form.submit   Все удачно проходит, начинает грузиться персональная страничка пользователя, но тут выскакивает сообщение IE: Эта страница содержит как безопасные, так и небезопасные элементы. Показать небезопасные элементы? Естесственно скрипт замирает. По поиску нашел support.microsoft.com/kb/184960, где четко и прописано: Данное поведение является особенностью продукта. Невозможно отключить это сообщение об ошибке.   Причину этого понял-долбаный вебмастер понапихал в https-страничку http-рекламных фреймов.   Я в шоке... Возможна-ли  альтернатива ослу IE? iMacros в firefox пробовал, но там надо вручную запускать сам макрос. Обратиться к вебмастеру тоже не мера- таких еще миллионы... Всего записей: 276 | Зарегистр. 25-09-2007 | Отправлено: 15:31 07-07-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

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование