Кто-нить проводил опросы внутри компании?
Хотелось бы найти софт, чтобы можно было нарисовать опрос с полями ввода, чтобы он видел доменнный логин юзера, который отвечает на вопросы.
Но чтобы не 1С (так как не все работают с базами 1с).

сокращения планируете?

гуглдок

(0) Без фото не взлетит!

(3) ты хочешь увидеть фото женщины  1900 года рождения?

(4) Я бы взглянул)

http://ru.surveymonkey.com/ ебя спасет

(6) а без ебли есть решения?

(5) да пожалуйста:
wiki:Боуз-Лайон,_Елизавета

(6)
(2)
Я юзера увижу? В смысле его доменный-логин.
Это платные решения?

(1) Хотят замерить удовлетворенность отделом ИТ и раздать премии.

MS Word

(9) 1. нет, 2. зависит от тарифа, есть бесплатные

(10) а юзера видеть - чтоб потом было видно кого гнобить за то что премию не дали :)

(12) в нашем случае надо чтобы визуально было анонимно, но по сути мы видели от каких отделов какие идут оценки, ну и от кого какие пожелания.

(13) а чего гнобить то, достаточно логи инета скинуть в почту руководству
благо у нас инет безлимитный и народ куралесит по полной

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

(15) ну про Эксель думали, надеемся что есть решения проще

(10) Ну премий вам не видать.
Заказчик у ИТ отдела кто? Юзвери?
Если так, то разогнать такой отдел нафиг.
Чего их спрашивать?

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

Что будете его удовлетворять?
Или будете удовлетворять требования заказчика?

(14) А ели просто добавить в опросник вопрос "Из какого вы отдела?" это не кошерно?

(9) гуглдок бесплатный. А запускать опрос удовлетворенности качеством и запоминать логины-пароли всех респондентов - это идея зачетная. По результатам опроса будешь точно знать, кому коленку прострелить, чтобы довольный был

(16) а что сложного то? если не умеете скрипты всякие писать на серваках
1) делаете новый лок. ящик - отсылаете с него всем файл эксл., все вложения ответные сохраняете в одну папку (можно заюзать the bat - сохранит все вложения в одну папку)
2) полученную кучу файлов обьединяете в один большой с помощью RDBMerge.xlam надстройка для экселя - соберет в одну большую таблицу из всех файлов.

(17) Заказчиком у отдела ИТ может быть кто угодно, даже сам отдел ИТ
Заказчик опроса - руководство
результат опроса пока что сомнителен для меня, но раз руководство хочет - должны делать
Удовлетворять не будем, но посмотреть - хотим.

Паралелльно закажем Аудит ИТ отдела (может кого посоветуете?) и мы сами будем смотреть именно на его резултаты

Подскажите, простенького софта на эту тему разве не бывает?
Чтоб не заказывать во всяких "облачных" сервисах?

(22) Ну вы соизмеряйте задачу и бюджет. рубликов по 500 за ответ готовьте как минимум + железо

(20) причем тут скрипты?? чтобы каждому при открытии опрос фигачился?
Не наш метод. Опрос должен быть типа "Если есть время, пройдите и заполните опрос".

У нас ещё внутренний портал есть на Bitrix, но вот на нем я не знаю как делать опросы.

(22) ни че се простенький :) вариант два - поднимите локальный вебсервак, поставьте cms с функциями голосования/опросниками, один ip один голос. все голосуют, смотри бд cms. единственно выбрать удобную cms  с точки зрения посл. просмотра ее бд

(24) так и грите, прогов нет, тока админы :)

(21) В положении об отделе что написано?
Скорее всего там написано что-то подобное - "...удовлетворять потребности компании в ИТ сервисах...".
Потребности компании определяет руководство.
Отсюда вывод, что опрос должен проводиться руководства, а не пользователей.
Классическая ошибка.
Задачи ставит один, делает другой, проверяет третий.
И третий не знает что нужно первому.

http://www.rupoll.com/ у вас все упирается в неанонимность

(0) Вам это единоразово нужно или периодически? Если единоразово, то гуглдок или эксель, как уже выше советовали. Юзеров много планируете опрашивать? 10, 50, 500? Опрос анонимный или нет? Вообще подобная шняга php- или 1С-программистом пишется за пару часов.

