27.01.2012 в 23:20 родилась доченька Ульяна.
Вес 3740, рост 53
Вес 3740, рост 53
пятница, 27 января 2012 г.
четверг, 26 января 2012 г.
Мотивация по русски
МОТИВАЦИЯ ПО РУССКИ
Сегодня услышал историю про мотивацию по-русски. Я горд. Чертовски горд.
Суть: в головном офисе компании BAT решили провести аттракцион невиданной толерантности. Постановили устроить гей-фестиваль из представителей всех офисов.
В русский офис пришла разнарядка - прислать 3 геев. Менеджмент крепко задумался. Созвали собрание, начали думать. Придумали. Вышло постановление: руководители подразделений, которые достигнут самых низких результатов за квартал, едут на гей-парад. Такого производства, продаж, маркетинга, рекламы, снабжения компания не видела никогда - производительность повысилась на 100% и выше. И менеджмент добился своих результатов - и профит получили, и пидорасов выбрали. А вы говорите - премии, обучения, карьерный рост, гимны компании. Фигня это все.
© Неизвестный автор
Сегодня услышал историю про мотивацию по-русски. Я горд. Чертовски горд.
Суть: в головном офисе компании BAT решили провести аттракцион невиданной толерантности. Постановили устроить гей-фестиваль из представителей всех офисов.
В русский офис пришла разнарядка - прислать 3 геев. Менеджмент крепко задумался. Созвали собрание, начали думать. Придумали. Вышло постановление: руководители подразделений, которые достигнут самых низких результатов за квартал, едут на гей-парад. Такого производства, продаж, маркетинга, рекламы, снабжения компания не видела никогда - производительность повысилась на 100% и выше. И менеджмент добился своих результатов - и профит получили, и пидорасов выбрали. А вы говорите - премии, обучения, карьерный рост, гимны компании. Фигня это все.
© Неизвестный автор
1C8 чтение XML файла
Чтение = Новый ЧтениеXML;
Чтение.ОткрытьФайл(ПутьКФайлу);
Пока Чтение.Прочитать() Цикл
// Прочитать "структурные части" элементов.
// Проверить, какая часть элемента - текущая.
Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ИмяУзла = Чтение.Имя; Сообщить("--" + ИмяУзла);
// Атрибуты элементов можно читать только если текущая часть -
// начало элемента
Пока Чтение.ПрочитатьАтрибут() Цикл
// Прочитать данные узла атрибута.
ТипУзла = Чтение.ТипУзла;
Имя = Чтение.Имя;
Значение = Чтение.Значение;
// Обработать полученные значения.
КонецЦикла;
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
// В примере просто выводим текст в окно сообщений.
Сообщить("Текст:" + Чтение.Значение);
ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
// В примере просто выводим признак конца элемента
// в окно сообщений Сообщить("--Конец:" + Чтение.Имя);
КонецЕсли;
КонецЦикла;
среда, 25 января 2012 г.
nanoCAD
nanoCAD
Первая отечественная свободно распространяемая базовая САПР-платформа для различных отраслей. Платформа nanoCAD содержит все необходимые инструменты базового проектирования, а благодаря интуитивно понятному интерфейсу, непосредственной поддержке формата *.dwg и совместимости с другими САПР-решениями является лучшим выбором при переходе на альтернативные системы.
понедельник, 23 января 2012 г.
четверг, 19 января 2012 г.
Борьба со стрессом
Вот метод, который позволит справиться со стрессом. Я сам пользуюсь им каждый день.
1. Представьте, что вы у реки.
2. Здесь холодный горный воздух, вы слышите пение птиц.
3. Никто, кроме вас, не знает об этом тайном месте.
4. Вы полностью скрылись от безумного места под названием «мир».
5. Успокаивающие звуки водопада наполняют воздух спокойствием.
6. Вода прозрачнее слезы.
7. Вы можете легко разглядеть лицо человека, которого вы держите под водой.
1. Представьте, что вы у реки.
2. Здесь холодный горный воздух, вы слышите пение птиц.
3. Никто, кроме вас, не знает об этом тайном месте.
4. Вы полностью скрылись от безумного места под названием «мир».
5. Успокаивающие звуки водопада наполняют воздух спокойствием.
6. Вода прозрачнее слезы.
7. Вы можете легко разглядеть лицо человека, которого вы держите под водой.
среда, 18 января 2012 г.
Управление RDS RemoteApp с помощью Windows PowerShell
В Windows Server 2008 R2, Remote Desktop Services (ранее известные как Terminal Services) включают провайдер для управления RDS с помощью Windows PowerShell. С помощью данного провайдера вы можете управлять также и возможностями RemoteApp. Данный функционал был значительно расширен в Windows Server 2008 R2 и теперь может рассматриваться как замена Citrix. Основным преимуществом использования Citrix до сих пор является гибкое управление приложениями.
понедельник, 16 января 2012 г.
Рекомендации: что делать, если пропал ребенок?
1. Постарайтесь держать себя в руках и не впадайте в панику. Каждая деталь или слово, которое вы вспомните, в дальнейшем помогут поисках. Крайне важны любые сведения, которые предшествовали пропаже ребенка. Это и как начался злополучный день, что делал пропавший, о чем говорил перед уходом, куда собирался, был ли он там и во сколько ушел.
пятница, 13 января 2012 г.
Удаленный помощник Windows
По умолчанию удаленный помощник отключен, для его включения необходимо его установить как дополнение (Features):
Server Manager - Features - Add Features - Remote Assistance
Отконфигурировать можно при помощи политик:
Computer Configuration - Administrative Templates - System - Remote Assistance
у удаленного помощника можно политикой включить режим unsolicited, тогда пользователю не надо будет слать приглашение и пароль
Создаете пользовательским компам политику с computer config/admin templ/system/remote assist/ Offer remote assistance = enabled
у себя создаете ярлык на hcp://CN=Microsoft Corporation,L=Redmond,S=Washington,C=US/Remote Assistance/Escalation/Unsolicited/UnSolicitedRCUI.htm (так в 2003/xp, в 2008 msra /offerra), запускаете его, выбираете комп, пользователя и у него на экране появляется запрос "Разрешить подключение?"
если у пользователя пропатчить файлы helpeeaccept.htm и TakeControlMsgs.htm, то у него запрос появляться не будет.
четверг, 12 января 2012 г.
Выгонялка пользователей из 1С 8.x
'basename-Имя базы в кластере серверов 1с
'updateway - Путь к файлу обновления
'platform - Платформа 1с (8.1/8.2)
'srv1c - Сервер 1с
'srvUser - пользователя для входа на сервер 1с
'srvPasswd- пароль пользователя для входа на сервер 1с
'confchanged - булево - конфигурация изменена. Выполнить только принятие изменений конфигурации
Function GetUpdateForConfig(basename,updateway,pl
allowdisconnect=false
'Если мы работаем с 12 до 6 утра - мы можем выгнать пользователей
if Hour(now())>0 and Hour(now)<6 then
allowdisconnect=true
End if
set Connector=CreateObject("V" & Replace(platform,".","") & +".ComConnector")
set AgentConnection=Connector.ConnectAgent(s
set Cluster=AgentConnection.GetClusters() (0)
AgentConnection.Authenticate Cluster,srvUser,srvPasswd
'WorkingProcess = AgentConnection.GetWorkingProcesses(Clus
Process = AgentConnection.GetWorkingProcesses(Clus
for each WorkingProcess in Process
if WorkingProcess.Running<>0 then
ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
set WorkingProcessConnection = Connector.ConnectWorkingProcess("tcp://"
WorkingProcessConnection.AddAuthenticati
set ibDesc = WorkingProcessConnection.CreateInfoBaseI
ibDesc.Name = basename
Connections = WorkingProcessConnection.GetInfoBaseConn
for each Connection in Connections
if LCase(Connection.AppID) <> "comconsole" then
if allowdisconnect then
WorkingProcessConnection.Disconnect Connection
ShowStatus "Discconnect соединения " & Trim(Connection.ConnID),true,false
else
ShowStatus "Есть работающие пользователи.",false,false
GetUpdateForConfig=0
Exit function
End if
End if
Next
End if
Next
ShowStatus "Запуск обновления " & updateway,true,false
ProcId=0
constr="/S""" & srv1c & "\" & basename & """"
if baseUsr<>"" then
constr=constr & " /N" & baseUsr & " /P" & basepwd
end if
if not confchanged then
constr=constr & " /UpdateCfg""" & updateway & """"
end if
constr=constr & " /UpdateDBCfg"
if Way1cv81="" then
ShowStatus "Не заполнен путь к 81",true,true
GetUpdateForConfig=""
Exit function
End if
RunString="""" & Way1cv81 & "1cv8.exe"" CONFIG " & constr & ""
Resfile=WorkCatalog() & "result.txt"
RunString=RunString & " /Out""" & Resfile & """"
ShowStatus "Строка запуска: " & RunString,true,false
CreateProcess RunString,true
GetUpdateForConfig=ReadFileText(Resfile)
End Function
'updateway - Путь к файлу обновления
'platform - Платформа 1с (8.1/8.2)
'srv1c - Сервер 1с
'srvUser - пользователя для входа на сервер 1с
'srvPasswd- пароль пользователя для входа на сервер 1с
'confchanged - булево - конфигурация изменена. Выполнить только принятие изменений конфигурации
Function GetUpdateForConfig(basename,updateway,pl
allowdisconnect=false
'Если мы работаем с 12 до 6 утра - мы можем выгнать пользователей
if Hour(now())>0 and Hour(now)<6 then
allowdisconnect=true
End if
set Connector=CreateObject("V" & Replace(platform,".","") & +".ComConnector")
set AgentConnection=Connector.ConnectAgent(s
set Cluster=AgentConnection.GetClusters() (0)
AgentConnection.Authenticate Cluster,srvUser,srvPasswd
'WorkingProcess = AgentConnection.GetWorkingProcesses(Clus
Process = AgentConnection.GetWorkingProcesses(Clus
for each WorkingProcess in Process
if WorkingProcess.Running<>0 then
ConnectString = WorkingProcess.HostName & ":" & WorkingProcess.MainPort
set WorkingProcessConnection = Connector.ConnectWorkingProcess("tcp://"
WorkingProcessConnection.AddAuthenticati
set ibDesc = WorkingProcessConnection.CreateInfoBaseI
ibDesc.Name = basename
Connections = WorkingProcessConnection.GetInfoBaseConn
for each Connection in Connections
if LCase(Connection.AppID) <> "comconsole" then
if allowdisconnect then
WorkingProcessConnection.Disconnect Connection
ShowStatus "Discconnect соединения " & Trim(Connection.ConnID),true,false
else
ShowStatus "Есть работающие пользователи.",false,false
GetUpdateForConfig=0
Exit function
End if
End if
Next
End if
Next
ShowStatus "Запуск обновления " & updateway,true,false
ProcId=0
constr="/S""" & srv1c & "\" & basename & """"
if baseUsr<>"" then
constr=constr & " /N" & baseUsr & " /P" & basepwd
end if
if not confchanged then
constr=constr & " /UpdateCfg""" & updateway & """"
end if
constr=constr & " /UpdateDBCfg"
if Way1cv81="" then
ShowStatus "Не заполнен путь к 81",true,true
GetUpdateForConfig=""
Exit function
End if
RunString="""" & Way1cv81 & "1cv8.exe"" CONFIG " & constr & ""
Resfile=WorkCatalog() & "result.txt"
RunString=RunString & " /Out""" & Resfile & """"
ShowStatus "Строка запуска: " & RunString,true,false
CreateProcess RunString,true
GetUpdateForConfig=ReadFileText(Resfile)
End Function
1С на сервере postgre — резервирование базы посредством командной строки (cmd)
Все мы знаем, что резервировать данные просто необходимо.
Для того что-бы делать резервную копию базы postgre — необходимо выгонять пользователей из базы. Но некоторые недобросовестные пользователи или не выходят из базы уходя с работы или имеют привычку подключаясь к базе через удаленку — тупо закрывать удаленку, а из базы не выходить.
Для того что-бы делать резервную копию базы postgre — необходимо выгонять пользователей из базы. Но некоторые недобросовестные пользователи или не выходят из базы уходя с работы или имеют привычку подключаясь к базе через удаленку — тупо закрывать удаленку, а из базы не выходить.
С на сервере postgre – резервирование базы посредством бесплатной программы Egida Backup
В посте расположенном тут http://yavasilek.ru/1s-na-servere-postgre-rezervirovanie-bazy/ я описал процесс резервирования базы postgre без дополнительного программного обеспечения.
При этом в комментариях была дана ссылка на бесплатный продукт Egida Backup, который отлично справляется с нашей задачей.
Отправка e-mail на VBS (VBScript)
Понадобился скриптик для отпрвки e-mail на VBS (Visual Basic Script). Почему именно на VBScript? Просто так потребовалось. Тоже самое можно было сделать и при помощи JavaScript, но раз нужно использовать VBS, то будем использовать его.
Задача достаточна проста, так что сразу приведу скрипт отправки e-mail написанный на VBScript:
Шифрование скриптов VBS (VBScript)
VBS-скрипты могут быть весьма полезны для автоматизации действий пользователя в системах семейства Windows. Иногда требуется скрыть текст VBS-скрипта и тогда на помощь приходит программа дляшифрования скриптов, которая сохранят возможность выполнения скриптов VBS (сценариев VBScript) как и в незашифрованном виде.Восстановление почтовых ящиков Exchange 2010 с помощью DPM 2010
Назначение: System Center Data Protection Manager 2010
DPM поддерживает восстановление данных для почтовых ящиков Exchange Server с помощью мастера восстановления. Если щелкнуть базу данных Exchange Server на панели Защищенные данные мастера, DPM выводит почтовые ящики, принадлежащие этой базе данных.
среда, 11 января 2012 г.
СТРАТЕГИЯ РЕЗЕРВНОГО КОПИРОВАНИЯ БАЗЫ ДАННЫХ ДЛЯ MS SQL SERVER
В этой статье излагаются основы резервного копирования баз данных Microsoft® SQL Server™ 2005, а также приводятся советы, когда следует осуществлять резервное копирование базы данных, и рассматриваются шаги процедур создания резервных копий. После изучения различных методов резервного копирования SQL Server читатели смогут определить подходящую стратегию резервного копирования для конкретной деловой среды.
Типы резервного копирования SQL Server
Тип резервной копии
|
Описание
|
Полная
|
Все файлы данных и часть журнала транзакций
|
Журнал транзакций
|
Любые изменения базы данных, записанные в файлах журнала
|
Заключительные фрагменты журнала
|
Активная часть журнала
|
Разностная
|
Части базы данных, которые изменились с момента выполнения полного резервного копирования базы данных
|
Файл (файловая группа)
|
Указанные файлы или файловые группы
|
Частичная
|
Первичная файловая группа, все файловые группы, доступные для чтения и записи, и любые указанные файловые группы, доступные только для чтения
|
Доступная только для копирования
|
База данных или журнал (не оказывается влияния на последовательность резервного копирования)
|
вторник, 10 января 2012 г.
Уменьшение размера базы данных tempdb в SQL Server
В данной статье приведены три способа, которые можно использовать для уменьшения размера базы данных tempdb до значения, которое будет меньше последнего заданного размера. Первый способ предоставляет полный контроль над размером файлов базы данных tempdb, но требует перезапуска сервера SQL Server. Второй способ позволяет уменьшить размер базы данных tempdb в целом с некоторыми ограничениями, которые могут потребовать перезапуска сервера SQL Server. Третий способ позволяет уменьшить размер отдельных файлов базы данных tempdb. Последние два способа требуют, чтобы в процессе операции уменьшения размера с базой данных tempdb не производилось никаких действий.
пятница, 6 января 2012 г.
Прикольный диалог в аське. Про секс.
Прикольный диалог в аське. Про секс. Предупреждаю что текст содержит мат.
четверг, 5 января 2012 г.
вторник, 3 января 2012 г.
Типы резервного копирования
Полное резервирование Full Backup
Полное резервирование обычно затрагивает всю вашу систему и все файлы. Еженедельное, ежемесячное и ежеквартальное резервирование подразумевает полное резервирование. Первое еженедельное резервирование должно быть полным резервированием, обычно выполняемым по Пятницам или в течение выходных, в течение которого копируются все желаемые файлы. Последующие резервирования, выполняемые с Понедельника по Четверг до следующего полного резервирования, могут быть добавочными или дифференциальными, главным образом для того, чтобы сохранить время и место на носителе. Полное резервирование следует проводить, по крайней мере, еженедельно.
Подписаться на:
Сообщения (Atom)