Пример вывода данных в MS Word из 1С 7.7

Еще один пример работы с Word из 1С 7.7, увидел тут .

Word = CreateObject("Word.Application");
Word.Documents.Add();
Word.Documents(1).Content.InsertAfter(“Уважаемый “ + СокрЛП(Директор)+"!");
MyRange = Word.Documents(1).paragraphs.last.range;
MyRange.Bold = 1;
Word.Documents(1).paragraphs.last.Alignment = 1; //center
Word.Documents(1).Content.InsertParagraphAfter();
Word.Documents(1).Content.InsertAfter("Вы нам должны "+Сумма);
Word.Documents(1).Content.InsertAfter(" "+СокрЛП(Валюта));
Word.Documents(1).paragraphs.last.range.Bold = 0;
Word.Documents(1).paragraphs.last.Alignment = 0; //left
Цифирь = Word.Documents(1).range (Word.ActiveDocument.paragraphs.last.range.End – 1 -СтрДлина(Строка(СокрЛП(Сумма)))-1-СтрДлина(Строка(СокрЛП(Валюта))),
Word.ActiveDocument.paragraphs.last.range.End – 1 -СтрДлина(Строка(СокрЛП(Валюта))));
Цифирь.Font.ColorIndex = 6; //wdRed
// показываем полученный текст
Word.Visible = 1;

Есть несколько тонкостей, на которые следует обратить внимание:
• вызывается объект “Word.Application”;
• нельзя передавать константы Word в качестве параметров функций – только их численные значения. А чтобы быстро узнать их значения, достаточно создать макрос в Word, а в нем воспользоваться процедурой MsgBox(). Например, если передать ей wdRed в качестве параметра, то получим 6 – значение константы;
• вместо True и False надо использовать 1 и 0;
• “Documents(1)” указывает на первый из открытых документов. Надежнее использовать “ActiveDocument” (ведь если Word уже был запущен, то ваш документ может оказаться не первым) – пример просто показывает, что работают оба варианта;
• обратите внимание, что объектом “Range” может быть как весь объект другого вида (слово, абзац, документ), так и конкретная область (ср. “MyRange” и “Цифирь”).
Основным источником информации на эту тему является файл справки по VBA для MS Word.

Удаление данных из Active Directory после неудачного понижения роли контроллера домена

Цитата отсюда: http://support.microsoft.com/kb/216498/ru - перед употреблением обязательно читать полностью.

Удалять руками пришлось после того как умер резервный контроллер домена 2003, расположенный на виртуальной машине, и в журнале событий главного КД постоянно сыпались ошибки, связанные с усопшим.

"Первый метод: только для Windows Server 2003 с пакетом обновления 1 (SP1) или более поздним пакетом обновления

Нажмите кнопку Пуск и последовательно выберите пункты Программы, Стандартные и Командная строка.

1. В командной строке введите ntdsutil и нажмите клавишу ВВОД.
2. Введите metadata cleanup и нажмите клавишу ВВОД. Для фактического выполнения удаления необходимо указать дополнительные параметры.
3. Введите команду connections и нажмите клавишу ВВОД. Это меню предназначено для подключения к серверу, на котором происходят изменения. Если текущий пользователь не обладает правами администратора, перед подключением следует указать другую учетную запись. Для этого введите команду set creds имя_доменаимя_пользователяПароль и нажмите клавишу ВВОД. В случае использования пустого пароля введите null.
4. Введите команду connect to server имя_сервера и нажмите клавишу ВВОД. Появится сообщение о подключении к серверу. При возникновении ошибки убедитесь, что доступен контроллер домена, который используется для подключения, а текущая учетная запись обладает правами администратора на сервере.
   
   Примечание. Если выполняется подключение к удаляемому серверу, то при попытке его удаления (действие 15) может появиться следующее сообщение об ошибке:
    

    Ошибка 2094. Невозможно удалить объект DSA0x2094 

    
5. Введите команду quit и нажмите клавишу ВВОД. Появится меню Metadata Cleanup.
6. Введите команду select operation target и нажмите клавишу ВВОД.
7. Введите команду list domains и нажмите клавишу ВВОД. Появится список доменов леса с номерами.
8. Введите команду select domain номер и нажмите клавишу ВВОД, где номер – номер домена, которому принадлежит удаляемый сервер. Выбранный домен используется для проверки того, является ли удаляемый сервер последним контроллером в этом домене.
9. Введите команду list sites и нажмите клавишу ВВОД. Появится список узлов с номерами.
10. Введите команду select site номер и нажмите клавишу ВВОД, где номер – номер узла, которому принадлежит удаляемый сервер. Появится подтверждение выбранного домена и узла.
11. Введите команду list servers in site и нажмите клавишу ВВОД. Появится список серверов узла с номерами.
12. Введите команду select server номер, где номер – номер удаляемого сервера. Появится подтверждение, которое содержит имя выбранного сервера, его DNS-имя и местонахождение учетной записи.
13. Введите команду quit и нажмите клавишу ВВОД. Появится меню Metadata Cleanup.
14. Введите команду remove selected server и нажмите клавишу ВВОД. Должно появиться сообщение об успешном удалении сервера. (Мне повезло, на этом работа по удалению закончилась) Появление следующего сообщения об ошибке свидетельствует о том, что объект NTDS Settings был удален из Active Directory ранее другим администратором или в результате репликации успешного удаления объекта после запуска программы DCPROMO.
     

    Ошибка 8419 (0x20E3)
    Не удается найти объект DSA
    
    Примечание. Это сообщение об ошибке также может появиться при подключении к удаляемому контроллеру домена. Программа Ntdsutil не должна подключаться к контроллеру домена, который будет удаляться при очистке метаданных.
15. Введите в каждом меню команду quit и нажмите клавишу ВВОД, чтобы завершить работу с программой Ntdsutil. Появится сообщение об отключении от сервера.
16. Удалите запись типа cname в зоне _msdcs.корневой_домен_леса на сервере DNS. Предположим, контроллер домена будет установлен повторно и его роль будет повышена. В этом случае создается новый объект NTDS Settings с новым идентификатором GUID и новой записью типа cname в DNS. Если не удалить старую запись типа cname, то она может быть использована существующими контроллерами домена.
    
    Кроме того, рекомендуется удалять имя компьютера и другие связанные с ним записи DNS. По истечении срока аренды адреса DHCP, выделенного данному серверу, другой компьютер может получить этот IP-адрес.