(27) +
Виноват будет второй. Потому что не так сделал.

(27) Кстати, разумная мысль! Обычно ежемесячно опрашивают руководителей отделов. Хотя в некоторых конторах раз в год проводят глобальный опрос, у него тоже много плюсов.

(29) пока разово, но могут и развить тему (для разных отделов и задач) если понравится
200 юзеров
опрос нужен "внешне анонимный, но неанонимный"

так почему нет софта под подобные задачи? неужто все на коленке пишут или к конторам обращаются?

(32) у вас уже корпортал есть...

(32) так и приходят организации к принятию решения о штатной единице прога, либо заказвайте на стороне

(33) ну если не найдем, то будем выбирать между Excel и  Bitrix, кто на чем умеет.

(35) тот, кто не умеет - способен научиться. если научиться не способен - о какой "удовлетворенности" можно говорить?

(35) На экселе неанонимный вы вряд ли сможете сделать. Какая-то привязка должна быть, хотя бы к компу, с которого отправлен заполненный опросный лист.

(37) да ну? а как же старый добрый VBA и Win API. Макрос в автозапуске при открытии книги и все. примеров в нете туча - типовой вопрос.

(38) Согласен, давно я в макросы не заглядывал, вот и пишу глупости. Ну тут тогда задача стоит сделать так, чтобы юзер смог заполнить файл только на рабочем компе. А то заполнит из дома, отправит по почте и гадай потом, от кого это пришло. С php этот вопрос решается проще: дал доступ к странице только в локалке - и вуаля. Да и обрабатывать результаты будет проще, запросами все можно делать.

ну у них мож лок почта есть? тут можно и на шару выкладывать после ответа

вот в старье нарыл vb код. GetIPHostName() GetIPAddress()

