Рассылают сообщение по сети - достало. Как убить? #116245

У нас в сети 50 компов. Я сижу на компе с локальными админскими правами.  Сисоп постоянно рассылает сообщения типа "выйдите из базы". Она щас обновляется каждый час. В день до 40 раз!!! Задолбал, особенно учитывая, что я в ней не работаю! Как можно отловить, что за прога их мне отсылает, и заблокировать? Учтите, что в сетевом администрировании я ламер. Шнурок сетевой выдергивать нельзя, т.к. у нас терминал. Win 2000.

У нас в сети 50 компов. Я сижу на компе с локальными админскими правами.  Сисоп постоянно рассылает сообщения типа "выйдите из базы". Она щас обновляется каждый час. В день до 40 раз!!! Задолбал, особенно учитывая, что я в ней не работаю! Как можно отловить, что за прога их мне отсылает, и заблокировать? Учтите, что в сетевом администрировании я ламер. Шнурок сетевой выдергивать нельзя, т.к. у нас терминал. Win 2000.

Вероятно Net Send. Надо отключить у себя соответствующую службу.

Сисоп у вас ламер конкретный...

Подробнее расскажи пожалуйста?

На локалку приходит или в терминале на сервак ?

Я не админ, на серваке не я.

надо остановить и отключить службу сообщений.

Если ты в терминале (через этот сервак ходишь в базы) то все нормально - сисой на сервак шлет. Если на все машины в сети (нет сенд *) - см.

я думаю лучше всего убивать из обреза, в голову с метров трех, чтобы не заляпаться мозгами

По "чайнику" настучать спамеру етому

Мой компьютер, управление, службы, служба сообщений, тип запуска -- отключено, состояние -- стоп

(+10) Будь готов: сисадмин решит что ты забиваешь на него и обидится.

>>Она щас обновляется каждый час. В день до 40 раз!!! Долгий у Вас рабочий день... Негры?

У меня по второму варианту. Щас поищу эту Net Send. Только что было еще 3 сообщения. Мне на ум приходят всякие пыточные орудия. Лучше всего пила. Тупая. Чтобы руки кривые отпилить. Спасибо. Отключил.

Эт на Марсе.

Я не работаю в этой базе. На мне филиаловские, они локально только у меня. Он дублирует сообщения по 4 раза.

Ставь LanTalk, там можно сообщения блокировать по конкретным словам. А если просто - плохо - останешься отрезан от мира. Вдруг всем пошлют "пожар!", а ты не узнаешь?

Ламеры.... По живому что ли пишут (отлаживают)

тогда

Ага. Переходят на новую конфу. И причем уже успели ее 1 раз грохнуть. (Сделали зачем-то восстановление из архива, при это бэкап не сделали). Неделя псу под хвост. Слава богу, я с ними не работаю.

Есть ещё вариант - перенести комп в другую рабочую группу. Наверняка сообщения по рабочей группе кидаются.

Это что за контора такая -- 50 программистов 1С -- в Самаре??!

Не стоит. если у менеджера отпуск, или ее нет, я буду в этой базе работать. То есть возможность получать сообщения у меня должна быть.

50 компов и рабочая группа, сомневаюсь

Ты че, программистов всего 3, включая меня, остальные ламеры. И я с ними не контачу.

> Ты че, программистов всего 3, включая меня, остальные ламеры. И я с ними не контачу не был бы ламером, не было бы этой ветки

Ты ламер в 1С. Что ты здесь делаешь? А ну хиляй отсюда.

С кем? С ламерами или прогерами? Западло? Или им западло?

Скользящий, а ты что-то типа "Администратор баз 1С"?

С прогерами. По рабочим моментам никак не пересекаемся. А пиво специально приглашать пить - лениво. Кстати, у них сертификаты есть, одна на 8-ке новую конфу разрабатывает. Но что-то смотрю как они работают, не внушает. Правда я и сам ламер.

адмын. Я выгоняю своих юзеров политкорректно, но настойчиво. На мисте где-то код был опубликован. А ТурбоМД религия ему запрещает пользоваться?

есть GComp+CVS. Религиозные верования Вуду запрещают их юзать?

,(__) А админ обратно включит, или при логинье или так переодическим сканом на условие откученной службы сообщений, скан простой на всш он же может и обратно ее поднять...