17. С помощью консоли управления DNS удалите в DNS запись A. Запись А также называют записью узла. Для удаления записи типа А щелкните ее правой кнопкой мыши и выберите команду Удалить. Удалите также запись типа cname в контейнере _msdcs. Для этого разверните контейнер _msdcs, правой кнопкой мыши щелкните запись cname и выберите команду Удалить.
    
    Внимание! Если удаляется DNS-сервер, необходимо удалить ссылку на данный контроллер домена на вкладке Серверы имен. Для этого в консоли DNS выберите имя домена в списке Зоны прямого просмотра и удалите сервер на вкладке Серверы имен.
    
    Примечание. Кроме того, сервер необходимо удалить из зон обратного просмотра (если они используются).
18. Если удаленный компьютер был последним контроллером в дочернем домене, который также удаляется, следует с помощью средства ADSIEdit удалить объект trustDomain дочернего домена. Для этого выполните следующие действия:
    1. Выберите в меню Пуск пункт Выполнить, введите команду adsiedit.msc и нажмите кнопку OК.
    2. Разверните контейнер Domain NC.
    3. Разверните DC=имя_домена, DC=COM, PRI, LOCAL, NET.
    4. Разверните узел CN=System.
    5. Щелкните правой кнопкой мыши объект Trust Domain и выберите команду Удалить.
19. Для удаления контроллера домена с помощью оснастки "Active Directory – cайты и службы" Для этого выполните следующие действия:
    1. Запустите оснастку "Active Directory – сайты и службы".
    2. Разверните элемент Узлы.
    3. Разверните узел сервера. По умолчанию используется узел Default-First-Site-Name.
    4. Разверните элемент Сервер.
    5. Щелкните правой кнопкой мыши контроллер домена и выберите команду Удалить.
20. При использовании репликации DFS в системе Windows Server 2008 или более поздней версии текущая версия средства Ntdsutil.exe не выполняет очистку объекта репликации DFS. В этом случае объекты репликации DFS для доменных служб Active Directory (AD DS) можно исправить вручную с помощью оснастки Adsiedit.msc. Для этого выполните действия, указанные ниже.
    1. Войдите на контроллер домена как администратор домена.
    2. Запустите оснастку Adsiedit.msc.
    3. Подключитесь к контексту именования по умолчанию.
    4. Найдите следующий контейнер топологии репликации DFS:
       CN=Topology,CN=Domain System Volume,CN=DFSR-Globalsettings,CN=System,DC=Your Domain,DC=Domain Suffix
       .
    5. Удалите объект CN msDFSR-Member с именем старого компьютера."

Ошибка при установке Microsoft Office. Службе установщика Windows не удаётся обновить один или несколько защищённых файлов Windows

Описание:
При установке Microsoft Office 2007/2010 на компьютер с операционной системой Windows XP может возникнуть проблема: в процессе установки появляется сообщение "Ошибка при установке Microsoft Office. Службе установщика Windows не удаётся обновить один или несколько защищённых файлов Windows.".

На Windows Vista и Windows 7 Microsoft Office ставится без проблем, однако, как показывает практика, часто возникает желание поставить офис на Windows XP.

После появления ошибки выполняется полный откат изменений.

Решение:
1) Найти папку по следующему адресу Program Files/Common Files/Microsoft Shared/web server extensions/40/bin
2) Скачать файл fp4autl.dll с машины с такой же версией Windows, или найти в интернет.
3) Поместить полученный файл в вышеуказанную папку.

Если Windows покажет сообщение:"Файлы, нужные для правильной работы Windows, были заменены неизвестными версиями. Для обеспечения стабильной работы системы Windows необходимо восстановить оригинальные версии этих файлов.", смело игнорируем его.

4) Заново запускаем установку Microsoft Office. На этот раз она должна пойти без ошибок, по крайней мере без этой :)

P.S. Если ошибка повторяется, пробуем перегрузить компьютер. После этого обязательно проверяем, есть ли необходимый файл в нужной папке (пункты 1 и 2). Если нет, то повторяем вышеуказанные действия.

Эмуляторы устройств TP-LINK

Крайне полезная вещь для ознакомления с функционалом устройства - на сайте производителя.

Наглядно демонстрирует, например, что именно умеет тот или иной WiFi-роутер.

http://www.tp-link.com/en/support/emulators/

Коллекции драйверов: ссылки

http://driverpacks.net/ - богатая коллекция драйверов, сгруппированная по категориям и доступная к скачиванию через торренты.

http://drp.su/ru/ - это самая популярная программа для автоматической установки, обновления и поиска драйверов. Поможет скачать драйвера бесплатно.
Это универсальный менеджер установки драйверов для всех версий Windows. В отличие от встроенной в Windows 7 функции обновления драйверов, этой программой можно пользоваться даже без наличия Интернета и для поиска/установки драйверов не только на устройства популярных вендеров (как в случае с Windows Update).

Эксперимент с обезьянами: формирование общества.

Клетка. В ней 5 обезьян. К потолку подвязана связка бананов. Под ними
лестница. Проголодавшись, одна из обезьян подошла к лестнице с явными
намерениями достать банан. Как только она дотронулась до лестницы, вы
открываете кран и со шланга поливаете ВСЕХ обезьян очень холодной водой.
Проходит немного времени, и другая обезьяна пытается полакомится
бананом. Те же действия с вашей стороны.
ОТКЛЮЧИТЕ ВОДУ.
Третья обезьяна, одурев от голода пытается достать банан, но остальные
хватают ее, не желая холодного душа.
А теперь, уберите одну обезьяну из клетки и замените ее новой обезьяной.
Она сразу же, заметив бананы, пытается их достать. К своему ужасу, она
увидела злые морды остальных обезьян атакующих ее. После третьей попытки
она поняла, что достать банан ей не удастся. Теперь уберите из клетки
еще одну из первоначальных пяти обезьян и запустите туда новенькую. Как
только она попыталась достать банан, все обезьяны дружно атаковали ее,
причем и та, которую заменили первой (да еще с энтузиазмом).
И так, постепенно заменяя всех обезьян, вы придете к ситуации, когда в
клетке окажутся 5 обезьян, которых водой вообще не поливали, но которые
не позволят никому достать банан.
Почему?
ПОТОМУ, ЧТО ТАК ТУТ ЗАВЕДЕНО!