Private Const MAX_WSADescription = 256
   Private Const MAX_WSASYSStatus = 128
   Private Const ERROR_SUCCESS As Long = 0
   Private Const WS_VERSION_REQD As Long = &H101
   Private Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&
   Private Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&
   Private Const MIN_SOCKETS_REQD As Long = 1
   Private Const SOCKET_ERROR As Long = -1
   Private Type HOSTENT
   hName As Long
   hAliases As Long
   hAddrType As Integer
   hLen As Integer
   hAddrList As Long
   End Type
   Private Type WSADATA
   wVersion As Integer
   wHighVersion As Integer
   szDescription(0 To MAX_WSADescription) As Byte
   szSystemStatus(0 To MAX_WSASYSStatus) As Byte
   wMaxSockets As Integer
   wMaxUDPDG As Integer
   dwVendorInfo As Long
   End Type
   Private Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
   Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long
   Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
   Private Declare Function gethostname Lib "WSOCK32.DLL" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
   Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHost As String) As Long
   Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
   Public Function GetIPAddress() As String
   Dim sHostName As String * 256
   Dim lpHost As Long
   Dim HOST As HOSTENT
   Dim dwIPAddr As Long
   Dim tmpIPAddr() As Byte
   Dim i As Integer
   Dim sIPAddr As String
   If Not SocketsInitialize() Then
   GetIPAddress = ""
   Exit Function
   End If
   If gethostname(sHostName, 256) = SOCKET_ERROR Then
   GetIPAddress = ""
   MsgBox "Windows Sockets error " & Str$(WSAGetLastError()) & " has occurred. Unable to successfully get Host Name."
   SocketsCleanup
   Exit Function
   End If
   sHostName = Trim$(sHostName)
   lpHost = gethostbyname(sHostName)
   If lpHost = 0 Then
   GetIPAddress = ""
   MsgBox "Windows Sockets are not responding. " & "Unable to successfully get Host Name."
   SocketsCleanup
   Exit Function
   End If
   CopyMemory HOST, lpHost, Len(HOST)
   CopyMemory dwIPAddr, HOST.hAddrList, 4
   ReDim tmpIPAddr(1 To HOST.hLen)
   CopyMemory tmpIPAddr(1), dwIPAddr, HOST.hLen
   For i = 1 To HOST.hLen
   sIPAddr = sIPAddr & tmpIPAddr(i) & "."
   Next
   GetIPAddress = Mid$(sIPAddr, 1, Len(sIPAddr) - 1)
   SocketsCleanup
   End Function
   Public Function GetIPHostName() As String
   Dim sHostName As String * 256
   If Not SocketsInitialize() Then
   GetIPHostName = ""
   Exit Function
   End If
   If gethostname(sHostName, 256) = SOCKET_ERROR Then
   GetIPHostName = ""
   MsgBox "Windows Sockets error " & Str$(WSAGetLastError()) & " has occurred. Unable to successfully get Host Name."
   SocketsCleanup
   Exit Function
   End If
   GetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) - 1)
   SocketsCleanup
   End Function
   Private Function HiByte(ByVal wParam As Integer)
   HiByte = wParam \ &H1 And &HFF&
   End Function
   Private Function LoByte(ByVal wParam As Integer)
   LoByte = wParam And &HFF&
   End Function
   Private Sub SocketsCleanup()
   If WSACleanup() <> ERROR_SUCCESS Then
   MsgBox "Socket error occurred in Cleanup."
   End If
   End Sub
   Private Function SocketsInitialize() As Boolean
   Dim WSAD As WSADATA
   Dim sLoByte As String
   Dim sHiByte As String
   If WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS Then
   MsgBox "The 32-bit Windows Socket is not responding."
   SocketsInitialize = False
   Exit Function
   End If
   If WSAD.wMaxSockets < MIN_SOCKETS_REQD Then
   MsgBox "This application requires a minimum of " & CStr(MIN_SOCKETS_REQD) & " supported sockets."
   SocketsInitialize = False
   Exit Function
   End If
   If LoByte(WSAD.wVersion) < WS_VERSION_MAJOR Or (LoByte(WSAD.wVersion) = WS_VERSION_MAJOR And HiByte(WSAD.wVersion) < WS_VERSION_MINOR) Then
   sHiByte = CStr(HiByte(WSAD.wVersion))
   sLoByte = CStr(LoByte(WSAD.wVersion))
   MsgBox "Sockets version " & sLoByte & "." & sHiByte & " is not supported by 32-bit Windows Sockets."
   SocketsInitialize = False
   Exit Function
   End If
   SocketsInitialize = True
   End Function
   ' Использование
   Private Sub cmdGetHost_Click()
   Dim строка As String
       строка = GetIPHostName() + "  " + GetIPAddress()
       List1.AddItem строка
   End Sub

(40) Раз можно выкладывать на шару, значит можно и просмотреть, и стереть с шары. Все-таки имхается мне надо на веб-интерфейсе делать, тем более если есть корпортал свой.

главное получить файл с инфой, а последующая его доставка в место агрегирования- эт нюансы, есть полно способов

(41) Узнайте о WMI и сократите эту портянку в десять раз

(43) Это да, но согласись, что обработать данные в БД проще будет, чем склеивать 200 экселевских файлов, по пути выясняя, откуда каждый файл пришел.

ну а проще покурить rtfm :)
http://dev.1c-bitrix.ru/learning/course/?COURSE_ID=48&TYPE=Y#LE2546

(45) а зачем выяснять, тут делал давно одним. присылали отчеты  по продажам в эксель по почте. имя файлов не важно.
Табличка будет:
Пользователь|Вопрос1|...

в графе пользователь у нас и засветитться автор.
применяем надстройку RDBMerge.xlam и она все файлы (хоть 200 и больше) из определнного каталога кучкует в один здоровый файл. а дальше юзаем сводную таблицу и все - отчет готов с результатами.

плюс здесь все интерактивно считай, не надо навыков работы с БД, один момент тока у них будет - макрос чтоб писал юзера и все.

(47) А как поле Пользователь заполняется? Откуда значение берется?

я ж грю из макроса. условно: ползователь открывает книгу, вней все ячейки защищены от записи - кроме тех где ответ писать. есть скрытый столбец допустим 1-й (A). при открытии фоново сразу запускается макрос в нем вызывается функция определения  Ip/имени_юзера и пишет в ячейку А1 это. а пользователь не видет этот скрытый столбец. ответил на вопросы, сохранил, отправил.