Честно? Мне глубоко по барабану. У меня в филиалах хватает своих проблем. Интересно, отключить то я отключил. Поставил Lan-tolk - прикольная прога, теперь пытаюсь запустить опять, теперь говорит, не удалось запустить службу локальных сообщений. Это что, игра в одни ворота?

дак ты ее в ручной запуск поставил или в отключить?

Ставил и авто, и ручной запуск, однохренственно, жму пуск и ПНХ.

Скользящий, так ты Администратор баз 1С? Второй раз уже спрашиваю.

тебя может толко из режима Предприятия выкидывать. Процедура ОстановкаСистемы    ОчиститьОкноСообщений; Сигнал;    Сообщить("ВНИМАНИЕ! ОСТАНОВКА ПРОГРАММЫ!","!!!");    Сообщить("Просьба сохранить все необходимые документы или элементы справочников.","!!!");    Если ПопыткаВыхода=1 Тогда        Коммент="Предупреждение об остановке системы.";        ЗаписьЖурналаРегистрации(Коммент,,,,4);    КонецЕсли;        Если ПопыткаВыхода=4 Тогда        ОчиститьОкноСообщений;        Сигнал;        Сигнал;        Сигнал;        Предупреждение("Ваше время истекло! ОСТАНОВКА СИСТЕМЫ.",1);        Коммент="Отключение охамевшего пользователя.";        ЗаписьЖурналаРегистрации(Коммент,,,,4);        ЗавершитьРаботуСистемы;    КонецЕсли;        Ответ=0;    Если ПопыткаВыхода<4 Тогда    // Если не проверять, то при отключении (см. выше) система успевает снова задать вопрос.        Ответ=Вопрос("Вы готовы к остановке системы",4,10);    КонецЕсли;        Если Ответ=7 Тогда // Ответ - НЕТ        Сигнал;        Коммент="Отсрочка отключения № "+Строка(ПопыткаВыхода);        ЗаписьЖурналаРегистрации(Коммент,,,,4);        ПопыткаВыхода=ПопыткаВыхода+1;    ИначеЕсли Ответ=6 Тогда // Ответ - ДА        Сигнал; Сигнал; ОчиститьОкноСообщений;        Коммент="Отключение раб. станции "+Строка(ИмяКомпьютера)+".";        ЗаписьЖурналаРегистрации(Коммент,,,,4);        ПопыткаВыхода=ПопыткаВыхода+1;        ЗавершитьРаботуСистемы;    ИначеЕсли Ответ=-1 Тогда // Ответ не получен. Выход по таймауту.        ОчиститьОкноСообщений; Сигнал; Сигнал; Сигнал;        Предупреждение("Внимание! ОСТАНОВКА СИСТЕМЫ.",3);        Коммент="Отключение неответившей раб. станции "+Строка(ИмяКомпьютера)+".";        ЗаписьЖурналаРегистрации(Коммент,,,,4);        ЗавершитьРаботуСистемы;    КонецЕсли; КонецПроцедуры Процедура АнализЗавершенияРаботы    ФИмя=СтопФайл;    Если ФС.СуществуетФайл(ФИмя) = 1 Тогда        Если НЕ(НазваниеНабораПрав="Админ") Тогда            ПопыткаВыхода = 1;            ОстановкаСистемы;        КонецЕсли;    КонецЕсли;    ФИмя=""; КонецПроцедуры Процедура ПриНачалеРаботыСистемы  ЗагрузитьВнешнююКомпоненту(КаталогИБ + "TurboMD.dll");  ОбработкаОжидания("АнализЗавершенияРаботы",10); ... КонецПроцедуры Ему на конфигуратор поставь OpenConf Power Pack. Процедуры поддежки (в скрипте TurboMD): Sub SaveMD - Созраняет МД-шник в другом каталоге под другим именем    Set FSO = CreateObject("Scripting.FileSystemObject")    Set srv = CreateObject("Svcsvc.Service")    SaveFolder = srv.SelectFolder("Сохранить в:")    If FSO.FolderExists(SaveFolder) Then        MetaData.SaveMDToFile SaveFolder & "1cv7new.md", False    End If End Sub Sub ExitAll    StopFile="stop.all"    Set FSO = CreateObject("Scripting.FileSystemObject")       Set tf = FSO.CreateTextFile (IBDir & StopFile)       tf.Close End Sub Sub Configurator_MetaDataSaved(FileNAme)        RenameTurboMdPRM2Bak    StopFile="stop.all"    Set FSO = CreateObject("Scripting.FileSystemObject")    If FSO.FileExists(IBDir & StopFile) Then        FSO.DeleteFile IBDir & StopFile    End if End Sub Просьма добавить это в базу знаний, чтоб народ больше не мучался. Зы. Здесь нет процедур для выгона из конфигуратора.

