Пользователь

Поиск по сайту

Опрос

Погода

Григорий Ненашев (все сообщения)

hotfix (Хотфиксы) (Service Desk 4.5 Sp 28), Меняем формат письма с TXT на HTML

Григорий Ненашев Администратор Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010	# 16.09.2010 09:27:32 Кстати, а выложи скрин правила....
	Перейти

Статус отложено, У кого как реализован Deadline при статусе отложено?

Григорий Ненашев Администратор Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010	# 15.09.2010 12:35:16 Ок.... попробую думаю что со скриптом будет вернее
	Перейти

Статус отложено, У кого как реализован Deadline при статусе отложено?

Григорий Ненашев

Администратор

Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010

15.09.2010 11:47:24

Цитата
Василий Каменев пишет: ну правильно только на 50% 1. Planned duration правильно: 2. Planned Finish = null, Deadline -> Planned start, + Planned durati = Planned Finish -> Deadline

Кстати а как работает этот скрипт?
не пойму агента нужно ставить на все app сервера или будет одного достаточно?
http://forums11.itrc.hp.com/service/forums/questionanswer.do?threadId=646438

Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев

Администратор

Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010

14.09.2010 14:08:15

Ура победа... может кому пригодиться

Цитата

Function Main()

set RT = CreateObject ("ADODB.Connection")

RT.Open "kadr-sql", "", ""

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")

Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Timeout") = 30

objCommand.Properties("Cache Results") = False

objCommand.CommandText = "SELECT displayName,mail,employeeID FROM 'LDAP://domen.ru' WHERE objectClass = 'user' and objectCategory = 'person'"

Set objRecordSet = objCommand.Execute()

While Not objRecordSet.EOF

fio = objRecordSet.Fields("displayName").Value

email = objRecordSet.Fields("mail").Value

tabnam = TRIM (objRecordSet.Fields("employeeID").Value)

Set RS1 = RT.Execute("EXEC ad_users_reg @fio = '" & fio &"' , @tabnam ='"&tabnam&"', @email = '" & email & "' ")

objRecordSet.MoveNext

Wend

Main = DTSTaskExecResult_Success

End Function

Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев

Администратор

Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010

13.09.2010 17:43:34

Раньше так и делал... возникла задачка дергать табельные номера из АД, раньше работало все через GC, а в него эти данные не грузят, сказали чтобы на LDAP лазил... теперь нужно перенастроить на LDAP, проблема в том что вроде запрос пишу правильно, а ограничения не срабатывают...
по идеи нужно поставить LOOP, тогда нужно ему объявить с какой строки этот Loop,,,, вот тут я и встрял... как то все просто должно быть.

Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев

Администратор

Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010

13.09.2010 17:35:29

не я немного не об этом...

процедура стандартная....

CREATE PROCEDURE dbo.ad_users_reg
@fio varchar (255) = '', -- Фамилия и имя
@sfio varchar (255) = '', -- Фамилия и имя
@email varchar (255) = '' , -- Адрес электронной почты
@town varchar (50) = '', -- Город
@address varchar (100) = '', -- Адрес
@phone varchar (100) = '', -- Телефон
@room varchar (100) ='', -- Комната
@account varchar (50) = '', -- Логин
@tabnam varchar (255) = '', -- Табельный номер
@disabled varchar (50) = '' -- Статус блокировки учетной записи
AS

INSERT INTO reg_ad_users (fio,search_fio,email,town,address,phone,room,account,tabnam,disabled)
VALUES (@fio, @sfio,@email,@town,@address,@phone,@room,@account,@tabnam,@disabled)
GO

Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев Администратор Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010	# 13.09.2010 17:24:51 1000
	Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев Администратор Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010	# 13.09.2010 17:15:25 Хочу чтобы в таблицу записывались все данные, а он выгружает первую 1000 и аут
	Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев Администратор Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010	# 13.09.2010 15:22:25 Не могу обойти ограничения в 1000 записей при выгрузке из AD... Параметр objCommand.Properties("Page Size") = 1000 - не работает походу...
	Перейти

VB - скрипт, Нужна помощь

Григорий Ненашев

Администратор

Cообщений: 1870 Баллов: 11496 Регистрация: 25.01.2010

13.09.2010 15:19:36

Function Main()

set RT = CreateObject ("ADODB.Connection")
RT.Open "kadr-sql", "", ""

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Timeout") = 30

Код
Set RS = objConnection.Execute("<LDAP://domen.ru>; displayName=*);displayName, <br />cn,name,EmployeeID,displayName <br />,sAMAccountName,mail,otherTelephone,telephoneNumber,pager, <br />physicalDeliveryOfficeName,pwdLastSet,telephoneNumber,title, <br />l,streetAddress,userAccountControl,proxyAddresses,memberOf;subtree")

While Not rs.EOF
fio = RS.Fields("displayName").Value
email = RS.Fields("mail").Value
tabnam = TRIM (RS.Fields("employeeID").Value)

Set RS1 = RT.Execute("EXEC ad_users_reg @fio = '" & fio &"' , @tabnam ='"&tabnam&"', @email = '" & email & "' ")
RS.MoveNext

Wend

objConnection.Close
RS = Close
SET RS = Nothing
RS1 = Close
SET RS1 = Nothing
RT = Close
SET RT = Nothing

Main = DTSTaskExecResult_Success

End Function

Перейти