(50) Дык а если он дома заполнил, не спеша, попивая чаек, под любимый сериал?

Ну в общем нинаю, я давно у себя все это на 1С автоматизировал...

пришлют утром на работе и пусть в течении дня отвечают - домой не успеют забрать :)

"Но чтобы не 1С (так как не все работают с базами 1с)" кста почему нет? простенькую конфу быстрописку и вперед.

покурите в сторону joomla или drupal, там такого добра должно быть миллион.

вот, к примеру, сразу нашлось это
http://myjoom.ru/komponenty/ijoomla-surveys-komponent-oprosov-dlya-joomla.html и примерчик модуля зачетный

Если у вас уже поднят веб сервер, то развернуть CMS и поставить на него нужный модуль, плевое дело.

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

Будет звучать убедительно :)

(54) пусть по (46) идут

(55) ха. круто. согласен. за золотом всего лишь надо нагнуться :)

Внезапно, 1с умеет делать опросы - сохраняет в xml, который потом открывается в IE, ответ из IE отправляется по почте одной кнопкой.

(57) а как же мнимая анонимность?

А что за специализация конторы, в которой 200 юзеров и IT-отдел без единого программиста?

как ни странно, автора не интересует 1с

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

(46) Обработка результатов в Битриксе ужасна. Или просто "мы не умеем готовить" ?
Как, например, посмотреть всех ответивших "Вариант1" на "Вопрос2" ? Из какого они отдела?

(46) И ещё непонятно как сделать автовход в Битрикс, ибо каждый раз он просит "Войти на сайт" - ввести лог/пасс, т.е. нет как в 1С - использование винлогона.

(0)Дурацкое занятие на самом деле. Но делается так - составляется фотография рабочего дня где юзер выполняет какие то действия и там отмечаются все трудности которые нужно ему преодолевать при работе с программой и вносятся предложения по оптимизации

А почему бы не
Довольны = Random(100);
Недовольные = 100 - Довольные;
?

Дааа, Битрикс отжигает.
http://dev.1c-bitrix.ru/community/forums/forum6/topic19666/
"Можно выгрузить результаты опроса?" - "такого функционала пока что нету"

(62) Сколько вопросов у вас в списке?

(67) например 10

(68) Это хорошо. Нужна возможность добавления вопросов и вариантов ответов вами, как часто будет меняться состав вопросов и вариантов ответов? Я к тому, можно ли их более-менее жестко прописать в конфигурационный файл и нужно ли писать "морду" для управления составом вопросов.

(69) пока что вообще речь о разовом опросе
может объясните, зачем эти наводящие вопросы ?

(70) Я просто оцениваю для вас срок разработки такого одноразового решения с возможностью использования его в будущем. Пока вижу, что на php+mySQL это можно сделать часов за 5. Исходя из стоимости часа в вашем регионе можно посчитать стоимость разработки такого опросника. Можно его и на периферии заказать, выйдет 2-3 тысячи рублей.

(0) Напишу на делфе за 20 минут с перекуром. (Ну за час, если еще и интерфейсом маленько озаботиться)
С ценником озвученным в (71) согласен. :)

Ковыряем Битрикс.
Думаю подключиться к MySQL и вытащить из Битрикса результаты в 1С и там их уже крутить как угодно.

(73) "вытащить из Битрикса результаты в 1С": в меню администрирования нажать Настройка - SQL-запрос, сохранить запрос в эксель и загрузить в 1С.

(74) правильно вот так:
Настройки > Производительность > SQL запросы

http://dev.1c-bitrix.ru/learning/course/index.php?COURSE_ID=48&LESSON_ID=3067#perfmon_sql_list

хотя чую что они не умеют ковырять как надо :)

(75) Перепроверил, у меня так: Настройки - Инструменты - SQL запрос

запрос готов (7 таблиц сводить пришлось), теперь ODBC пробую

(77) Зачем ODBC. ИМХО таки проще сохранить сразу в эксель и сразу начать с ним работать.

(78) Хочется сделать красиво - выбор опроса (считать список и предложить выбор), вытащить данные и выводить в нужных группировках - по отделам, по вопросам и т.п.