(C) очень многие

Платон. Апология Сократа.

Нашел на oper.ru фрагмент текста, придется читать полностью :)

"После государственных людей ходил я к поэтам — и к трагическим, и к дифирамбическим, и ко всем прочим, — чтобы хоть тут уличить себя в том, что я невежественнее их. Брал я те из их произведений, которые, как мне казалось, всего тщательнее ими обработаны, и спрашивал у них, что именно они хотели сказать, чтобы, кстати, научиться от них кое-чему. Стыдно мне, афиняне, сказать вам правду, а сказать все-таки следует. Одним словом, чуть ли не все там присутствовавшие лучше могли бы объяснить творчество этих поэтов, чем они сами. Таким образом, и о поэтах я узнал в короткое время, что не благодаря мудрости могут они творить то, что творят, но благодаря какой-то природной способности и в исступлении, подобно гадателям и прорицателям; ведь и эти тоже говорят много хорошего, но совсем не знают того, о чем говорят. Нечто подобное, как мне показалось, испытывают и поэты; и в то же время я заметил, что из-за своего поэтического дарования они считают себя мудрейшими из людей и во всем прочем, а на деле это не так. Ушел я и оттуда, думая, что превосхожу их тем же самым, чем и государственных людей.
Наконец пошел я и к тем, кто занимается ручным трудом. Я сознавал, что сам, попросту говоря, ничего не умею, зато был уверен, что уже среди них найду таких, кто знает много хорошего. Тут я не ошибся; в самом деле они умели делать то, чего я не умел, и в этом были мудрее меня. Но, афиняне, мне показалось, что они грешили тем же, чем и поэты: оттого что они хорошо владели своим делом, каждый из них считал себя самым мудрым также и во всем прочем, даже в самых важных вопросах, и это заблуждение заслоняло собою ту мудрость, какая у них была; так что, желая оправдать слова оракула, я спрашивал сам себя, что бы я для себя предпочел: оставаться ли таким, как есть, и не быть ни мудрым их мудростью, ни невежественным их невежеством или, как они, быть и мудрым и невежественным. И я отвечал самому себе и оракулу, что лучше уж мне оставаться как есть."

Статья в Wiki.
Текст полностью.

Иногда похоже

(С) где-то в интернете

Усложнение сущностей :) Желающим выбрать велосипед.

На момент публикации автором планировал покупать велосипед, зацепило. Цитирую полностью, т.к. журнал сменил владельца. Жаль, некоторые статьи были очень _бодрые_.

"Люди "в теме" очень любят переусложнять вопрос, которым занимаются.

Взять, к примеру, фотографию. Сколько копий ломается на форумах относительно преимуществ одной техники над другой, как сложно разобраться во всём этом неофиту, какими страшными бюджетами на минимальный приличный комплект его пугают... А на самом деле, как я убедился со временем, всё гораздо проще - на совершенно разную технику люди снимают совершенно по-разному, поэтому не суть важно, чем будет пользоваться любитель. Или извечный вопрос "какой нож носить для самообороны". Ооо, сколько многословных дискуссий на эту тему! А на самом деле, ответ-то в сущности прост: любой. Главное - носи, блеать.

Это всё к чему: в связи с наступлением весны и переездом в центр города, у меня появился очередной порыв купить велосипед. Стоило чуть-чуть почитать интернет на эту тему, как пришла пора то ли рассмеяться, то ли ужаснуться: почитать велосипедные форумы, так возникает ощущение, что велик - агрегат посложнее самолёта. Что выбрать его можно, только изучив огромный объём теории и практики, посоветовавшись с различными гуру (причём, уровень высокомерия к этой среде покруче фотографического), и уж конечно, стоить это будет больше любой суммы, которую вы неосторожно озвучите в качестве ориентира. Страсти какие-то творятся на любом форуме и в любой статье - непонятные англицизмы, советы по сбору какого-то конструктора... про ашанбайки какие-то хихикают.
...
Выглядит очень забавно. Я, конечно же, понимаю, что какая-то экстремальная езда, а уж тем паче - спорт или туризм, это дело, требующее серьёзного знания вопроса, и, разумеется, довольно приличных денег. Как и в любой сфере, серьёзная задача требует для решения серьёзного же подхода. Но ей-Богу, большинство неофитов-то как в фотографии хотят снимать кошечек и цветочки, как с ножом не будут тренироваться по снарядам и выступать на турнирах, так и тут - тупо хотят покатать жопу в своё удовольствие, а не увлечённо ковыряться в железках и собирать конфигурацию мечты. Ну надо же проще быть))

В конце концов, ездил я когда-то на обычном совковом велосипеде, уж не помню каком - и ничего. Конечно, экстримом всяким или велотуризмом на нём не позаниматься, спортивного результата не показать, но вроде он не развалился в ходе эксплуатации, и я на нём не убился. Совершенно не разбираясь в трансмиссиях и амортизаторах)) А так, возникает ощущение, что большинству публики на этих ресурсах в жизни не хватает более серьёзных проблем. "

Найдено когда-то здесь Danny King's "The Lad Diaries" - Why so serious?

Восстановление стека TCP/IP в Windows XP

Мне статья помогла после того, как в декабре 2012 года, AVAST решил, что файл tcpip.sys - страшный и ужасный вирус.Сегодня нашел ее в закладках, решил сохранить на всякий случай :)
 
Парочка решений, как восстановить систему с аналогичной проблемой, есть тут и тут.

Далее - одна большая цитата от http://milleniumbug.livejournal.com/.


