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

coherent Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Tilks Цитата: проверил на xp виртуальном - удаляет Этот работает! Я же с такого приблизительно и начинал Осталось найти 10 отличий!!! Всего записей: 3892 | Зарегистр. 20-02-2007 | Отправлено: 00:19 10-01-2018

vasyosuol_24 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору coherent Цитата: та же ОС ХР и та же Авира Фри) такой проблемы нет. Любой антивирус-монитор - Зло! IMCO. Человек должен сам знать, что происходит на его компе, а не "навешивать" зловреды-тормозилки. Лучше держать антивирусный сканер, а ещё лучше - несколько, регулярно анализировать то, что происходит в системе. В конце-концов, тот же process viewer никто не отменял . Ну, а коли паранойя совсем замучает... Можно и руткиты в системе поискать. Извиняюсь за небольшой , я это всё к чему? Теже антивири-мониторы могут иметь разные настройки, могут себя по-разному вести с разными драйверами, и т.д. и т.п. В конце-концов, все их "вольности" никто так тщательно, как ОС не тестирует (и там - в случае с ОС могут быть проколы), так что возможно всё, что угодно. Я вообще считаю, что достаточно файрвола. Любого, который человек в состоянии правильно настроить, т.е. понимая что он делает и для чего. Чем резидент-монитор (антивирус), который будет заниматься непонятно какими задачами...   Ещё раз извиняюсь за   Всего записей: 1149 | Зарегистр. 16-01-2013 | Отправлено: 19:56 10-01-2018 | Исправлено: vasyosuol_24, 19:57 10-01-2018

serg3001 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Merlin2006 GETTSCIP не оно? Ссылка на загрузку Всего записей: 3918 | Зарегистр. 16-10-2010 | Отправлено: 13:23 11-01-2018 | Исправлено: serg3001, 13:24 11-01-2018

serg3001 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Merlin2006 попробуйте этот код: Код:   dim NIC1, Nic, StrIP, CompName   Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")   For Each Nic in NIC1   if Nic.IPEnabled then   StrIP = Nic.IPAddress(i)   Set WshNetwork = WScript.CreateObject("WScript.Network")   CompName= WshNetwork.Computername   MsgBox "IP Address:  "&StrIP & vbNewLine _ & "Computer Name:  "&CompName,4160,"IP Address and Computer Name"   wscript.quit   end if   next Ещё для VPN есть вариант, если нужно напишу. Всего записей: 3918 | Зарегистр. 16-10-2010 | Отправлено: 21:29 11-01-2018 | Исправлено: serg3001, 21:31 11-01-2018

serg3001 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Merlin2006 Цитата: Теперь, как его прикрутить к  1С 7.7. тогда в этой теме обсуждать теперь следующий шаг к привязке в 1С 7.7 Всего записей: 3918 | Зарегистр. 16-10-2010 | Отправлено: 17:32 12-01-2018

urok2007 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору всем доброго время суток   нужен скрипт vbs для запуска программы в фоновом режиме на 10 часов   к примеру скрипт запустил программу, подождал время и убил процесс программы, может кто поможет   Всего записей: 72 | Зарегистр. 10-08-2007 | Отправлено: 12:54 17-01-2018

gap5 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, кто ни будь писал скрипт для создания подписи в Outlook 2013 который берет данные из AD? Есть примерно такой скрипт, но проблема с длине некоторых полей, при вставке они отображаются в одну строку, возможно ли средствами VBS сделать перенос если больше Х символов?       Код: On Error Resume Next Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strRegard = "С уважением," strBlank ="" 'Получаем полное имя strName = objUser.FullName 'Должность strTitle = objUser.Title   ...   Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection Set objEmailOptions = objWord.EmailOptions Set objSignatureObject = objEmailOptions.EmailSignature Set objSignatureEntries = objSignatureObject.EmailSignatureEntries   ...   objSelection.TypeText strName objSelection.TypeText CHR(11) objSelection.TypeText strTitle objSelection.TypeText CHR(11)     Всего записей: 1072 | Зарегистр. 30-05-2006 | Отправлено: 12:08 22-01-2018

a929151 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору gap5 Chr(13) & Chr(10) не спасут? Обязательно нужен подсчёт символов? Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 15:36 22-01-2018

gap5 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору a929151 Проблема в том, что вставляется значение поля из active directory целиком и в одну строчку, например: Главный инженер отдела по консолидации и распределению особо важных производственных задач   а желательно так: Главный инженер отдела по консолидации и распределению   особо важных производственных задач   Соответственно без подсчета не знаю как тут обойтись, и надо еще как-то определять окончания слов, т.е. переносить на первом пробеле после Х символов.   Или как альтернатива в АД должности забить с каким ни будь невидимым спецсимволом, а в скрипте заменять этот спецсимвол на перенос. Всего записей: 1072 | Зарегистр. 30-05-2006 | Отправлено: 16:19 22-01-2018 | Исправлено: gap5, 16:22 22-01-2018

a929151 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Или как альтернатива в АД должности забить с каким ни будь невидимым спецсимволом, а в скрипте заменять этот спецсимвол на перенос. коряво конечно, но если других якорей нет, то лучше так. Всего записей: 1362 | Зарегистр. 30-03-2016 | Отправлено: 16:45 22-01-2018

gap5 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору а как такое лучше реализовать? ) Всего записей: 1072 | Зарегистр. 30-05-2006 | Отправлено: 18:08 22-01-2018

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

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