Пока что беда в том что Bitrix у нас оказывается на виртуальной машине развернут и к MySQL просто так не достучишься. Ковыряем.

(77) о-о-о, прогресс на лицо, молодца :)

Блин, 1С запускает ODBC драйвер на сервере а не на клиенте. Аяяяй

подскажите каким тегом на форуме оформить код?

(82) Просто кидай код, он сам оформится

&НаКлиенте
СтрокаСоединения_MySQL =   "
|DRIVER={MySQL ODBC 5.1 Driver};
|SERVER=192.168.999.999;
|DATABASE=sitemanager0;
|UID=Login;
|PWD=123; ";

Соединение = Новый COMОбъект("ADODB.Connection");
Соединение.ConnectionString = (СтрокаСоединения_MySQL);

Попытка
   Соединение.Open();
   //Сообщить("MySQL база подключена!!!");
Исключение
   Сообщить("Не могу подключиться к базе!!! ");
   Сообщить("Ошибка подключения - " + ОписаниеОшибки() );
   Возврат;
КонецПопытки;

НаборЗаписей = Соединение.Execute( "SELECT * FROM b_vote" );
списокОпросов = Новый СписокЗначений;
Пока НаборЗаписей.Eof()=0 Цикл
   Title = НаборЗаписей.Fields("Title").Value;
   ID = НаборЗаписей.Fields("ID").Value;
   списокОпросов.Добавить(ID, ""+ID+" - "+Title);
   НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();

ВыбЭлемент = списокОпросов.ВыбратьЭлемент("Выберите опрос:");
Если ВыбЭлемент = Неопределено Тогда
   Возврат;
Иначе
   текОпросID = ВыбЭлемент.Значение;
КонецЕсли;


ткстЗапроса = "
|    select
|tUser.Name UsName, tUser.Last_name UsName2, tUser.WORK_DEPARTMENT,
|IP,
|EQ.QUESTION_ID, tQ.Question,
|ANSWER_ID,
|EVENT_QUESTION_ID,
|tA.Message EA_Message, EA.Message A_Message
|from b_vote_event VoteEvent
|LEFT JOIN b_vote_user EU ON (EU.ID = VoteEvent.vote_user_ID)
|LEFT JOIN b_user tUser ON (tUser.ID = EU.AUTH_USER_ID)
|LEFT JOIN b_vote tVote ON (tVote.ID = VoteEvent.vote_ID)
|LEFT JOIN b_vote_event_question EQ ON (EQ.EVENT_ID = VoteEvent.ID)
|LEFT JOIN b_vote_question tQ ON (tQ.ID = EQ.Question_ID)
|LEFT JOIN b_vote_event_answer EA ON (EA.EVENT_QUESTION_ID = EQ.ID)
|LEFT JOIN b_vote_answer tA ON (tA.ID = EA.Answer_ID)
|where VoteEvent.vote_id="+текОпросID+"
|and VoteEvent.valid='Y'
|";

НаборЗаписей = Соединение.Execute( ткстЗапроса );

ВсегоКолонок = НаборЗаписей.Fields().Count()-1;
тзнДанные = Новый ТаблицаЗначений;
Для i=0 по ВсегоКолонок цикл
   тзнДанные.Колонки.Добавить(НаборЗаписей.Fields(i).Name);
КонецЦикла;

Пока НаборЗаписей.Eof()=0 Цикл
   текСтрока = тзнДанные.Добавить();
   
   Для i = 0 по ВсегоКолонок цикл
       ЗначениеПоля = НаборЗаписей.Fields(i).Value;
       текСтрока[i] = значениеПоля;
   КонецЦикла;
   
   НаборЗаписей.MoveNext();
КонецЦикла;
НаборЗаписей.Close();


Соединение.Close();

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

и вот ещё в помощь:
http://www.energon.ru/enelec/bitrix/help/ru/source/vote/help/ru/developer/install.php.html
http://dev.mysql.com/downloads/connector/odbc/

вдруг кому пригодится

засим откланиваюсь, всем спасибо за советы

(87) Ты это, заходи если что! (с)

(87) напиши потом премия упала на вас или мимо пролетела :)

(89) обязательно напишу!