"Возможно, вы сталкивались с вирусами/троянами, после лечения которых перестает нормально работать сеть («компьютер не выходит в интернет»). Как человек, угробивший кучу времени на борьбу с этим замечательным явлением на нескольких компьютерах, считаю нужным записать рецепт.

Как может проявляться проблема:

• Команда ipconfig выдает ошибку.
• Не работает получение адреса по dhcp (команда ipconfig /renew).
• «Странные знаки» вместо IP-адреса в выводе команды ping.
• Касперский при запуске выдает ошибки типа «Сбой при запуске монитора HTTP-трафика».
• ActiveSync при запуске выдает ошибку типа «TCP/IP network transport is not installed».
• В диспетчере устройств при включенном «Показать скрытые устройства» в разделе «Драйверы устройств не Plug and Play» драйвер протокола TCP/IP не виден или показан как отключенный и отображается сообщение об ошибке.

Могут, естественно, быть и другие симптомы.

Как можно бороться:
Внимание! Текст писался давно и про Windows XP. Вполне допускаю, что в более современных версиях названия папок, файлов, кнопок в окнах и прочего отличаются. Более того, эти рецепты могут вообще не подойти. Используйте с умом, пожалуйста :)

Начинаю я со сканирования всех жестких дисков с аварийного диска Касперского со свежими базами. Править недолеченную винду — удовольствия мало, да и смысла может не быть.

Если у каких-то сетевых соединений IP-адреса назначены вручную, выписываем их или делаем скриншоты. На следующем шаге эти настройки скорее всего слетят.

Даем команду netsh int ip reset, перезагружаемся. Помогло? Замечательно. Нет? Едем дальше.

Даем команду netsh winsock reset, перезагружаемся. Это может не работать на Windows до SP2. После этого действия может слететь интеграция в стек TCP/IP антивирусов, фаерволлов, клиентов для проксей. Правится или повторной установкой нужных галок в настройках этих программ, или их переустановкой.

Простые методы закончились :) Возможно, поврежден или остутствует файл tcpip.sys. Восстановить его можно командой expand X:\i386\tcpip.sy_ c:\windows\system32\tcpip.sys, где X: — буква диска с дистрибутивом. После восстановления перезагружаемся.

Возможно, дело в каких-то еще системных файлах, потертых или измененных. Запустить проверку с восстановлением из дистрибутива по необходимости можно командой sfc /scannow. Мне не помогло, работало долго, но ошибок никаких не нашло.

Видел рекомендацию воспользоваться софтинкой http://www.snapfiles.com/get/winsockxpfix.html — мне не помогло, но «десять баксов-то не лишние» — вдруг кому поможет. Софтинка небольшая, около мегабайта весит.

Можно попробовать заново установить протокол TCP/IP. В свойствах подключения к локальной сети на вкладке Общие щелкаем Установить -> Протокол -> Добавить. В окне Выбор сетевых протоколов щелкаем Установить с диска, вводим путь C:\windows\inf, нажимаем ОК. Выделяем Протокол Интернета (TCP/IP), нажимаем ОК. Проверяем настройки IP, перезагружаемся.

Можно попробовать в диспетчере устройств удалить и установить заново сетевую карту. Я не пробовал.

Полная переустановка TCP/IP (собственно, статья скопирована из-за него :) ):
Если ничего из вышеперечисленного не восстановило работоспособность, осталась еще одна процедура, помогающая избежать переустановки Windows. Кстати, переустановка «поверх», с сохранением настроек, программ и документов, может не устранить проблему. Пробовал, сталкивался.

Итак, отращиваем бороду, покупаем бубен, надеваем толстые очки и засучиваем рукава.

Внимание! Текст писался давно и про Windows XP. Вполне допускаю, что в более современных версиях названия папок, файлов, кнопок в окнах и прочего отличаются. Более того, эти рецепты могут вообще не подойти. Используйте с умом, пожалуйста :)

1. Открываем в блокноте файл c:\windows\inf\nettcpip.inf.
2. Находим секцию [MS_TCPIP.PrimaryInstall]..
3. В записи Characteristics = 0xA0 замеяем 0xA0 на 0x80.
4. Сохраняем, закрываем.
5. Открываем Сетевые подключения, там открываем свойства Подключения к локальной сети.
6. На вкладке Общие щелкаем Установить -> Протокол -> Добавить.
7. В окне Выбор сетевых протоколов щелкаем Установить с диска.
8. Вводим путь C:\windows\inf, нажимаем ОК.
9. Выделяем Протокол Интернета (TCP/IP), нажимаем ОК. Теперь в свойстве подключения стало возможно снести TCP/IP.
10. Выделяем Протокол Интернета (TCP/IP), нажимаем кнопку Удалить, затем ОК.
11. Запускаем regedit, удаляем ветки реестра HKLM\System\CurrentControlSet\Services\Winsock и HKLM\System\CurrentControlSet\Services\Winsock2.
12. Перезагружаемся.
13. В файле c:\windows\inf\nettcpip.inf меняем обратно 0x80 на 0xA0, сохраняем, закрываем.
14. Открываем Сетевые подключения, там открываем свойства Подключения к локальной сети.
15. На вкладке Общие щелкаем Установить -> Протокол -> Добавить.
16. Выделяем Протокол Интернета (TCP/IP), нажимаем ОК.
17. При необходимости восстанавливаем настройки адресов IP, перезагружаемся. TCP/IP работает.

Предпоследний пункт может не сработать, выдав «расширенную ошибку». Возможно, если не менять обратно файл nettcpip.inf, этой ошибки не возникнет. Дело в том, что системная база безопасности почему-то оказывается в неправильном состоянии. Как быть в этом случае? Для проверки сначала запускаем команду:

esentutl /g c:\windows\security\Database\secedit.sdb

Если в выводе между строчками Checking database integrity и Integrity check successful нет никаких сообщений, что что-то не так, значит с базой все в порядке. У меня было сообщение типа This operation may find that this database is corrupt.

Пробуем восстановление базы (у меня не сработало):

esentutl /r c:\windows\security\Database\secedit.sdb

Делаем ремонт базы:

esentutl /p c:\windows\security\Database\secedit.sdb