Перем ПопыткаВыхода, СтопФайл; - в глобальнике описываются

Спасибо, себе запишу на будущее. Хоть и не в тему, но полезно.

Сомарский хлопец, ты не знал, что есть обработки по выгону пользаков из базы? УЖОС!!!

(all) Ну и фиг с ним, админу скажу, чтобы включил, когда понадобится.

(all) Всем спасибо за помощь. Как обратно включить, я проблему решу.

Скользящий, дык ты и в 1с ламер, оказывается. Ты только языком умеешь работать.

Ты в смысле про куннилингус?

Да, я ламер. Ну и что? Для меня это не ругательство. Это просто означает, что мне есть куда совершенствоваться. Покеда.

+ лучче всего попробуйте так, мож и подправить но вроде все верно... for /l %%i IN (1,1,20) do (ping -a 192.168.1.%%i -n 1&&if errorlevel 0 Taskkill /s 192.168.1.%%i /f "USERNAME ne "%USERNAME% /im 1cv7s.exe>>kill1s.txt) если из коммандной строки то %% замените на %...

Не немного всеж наврал, вот так верно for /l %%i IN (1,1,20) do (ping -a 192.168.1.%%i -n 1&&if errorlevel 0 Taskkill /s 192.168.1.%%i /f "USERNAME ne %USERNAME%" /im 1cv7s.exe>>kill1s.txt)

+ и цифирки адреса по своей сети подогнать, и вот это (1,1,20) цифирку 20 заменить на "старший адрес" в сети...

- 1С это не такая вещь, где можно только языком

Актуальное средство - в домене Windows - устанавливаешь прогу - Hyena - и через нее рубишь процессы 7.7. Удобная вещь для администрирования. Что там с базой происходит уже никого не ипет.

(46-48) А как узнать свой и старший IP? Я посмотрел подключение по локальной сети, он автоматически формируется.

свой ipconfig /all, в лакалке может быть всяко, может и куча сетей/подсетей маршутизированно, в "простой" смотришь свой и последняя цифира от 1 до 255, но для 46-48 надо и права... кстати там сам отсееваешься по переменной среды окружения %USERNAME%

У нас домен. А ipconfig /all не срабатывает.

>>"Я сижу на компе с локальными админскими правами" - че это за домен? Как нет прав на net команды?

срабатывает, если не 9х и надо запустить "коммандную строку"....

а домен тута нипричем... Ты что - БАЯНИСТ?

Вроде нет. В музыкальной школе не учился. Просто интересный домен. А что спросить нельзя?

Запускаю ipconfig /all из командной строки, появляется окно и тут же закрывается.

сперва CMD, а потом ipconfig...

ты редкий ламер, оказывается. открой для начала окно DOS, а потом уж команду в нем

LOL!!! РЖАЛВГОЛОСТОКАЩАСОКЛЕМАЛСЯ!!!

(59,60) CMD это что? А окно DOS я вообще здесь не вижу как открыть. Всю виндовозную справку поиском перерыл. Ты вообше о чем?

Весь день на арене клоун Скользящий в блестящих штанах.

Ты света семенко что-ль?

ты идиот? Пуск > Выполнить напиши там cmd и нажми кнопку мышкой

А нельзя подойти к тем людям которые шлют тебе мессаги, и сказать не шлите их пожалуста на мой адрес?

это сложно, чувак. Скользящий птица гордая. Ему проще хакнуть всех

Сработало. Теперь осталось воспользоваться формулой (46-48) А зачем? Тут принцип такой, ты не ипешь мозги сисадмину, он не обращает на тебя внимание. А зачем мне лишнее внимание? (63,64) Нет, к сожалению, я только учусь.

