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

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору kolonium проверит файл и добавит строки если их нет   Код:   str= array("строка1","строка2","строка3") Set fso = CreateObject("Scripting.FileSystemObject") Set fn = fso.OpenTextFile("111",1)   ftxt=fn.ReadAll fn.close   for i=0 to ubound(str) if instr(ftxt,str(i))=0 then ftxt=ftxt+chr(10)+str(i) next Set fn = fso.OpenTextFile("111",2) fn.Write ftxt fn.Close   Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 12:46 01-10-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Как правильно передать путь с системной переменной?   ExpandEnvironmentStrings Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 13:42 03-10-2012

Skif_off Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Black_Lung, спасибо, погуглил, заменил   FSO.GetFolder("C:\temp\foo_temp").Delete на FSO.GetFolder("WshShell.ExpandEnvironmentStrings(%Temp%)" & "\foo_temp").Delete получаю ту же ошибку - путь не найден. Что делаю не так?   Добавлено: Кажется, разобрался, вот так: FSO.GetFolder(WshShell.ExpandEnvironmentStrings("%TEMP%\foo_temp")).Delete вроде работает. Надеюсь, это первый и последний раз ) Всего записей: 6473 | Зарегистр. 28-01-2008 | Отправлено: 14:54 03-10-2012 | Исправлено: Skif_off, 16:20 03-10-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору FSO.GetFolder("WshShell.ExpandEnvironmentStrings(%Temp%)" & "\foo_temp").Delete будет искать "WshShell.ExpandEnvironmentStrings(%Temp%)\foo_temp" надо так: FSO.GetFolder(WshShell.ExpandEnvironmentStrings("%Temp%") & "\foo_temp").Delete Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 16:23 03-10-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Kar1son Потому что первый пример с ошибкой, скобки ненадо было ставить. Если нужно ProcessID то нужно так: Код: set oExec= oShell.Exec("c:\windows\system32\telnet.exe")     и скобки тогда нужны     Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 12:25 17-10-2012

Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Таки да, дело не в скобках. Exec не показыает окно консоль     там написано как получить PID без exec Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 12:46 18-10-2012 | Исправлено: Black_Lung, 13:06 18-10-2012

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Приветствую.   У нас с коллегой начинается тупняк. он на основе примеров создал vbs-скрипт, который при определённых условиях должен слать email. Делает он это через CDO.Message. Тестим через gmail аккаунт — всё хорошо работает. Проверяем через корпоративный почтовик — не пашет.   В чём суть, глянул логи smtp сервера (у нас настроен postfix с авторизацией через dovecot) — скрипт не авторизуется. Причём тупо даже не пытается, он сразу после приветствия сервера суёт ему "MAIL FROM", вместо "AUTH PLAIN". Все почтовые клиенты нормально работают с нашим почтовым сервером. В т.ч. попробовал отправить письмо через mailx (BSD утилита) и всё норм ушло. Сервер как и положено во всех SMTP-сессиях отдаёт 250-AUTH PLAIN.   В чём дело, кто может подсказать? Почему он у gmail авторизуется, а у нас даже не пытается? Настройки для gmail и для внутреннего почтовика.. ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 13:24 19-10-2012

vlary Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alukardd Для интереса проверил, у меня все работает без проблем Отправлял с Висты на КоммуниГейт. Вот сам скрипт: Подробнее... А это дебаг с лога КоммуниГейта:   Подробнее... ---------- Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек Всего записей: 17278 | Зарегистр. 13-06-2007 | Отправлено: 15:17 19-10-2012

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vlary Во, вижу сходство с gmail... А можно пробу через 25порт, а не 465?   Я, кстати, без дебага перед уходом с работы проверил через свой домашний сервер (там в отличии от работы стоит exim), тоже не сработала авторизация и как следствие Relay not permitted. TLS хоть и есть возможность и там и там использовать но в силу самоподписности всех почтовых сертификатов (и дома и на работе) всё гонял так в plain по 25порту. ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 19:09 19-10-2012

vlary Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alukardd   Цитата: А можно пробу через 25 порт, а не 465? Я подозреваю, что они могли сделать авторизацию исключительно через секурный порт, дабы пароль не ходил открытым текстом. Но проверить раньше понедельника все равно не смогу. ---------- Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек Всего записей: 17278 | Зарегистр. 13-06-2007 | Отправлено: 23:01 19-10-2012

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vlary Ну на 25 есть STARTTLS, типа всё сукьёрно... Но предположение очень интересное. А мне раньше понедельника и не надо. Тяпницу я пивом отметил, так что до понедельника о работе не думаем)   p.s. Надеюсь что к понедельнику не забудете) Если что я попробую в пон в личку написать. ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 23:42 19-10-2012

vlary Platinum Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alukardd Цитата: Надеюсь что к понедельнику не забудете)  Оказывается, я забыл выключить рабочий комп Поэтому смог проверить прямо сейчас. Все без проблем отработало и в этот раз. Поставил 25 порт и вообще убрал ssl Код: objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = _ False Вот новый лог с дебагом: Подробнее... ---------- Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек Всего записей: 17278 | Зарегистр. 13-06-2007 | Отправлено: 00:32 20-10-2012 | Исправлено: vlary, 10:47 20-10-2012

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору vlary Ай, у меня дома через 25порт ни чего не послать))) Только принимать... Устроил порочный круг. Цитата: auth_advertise_hosts = ${if eq{$tls_cipher}{}{}{*}}   .ifndef MAIN_TLS_ADVERTISE_HOSTS MAIN_TLS_ADVERTISE_HOSTS = ${if eq {$interface_port}{465}{*}{}} .endif tls_advertise_hosts = MAIN_TLS_ADVERTISE_HOSTS без tls'а нельзя авторизовываться, а tls разрешён только на 465 порту) Ну и еще exim не разрешает plaintext аутентификацию без tls — server_advertise_condition = ${if eq{$tls_cipher}{}{}{*}}, закоментить придётся.   Когда в понедельник вернусь к тестам, сниму ограничения... ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 11:14 20-10-2012 | Исправлено: Alukardd, 11:30 20-10-2012

Alukardd Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Собственно вот кусок сессии скрипта с моим почтовым сервером, результат такой же как и в случае с корпоративным почтовым сервером. Результат отсутствия авторизации очевиден: 7706 SMTP>> 550 relay not permitted.   В чём может быть проблема я хз... ---------- Microsoft gives you windows, linuх gives you the whole house... I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it. Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 12:46 22-10-2012 | Исправлено: Alukardd, 13:01 22-10-2012

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

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