После этого запуск с ключом /g должен показать, что база в порядке, и TCP/IP установится. Эти манипуляции с базой безопасности могут что-то такое сделать с групповыми политиками, так что если вы ими пользуетесь, проверьте, все ли там в порядке.

Надеюсь, все написанное здесь вам не пригодится, а если все-таки пригодится, то сэкономит немало времени и нервов. "

Оригинал тут: http://milleniumbug.livejournal.com/9703.html?nojs=1

А действительно, почему? Может соя разная? :)

xxx: Почему, если "соевая кулинария" лежит в отделе, как вы написали, "здорового питания" - они офигенски полезна. Соевый соус (к суши всяким) - тоже круто и полезно. А если добавлена, например, в колбасу - то страшный яд, ГМО и причина рака?

Источник: http://bash.im/quote/420594

В Windows 7 сбились ассоциации файлов

Симптомы:
Не открывается ни одна программа или документ. 
На все действия выскакивает, например, Windows Media Center. (программа произвольная, у каждого своя - на какую сбились настройки)
И на всех иконках и EXE-шниках значок этой программы.

Решение:
Пуск - Выполнить - regedit.
Вкладки HKEY_CURRENT_USER > Software > Microsoft > Windows > CurrentVersion > Explorer > FileExts > .exe выделить вкладку UserChoice и удалить её.
Перезагрузка компьютера. 

В журнале приложений регистрируется событие с кодом 8

В журнале событий каждые 2 минуты регистрируется такое событие:




Тип события: Ошибка
Источник события: crypt32
Категория события: Отсутствует
Код события: 8
Дата: 02.11.2010
Время: 11:57:19
Пользователь: Н/Д
Компьютер: COMPUTER
Описание:
Ошибка получения автоматического обновления последовательного номера стороннего корневого списка из: с кодом ошибки: Возврат из операции произошел из-за превышения времени ожидания.

Если видим это, открываем "Установка/удаление программ" - "Установка компонентов Windows", и снимаем там флажок с "Обновление корневых сертификатов".
 

Почитать тут:

http://support.microsoft.com/kb/317541/ru

http://alex-tesla.livejournal.com/4113.html

Не работает заливка ячеек в MS Excel

Описание и симптомы:
Не работает заливка ячеек в MS Excel 2003.
Заливка ячеек и цвет шрифта наблюдается только в режиме просмотра и во время ввода данных, а после ввода все становится черно-белым.
Условное форматирование 100% не причем
Если зайти в систему под другим пользователем, всё нормально.
Переустановка Excel не помогает.

Решение:
Отключаем "Панель управления > Специальные возможности > Экран > Высокая контрастность"

А первый раз решил проблему удалением профиля пользователя :)

Глубокая мысль

Цитата:

В Петербурге весной таял лёд на Неве, и переходить через реку по льду стало опасно. Градоначальник распорядился поставить полицейских на берегу Невы и запрещать переход по льду. Какой–то крестьянин, несмотря на крики городового, пошёл по льду, провалился и стал тонуть. Городовой спас его от гибели, а крестьянин вместо благодарности стал упрекать его: «Чего смотрите?» Городовой говорит ему: «Я же тебе кричал». — «Кричал! Надо было в морду дать!»

(c) Лосский, Н. Характер русского народа
в Сб.: Философия: хрестоматия, — М., Изд–во РАГС, 2006. — с. 579. 

Нашел на oper.ru. Там же, в комментариях:

 

Разговаривают двое:
- Вот ты знаешь, кого в мире больше, людей с визуальным или аудиальным восприятием?
- С кинестетическим. Пока в морду не дашь, нихрена не воспринимают!

Как включить telnet в windows 7

Пуск - Панель управления - Программы и компоненты - Включение или отключение компонентов Windows - Клиент Telnet

Или в командной строке ввести
Пуск - cmd - в появившемся окне правой мышкой на приложение - запуск от имени Администратора:

dism /online /Enable-Feature /FeatureName:TelnetClient

Если список компонентов пустой, правим реестр (проверено только на Win32):

Пуск - regedit - HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows

для параметра CSDVersion вместо "200" поставить "0"

1С неправильно расчитывает номер недели в году

     Для определения номера недели в конфигурациях 1С обычно используется стандартная функция НомерНеделиГода(). Судя по всему, 1С считает по американской системе:
"По европейской норме (DIN 1355 / ISO 8601) первой неделей года считается неделя, содержащая 4 января данного года (http://vsegost.com/Catalog/62/6263.shtml). А в США первой неделей считается любая неделя, содержащая первое января, независимо от числа дней".
     Чтобы 1С возвращала номер недели, совпадающий с "человеческими" календарями и ежедневниками, предлагается использовать следующую функцию:

Функция глНомерНеделиГода(_дата) Экспорт

   ЧетвертоеЯнваря = НачГода(_дата) + 3; 
   НачалоПервойНедели = НачНедели(ЧетвертоеЯнваря);  

   Если _дата < НачалоПервойНедели Тогда
      // дата принадлежит последней неделе прошлого года.
      Возврат глНомерНеделиГода(Дата(ДатаГод(_дата)-1, 12, 31));
   Иначе
      // получаем разницу дат в неделях.
      КоличествоНедель = Цел((НачНедели(_дата) - НачалоПервойНедели)/7);
      Возврат 1 + КоличествоНедель;
   КонецЕсли;

КонецФункции   // глНомерНеделиГода()

Обсуждение здесь: http://forum.infostart.ru/forum26/topic61578/

ГОСТ здесь: http://vsegost.com/Catalog/62/6263.shtml

Обновил ПК

Мат.плата ASUS AM3+ M5A97 R2.0, AMD970/SB950, 4xDDR3, CrossFireX, 6xSATA3, USB3.0, 2xPCI, 2xPCI 2xPCI-E 1x, ATX  

http://www.itplanet.zp.ua/catalog#p110712

http://www.asus.com/Motherboards/M5A97_R20/

Процессор AMD Athlon II X4 640 box AM3 (3,0ГГц,FSB 2000МГц,2MB,Propus,95W,Сок.АM3, Cooling Fan)
http://www.itplanet.zp.ua/catalog#p34851 