(46-48) Прошу посмотреть, все ли правильно. for /l %%i IN (1,1,192.168.3.2) do (ping -a 192.168.3.96i -n 1&&if errorlevel 0 Taskkill /s 192.168.3.96i /f "USERNAME ne %USERNAME%" /im 1cv7s.exe>>kill1s.txt)

дарю скользящему почОтную чОрную футболку с надписью                                   я хакнул                                   127.0.0.1

+ Я пока ничего не делал. И пожалуй не буду. Насоветовали, бля.

Нет, надо так, поправил для луччей фильтрации for /l %%i IN (1,1,255) do (ping -a 192.168.3.%%i -n 1&&if errorlevel 0 Taskkill /s 192.168.3.%%i /f /fi "USERNAME ne %USERNAME%" /fi "IMAGENAME eq 1cv7*">>kill1s.txt) Будет долго выполняться, но всех и вся убъет, кроме тебя и вин9Х, хотя можно и их убить... да скажи это что за адреса 192.168.3.2 и 192.168.3.96, понимаю так первый адрес начало сети, второй ее окончание? тогда так for /l %%i IN (2,1,96) do (ping -a 192.168.3.%%i -n 1&&if errorlevel 0 Taskkill /s 192.168.3.%%i /f /fi "USERNAME ne %USERNAME%" /fi "IMAGENAME eq 1cv7*">>kill1s.txt)

Формат Мисты: Как сделать вот это? - ты дебил? - тебе зачем? - может так, может вот так, а зачем тебе или ты ламер? - делай так - ну ты и ламер! - ну ты и ламерюга!! - ты просто придурок. А вон те двое дебилы. - всем спасибо, получилось!!

И не говори, я уже звереть начинаю от хамства. > Будет долго выполняться, но всех и вся убъет, кроме тебя и вин9Х, хотя можно и их убить... Что то не нравится мне эта фраза. Как бы администратор не обратил на меня самое пристальное внимание... Я тебе письмом (на адрес в карточке) IP адреса отправил, что-то неохота публично это обсуждать.

Можешь поставить ВипресМессенджер. Он перехватывает эти сообщения и не показывает их тебе поверх всех окошек, но сохраняет - можешь потом посмотреть.

Разработка Александра Орефкова (TurboMD) позволяет не выкидывать пользователя из базы, если надо по ходу работы обновлять исходные тексты и внешний вид формы.

+ и все еще касяк с Таблицами, имена в текстовых файлах по порядку как видишь на экране, а содержание по порядку обхода(сам непонял что сказал, короче обошол, многократно проверяя ид по имени инаоборот), а так кнечно весч...

запусти консольку cmd затем набери там "net stop messenger"

Товарисчи ОпенКонфовцы! У кого нибудь есть измененный скрипт TurboMD для изменения ссылок на таблицы + выгрузки таблиц в внешние файлы. Чтобы Можно было при изменении мокселя формы не перезапусать конфигуратор.

Письмо получил? Можно использовать вариант? for /l %%i IN (2,1,96) do (ping -a 192.168.3.%%i -n 1&&if errorlevel 0 Taskkill /s 192.168.3.%%i /f /fi "USERNAME ne %USERNAME%" /fi "IMAGENAME eq 1cv7*">>kill1s.txt)

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

Поправочка: Чтобы можно было при изменении мокселя формы не перезапускать 1С Предприятие

Чтобы сохранить таблицу мокселя в файл MXL, надо выделить таблицу (нажав на серый квадратик в левом верхнем ее углу, на пересечении заголовков строк и столбцов). Затем скопипастить его в чистую таблицу и сохранить ее в виде файла MXL.

+83 А файл MXL можно поюзать в методе ИсходнаяТаблица, указав там имя и путь к файлу.

Ситуация: имеется моксель формы в составе конфигурации. ТурбоМД насколько я знаю не умеет динамически загружать выгруженные моксели. Т.е. если бы мы даже выгрузили все страницы, то ТурбоМД MXL просто проигнорировал. Идея о выгрузке с изменением текста модуля была высказана на Кубани и ITLand. Вопрос: Есть ли уже реально работающий скрипт? В репозитарии ТурбоМД.vbs не трогали с октября 04 года.

, - эти решеня я знаю. Но было бы неплохо в автоматизировать это как указано в .