Модуль памяти DDR-III 2 x 4Gb 1866MHz KINGSTON XMP Genesis (KHX1866C9D3K2/8GX)
http://www.itplanet.zp.ua/catalog#p104150 

Gainward GeForce® GT 610 1024MB SilentFX
http://www.gainward.com/main/vgapro.php?id=873&lang=ru

Взял в www.itplanet.zp.ua через Андрея +38 (067 ) 732-21-62 из КК "Клад".
Заменяемые запчасти установил на ПК Святослава.

+ взял родителям планшет Go Clever A73 в Микротроне на Маяковского.

Савонарола

Только просмотрел сериал "Борджиа", как в очередном выпуске наткнулся на отличную статью :)


" ... Жил когда-то во Флоренции один монах, звали его Джироламо Савонарола, по-нашему Ерёма. Многие знают его из игры Assassin's Creed и отличного сериала "Борджиа". Читал Ерёма задушевные проповеди, призывал итальянцев, погрязших в грехах, к покаянию. Если вы, паскуды гнусные, говорил Савонарола, не прекратите жульничать и воровать, баловаться в попу и грешить по-всякому, господь обрушит свой гнев на Италию, и тогда всем вам кранты. Флорентийцы слушали внимательно, ибо в грехах знали толк — само слово "флорентиец" в те времена обозначало гражданина гомосексуальной ориентации, а жуликов и воров в городе было без счёта.

Говорил Ерёма очень хорошо, слова выбирал умело, вплоть до матерных. Покровы рвал так, что треск было слышно ажно в Ватикане. Себя позиционировал как передатчик мыслей бога. Люди верили — они постоянно во что-нибудь верят. В речи свои Ерёма постоянно вкраплял цитаты из евангелий, а когда ему на это указывали — сообщал, что эти слова сошли к нему с небес. После обжигающих мозг проповедей бедные и богатые массово каялись: бедные — в мелких грешках, богатые — делали по-большому, несли на сдачу в церкви наворованные деньги. Или, как это тогда говорили, неправедно нажитое.

Тогдашний хозяин Флоренции, предводитель флорентийских жуликов и воров, известный олигарх и упырь Лаврентий Медичи срочно запретил Ерёме выступать хотя бы во время поста. Ибо отлаженная европейская система поборов с бесправных бедных разваливалась на глазах. Но карта легла так, что Ерёма поставил Лаврентия на лыжи и выпёр из Флоренции. После чего занялся очищением мозгов горожан вплотную. Королём Флоренции Ерёма назначил Иисуса Христа, а себя считал его избранником. В городе прекратились песни-пляски и разврат, никто не ходил в ночные клубы, все усиленно молились и блюли себя.

Поддерживали Савонаролу, как нетрудно догадаться, в основном бедные. Им было не на что обжираться и развратничать, поэтому богатых они, как подобает всем бедным, люто ненавидели. Данная ненависть, как нетрудно догадаться, не является специфически русской чертой, богатых ненавидят везде. Богатые не сдавались и склоняли население к разврату, за что Савонарола называл их бесноватыми. Виданное дело — грешить, когда городом управляет сам Иисус Христос?! Это не просто жулики и воры, это одержимые бесами.

Склонённый к честности народ массово пел псалмы и без устали посещал церкви. Ерёма заставил всех сдать порнографические открытки, игральные карты, кости и даже домино. Туда же добавили парики, зеркала, косметички, бирюльки. Всё это собрали в кучу, добавили туда музыкальных инструментов (это были, как нетрудно догадаться, инструменты разврата) и спалили на "кострах тщеславия". Художник Ботичелли каялся и лично закидывал свои произведения в костёр. Художник Микеланджело поддерживал воровской ход, а потому из города сбежал. Без карт и домино обстановка в городе накалилась до предела.

Нетрудно догадаться, что бесноватым аристократам, составлявшим тогдашнюю партию жуликов и воров, всё это не нравилось. Зачем деньги, если нельзя обжираться и погрязать в разврате? Этот вопрос вам и сегодня задаст 95% граждан в любой стране мира. Грабь, бухай, отдыхай! — таким был лозунг жуликов и воров и четыреста лет назад, и тысячу, и две. Бесноватые договорились с папой римским и с помощью гнусных интриг взяли Савонаролу под стражу. В тюрьме его прежестоко пытали по десять раз на дню и заставили отречься от всего, что он говорил. Сказки о том, что такое бывает только в России — тупые сказки.

Ну а потом на площади синьории соорудили виселицу и Джироламу под радостный вой толпы повесили. А повешенного — сунули в костёр и при огромном стечении народа сожгли. Вокруг костра радостно плясали, скакали и орали от восторга содомиты. Рядом плясали барыги, которым снова можно было обманывать, обвешивать, обсчитывать, кидать и давать деньги в рост. Ещё не погас костёр, а горожане уже бухали, орали пьяные песни и предавались разврату во все отверстия, забыв о том, что говорили на исповедях и в чём клялись ещё вчера. Всё вернулось на круги своя, ибо слаб человечишко — не может не воровать и не развратничать. ..."

Проблема при старте/подключении Cisco AnyConnect Client

При попытке поднять VPN-соединение с ЦО при помощи Cisco AnyConnect получаем сообщение: "The VPN client agent was unable to create the interprocess communication depot."

Решение нашел на http://social.technet.microsoft.com/Forums

hi friend
the solution is:
    Click the "Start" button.
    Click on "Control Panel".
    Click on "View Network Status and Tasks"
    Click on "Change adapter settings"
    Right-click the shared connection and choose "Properties"
    Click the "Sharing" tab
    Clear the "Allow other network users to connect through this computer's Internet connection" checkbox
    Click OK 
Now reinstall Cisco anyconnect ...
enjoy




upd. 2015-03-23
При ошибке "AnyConnect was not able to establish a connection to the specified secure gateway. Please try connect again" после ввода пароля, решение такое же - отключить шаринг.

При перезагрузке компьютера под управлением Windows Server 2003 или Windows 2000 Server компьютер перестает отвечать на запросы либо экран «Применение параметров компьютера» отображается дольше обычного