Неплохо, тока надо делать. А автору, я так подозреваю, никто и 3 копеек за его взлом 1С-а не заплатил... :-)

вот переделанный скрипт, выгружает и мхл, в сообщениях выдает ошибку, но все нормально, лень доделывать, и проблемма что в описана решена, кривовато решена, но все верно выгружает... а для загрузки у меня вот такая функция в глобальнике... Функция глИсходнаяТаблица(Таблица=0,Назв="Таблица",ВнутрНазв="",конт="") Экспорт // Устанавливает исходный шаблон для печатной формы. // Если есть - внешний, иначе внутренний // Так же между делом обнуляет счетчик строк :) // Если щаблон найден - возвращается 1, иначе 0    Если ТипЗначенияСтр(Таблица)<>"Таблица" Тогда        Таблица=СоздатьОбъект("Таблица");    КонецЕсли;    Если ПустаяСтрока(глПользователь.КаталогВнешнихПечатныхФорм)=0 Тогда        ИсхТаб=СокрЛП(глПользователь.КаталогВнешнихПечатныхФорм)+Назв+".mxl";    Иначе ИсхТаб=СокрЛП(КаталогИБ)+"ExtForms"+Назв+".mxl";    КонецЕсли;    Если ФС.СуществуетФайл(ИсхТаб)=1 Тогда    Иначе ИсхТаб=?(ПустаяСтрока(ВнутрНазв)=0,ВнутрНазв,Назв);    КонецЕсли; //*****************************    Если ПустоеЗначение(конт)=0 тогда        Если ТипЗначенияСтр(конт)="Строка" тогда            Если Метаданные.Журнал(конт).выбран=1 Тогда                ВнешняяФорма=СокрЛП(КаталогИБ)+"unpackЖурнал"+СокрЛП(конт)+"ФормаФормаСписка"+Назв+".mxl";            КонецЕсли;        Иначе            ВнешняяФорма=СокрЛП(КаталогИБ)+"unpack"+сокрлп(ТипЗначенияСтр(Конт))+""+сокрлп(конт.вид)+"Форма"+Назв+".mxl";                    КонецЕсли;    //глСообщить(ВнешняяФорма,"Д");    Если ФС.СуществуетФайл(ВнешняяФорма)=1 Тогда        ИсхТаб=ВнешняяФорма;    иначе    конецесли;    конецесли; //***************************** ////    Сообщить(ИсхТаб);/// - отладочная строка для проверки подмены таблиц    глЧислоСтрок=0; ПредЧислоСТрок=0;    Для Ном=1 по Разм(глУровни) Цикл глУровни[Ном]=0; КонецЦикла;    Попытка    Таблица.ИсходнаяТаблица(ИсхТаб);    Исключение        глСообщить("Не найден шаблон таблицы <"+ИсхТаб+">");        Сигнал; Возврат 0;    КонецПопытки; Возврат 1; КонецФункции  // глИсходнаяТаблица ... Конечно, тож таксебе, там конт - контекст документа, для журнала названиежурнала

- сейчас в очередной раз сяду писать. Но вот только по такой жаре без кондиционера... :-( Тут не деньги важны - тут признание. Опенконф Коммунити - тоже бесплатен + оупенсоурс.

Скользящий, спасибо за доставленное удовольствие.. такого я еще не видела!

Найден старший брат Скользящего: ;

Ты какого пола?

smaharbA, респект, ты все черз комстроку сделать можешь? давно за тобой наблюдаю

абрахамС нормальный и толковый парень :-)

- отлично, очень простое решение. Буду под себя переделывать.

ну вот - лавры, медные трубы, а хде поклонницы? Люблю я их, поклонниц... Проблемма, никогда недовожу до практики, лень... нравится придумать, но внедрять, увольте... Тесть(покойный) говаривал - "Эту голову, да на те бы плечи..." (о возрасте :

Кста, абраму спасибо. Все работает. Как врага убить, я теперь знаю. Теперь осталось его приручить с помощью LanTalk XP. Я думаю, что благодарить никого не надо, все и так прикололись не слабо. :-)

Самое забавное, что начиналось всё с того, что некий сисоп достал Скользящего сообщениями о выходе из базы. Оказывается, это Скользящий кого-то достал...