Проблема

При перезагрузке компьютера под управлением Windows Server 2003 или Windows 2000 Server возникают следующие проблемы:

1. Во время перезагрузки появляется экран «Применение параметров компьютера», и компьютер перестает отвечать на запросы.
2. Во время перезагрузки экран «Применение параметров компьютера» отображается дольше обычного.
3. Во время перезагрузки до появления экрана входа в систему отображается синий экран с мигающим курсором, и компьютер перестает отвечать на запросы.
4. Папка «Сетевые подключения» пуста.
5. Не удается открыть компонент панели управления Установка и удаление программ.
6. При запуске агент APC перестает отвечать на запросы.
7. Не удается запустить или остановить службы.
8. Сервер медленно отвечает на запросы графического интерфейса пользователя (GUI).
9. При попытке открыть окно Управление дисками появляется одно из следующих сообщений: "Ожидается подключение", "Подключение к службе диспетчера логических дисков". При этом окно Управление дисками не открывается.
10. При установке набора исправлений безопасности с помощью средства Windows Update или вручную система перестает отвечать на запросы на этапе проверки текущей конфигурации.

Причина

Причиной данного поведения является проблема с версией 6.x программного обеспечения APC PowerChute Business Edition.

Компания APC выпустила следующее официальное заявление о данной проблеме:

Программное обеспечение APC 6.x использует пакет Sun Microsystems Java Cryptography Extension(JCE) 1.2.1. Срок действия цифрового сертификата, который использовался для подписи файлов JCE 1.2.1, истек 27 июля 2005 г. Вследствие этого возникают вышеперечисленные проблемы.

Решение

Для устранения проблемы выполните следующие действия:

1.	Перезагрузите компьютер в безопасном режиме. a. Перезагрузите компьютер. При появлении сообщения «Выберите операционную систему для запуска» нажмите клавишу F8. b. В Меню дополнительных вариантов загрузки Windows с помощью клавиш со стрелками выберите пункт Безопасный режим и нажмите клавишу ВВОД. Примечание. Для того чтобы использовать клавиши со стрелками на цифровой клавиатуре, режим NUM LOCK должен быть отключен. c. Если на компьютере установлено несколько операционных систем, выберите в списке необходимую операционную систему и нажмите клавишу ВВОД.
2.	Войдите в систему с правами администратора.
3.	Отключите службы APCPBEAgent и APCPBEServer: a. Нажмите кнопку Пуск, выберите пункт Программы, а затем – Администрирование и Службы. b. На правой панели щелкните правой кнопкой мыши APCPBEAgent и выберите команду Свойства. c. В списке Тип запуска выберите значение Отключено и нажмите кнопку OК. d. На правой панели щелкните правой кнопкой мыши APCPBEServer и выберите команду Свойства. e. В списке Тип запуска выберите значение Отключено и нажмите кнопку OК.
4.	Перезагрузите компьютер.
5.	Установите последнюю версию программного обеспечения APC PowerChute.

Временное решение

Для временного решения проблемы заново зарегистрируйте Msiexec.exe. Для этого выберите в меню Пуск пункт Выполнить, введите команду msiexec /regserver и нажмите кнопку ОК.

Информация в данной статье относится к следующим продуктам.

•	Microsoft Windows Server 2003, Datacenter Edition (32-bit x86)
•	Microsoft Windows Server 2003, Standard Edition (32-bit x86)
•	Microsoft Windows Server 2003, Web Edition
•	Microsoft Windows Server 2003, Enterprise Edition (32-bit x86)
•	Microsoft Windows 2000 Advanced Server
•	операционная система Microsoft Windows 2000 Server
•	Microsoft Windows Small Business Server 2003 Premium Edition
•	Microsoft Windows Small Business Server 2003 Standard Edition

Ключевые слова для поиску на сайте Microsoft:

kbwinservsetup kbtshoot KB905716

Заполнение документа WORD из 1С 7.7

Потребовалось заполнить документ Word напрямую из 1С. Нашел несколько методов на pro1c.ru и mista.ru

Первый - через использование закладок Word. В принципе, простой:
1. Делаем шаблон в Word (.DOT-файл)
2. Вставляем в него необходимое количество этих самых закладок через меню "Вставка - Закладка".
3. Даем каждой закладке свой идентификатор. По нему или по номеру потом из 1С обращаемся к закладке и заполняем:

а) по номеру

Word=СоздатьОбъект("Word.Application");
Word.visible=0;
Protokol=Word.Documents.Add(КаталогИБ()+"Dogovor\Protokol.dot",0,0,1);
Protokol.Fields(1).Result.Text=СокрЛП(Протокол);
...
Protokol.Fields(5).Result.Text=НРег(Формат(ДатаТоргов,"Д (0)ДДММММГГГГ"));
Protokol.SaveAs(ИмяФайлаПротокол);
Word.visible=1;

б) по идентификатору

//*******************************************************************
Процедура ПечатьЗакладки(ИмяЗакладки, Font, Bold, Underline, Text);
  ВордДок.Bookmarks(ИмяЗакладки).Range.Font.Name = Font;
  ВордДок.Bookmarks(ИмяЗакладки).Range.Bold      = Bold;
  ВордДок.Bookmarks(ИмяЗакладки).Range.Underline = Underline;
  ВордДок.Bookmarks(ИмяЗакладки).Range.Text      = Text;
КонецПроцедуры

Если есть шаблон .dot в файле FullNameFile, то:

ВордДок = Ворд.Documents.Add(FullNameFile);
И в шаблон вставляем значения наших закладок
ПечатьЗакладки("МояЗакладка", "Times New Roman", 1, 0, СокрЛП(МояЗакладка1С));

в) еще по идетификатору

hvКодЗаказа="Привет";
docWord.Bookmarks("hvКодЗаказа").Select(); docWord.Application.Selection.TypeText(hvКодЗаказа);

Через закладки не понравилось - до заполнения не видно, как будет выглядеть форматирование документа.

Так что использовали второй, более наглядный - через поиск и замену. Создаем шаблон, и в тексте прописываем идентификаторы реквизитов, которые потом будут заменены на их значения. Для избежания случайных срабатываний заключаем идентификаторы в квадратные скобки.

Ворд=СоздатьОбъект("Word.Application"); Ворд.Visible=1; ДокВорд=Ворд.documents; ТекДокВорд=ДокВорд.Open(СокрЛП(ПутьШаблона)); //путь к шаблону (dot) Содержание=ТекДокВорд.Content; Содержание.Find.Execute("[НомерДок]",0,0,,,,,,,Строка(СокрЛП(НомерДок)),1); Содержание=ТекДокВорд.Content; // это каждый раз! Содержание.Find.Execute("[ФИО]",0,0,,,,,,,Строка(СокрЛП(ФИО)),1);
ТекДокВорд.SaveAs(ПодКакимИменемСохранитьФайл+".doc");

С 2003 офисом точно работает, под другими не пробовал.

UPD. 10.03.2017
В 2013 офисе тоже работает, проверено :).
Для замены всех встречающихся значений шаблона в тексте, необходимо установить последний параметр в 2.
Содержание.Find.Execute("[ФИО]",0,0,,,,,,,Строка(СокрЛП(ФИО)),2);
Описание здесь и здесь.
Параметр - wdReplaceAll = 2;

Поиск = ОбъектДокумент.Content.Find;
Поиск.Execute(ИмяПараметра,,,,,,,,,ЗначениеПараметра,2);

Рэ́ймонд Ду́глас «Рэй» Брэ́дбери

"Сегодня на девяносто первом году ушёл из жизни писатель-фантаст Рэй Брэдбери, автор Марсианских Хроник, 451 градус по Фаренгейту и других произведений, ставших эталоном жанра фантастики. Рэй всегда был ярым сторонником прогресса, активно критикуя ставшую нормой в современном мире жажду потребления (известная цитата про iPhone, пиво и мыльные оперы), а теперь его не стало. Ему так и не повезло стать свидетелем того, как человечество осваивает Марс в качестве новой планеты для обитания, хотя он пламенно этого хотел.
Нам будет тебя не хватать, Рэй. Покойся с миром."
 
https://ru.wikipedia.org/wiki/%D0%A0%D1%8D%D0%B9_%D0%91%D1%80%D1%8D%D0%B4%D0%B1%D0%B5%D1%80%D0%B8

Использование объектов криптографии CAPICOM в 1С 7.7

Возникла необходимость зашифровать данные XML-файла (используется для импорта данных в 1С), чтобы пользователи не могли его отредактировать. Решили остановиться на CAPICOM. Весь код шифрования/дешифрования занимает несколько строк, надо лишь иметь зарегистрированную в системе библиотеку CAPICOM.dll.

Пример кода в 1С:
Процедура Шифровать()
    CAPI = СоздатьОбъект("CAPICOM.EncryptedData"); // создаем объект
    CAPI.Content = СокрЛП(стр); // шифруемая строка
    CAPI.setsecret("MyPassword"); // генерируем из пароля ключ шифрования
    ЗашифрованнаяСтрока = oCAPI.encrypt(); // Шифруем
    CAPI=0; // освобождаем объект
КонецПроцедуры

Процедура Расшифровать()
    CAPI = СоздатьОбъект("CAPICOM.EncryptedData");
    CAPI.setsecret("MyPassword");
    CAPI.decrypt(стр);
    РасшифрованнаяСтрока = oCAPI.Content;
    CAPI=0;
КонецПроцедуры 

При необходимости использования алгоритма шифрования и длины ключа, отличных от используемых по умолчанию необходимо перед вызовом метода setsecret() установить свойства объекта Algorithm - Name и KeyLength.
Например:
CAPI.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_RC4
CAPI.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM

Список констант возможных алгоритмов см CAPICOM.h

При дешифровке нет необходимости указывать алгоритм и длину ключа, поскольку при шифровании, CAPICOM “укладывает” эти данные в контент.

Кроме шифрования CAPICOM может быть использовано для формирования цифровой подписи, проверки сигнатур, хеширования данных, работы с хранилищами сертификатов.

Скачать CAPICOM 2.0 можно здесь:
http://www.microsoft.com/ru-ru/download/details.aspx?id=25281

(ставить весь пакет необязатально - достаточно распаковать и зарегистрировать DLL)

Установка
1. Скопируйте CAPICOM.dll в системную папку Windows
2. Зарегистрируйте, для этого в папке с установленным CAPICOM.dll в командной строке введите команду:

regsvr32 CAPICOM.dll

CAPICOM 1.0 - может быть использовано в среде Microsoft Windows 95, Microsoft Windows 98, Microsoft Windows ME, Microsoft Windows NT 4.0, Microsoft Windows 2000, Windows XP и Windows .NET Server.
CAPICOM 2.0 - Windows 98, Windows Me, Windows NT 4.0, Windows 2000, Windows XP и Windows .NET Server.
Для обоих CAPICOM 1.0 и CAPICOM 2.0, требуется наличие Microsoft Internet Explorer не младше версии 5.0.

Инструкция, послужившая руководством к действию: http://www.foxclub.ru/sol/solution260.php

Не запускается MSSQL сервер после неожиданного завершение работы ОС Windows 2003

После неожиданного завершения работы ОС Windows 2003 и перезагрузки сервера, служба MSSQL server не запускается, при этом в службе событий регистрируется ошибка   - "The MSSQLSERVER service failed to start due to the following error: The service did not respond to the start or control request in a timely fashion."
При попытке запустить Enterprise Manager консоль сервера MSSQL 2000 выдается ошибка о том, что не найден файл MSVCP71.dll.
Для решения проблемы, необходимо положить файл MSVCP71.dll в каталог %windir%\system32. После этого запустить regsvr32 %windir%\system32\msvcp71.dll и желательно перезагрузить сам сервер.
После рестарта сервера служба MSSQLSERVER должна автоматически запуститься, а при открытии Enterprise Manager консоли не должно выводиться на экран никаких ошибок.

Для решения проблемы, был взят файл с ресурса http://www.dll-files.com/dllindex/dll-files.shtml?msvcp71
Но уже можно найти и более свежую версию.