Объявление

Свернуть
Пока нет объявлений.

Удаление объектов

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Удаление объектов

    Добрый день!

    При тестировании платформы ОТ я создавал тестовые группы и учетные записи пользователей. Теперь, при по истечении одного года решил удалить "ненужные" учетные записи и группы. Все возможные ссылки на объекты удалял в ручную, но это как то не эффективно. Есть ли какой либо способ поиска по все структуре приложения, чтобы не гадать где еще может находиться ссылка на тот или иной объект? Пытался сначала искать все записи фильтрами, но нашел немного. Заранее благодарю за ответ. При попытке удаления получаю вот такое сообщение:
    С уважением,
    Евгений Хон

  • #2
    Может вам поможет DeleteAll method of OtRequests object

    Комментарий


    • #3
      есть наработки по скриптам для поиска связей типа user reference

      Код:
      bolOK = SelectRequest( 0, True, objTargetRequest)
      If bolOK Then
      	
      	Dim strStr, intUniqueID,objResults, i
      	strStr = ""
      	Set objResults = objTargetRequest.FindReferences(False, True)        
      	If 	objTargetRequest.RequestFolder.SpecialFolder (1) Then
      		intUniqueID = objTargetRequest.AsUser.UniqueID
      		logmessage "FindRef START. TargetID:" & intUniqueID
      		If Not intUniqueID = "" Then 		
      			Set objFolders = ActiveSession.RequestFolders
      			i=0
      			For Each objFolder In objFolders
      				i=i+1
      				'Counter.Text= i & "/" & objFolders.count
      				If (objFolder.Alias <> "KLADR" And objFolder.Alias <> "KLADRStreet" And objFolder.Alias <> "FLD_CMDB" And objFolder.Alias <> "FLD_CMDB" And objFolder.Alias <> "FLD_ConfigItems" And objFolder.Alias <> "FLD_CMDB_CIDetails" And objFolder.Alias <> "FLD_ConfigItems_Scan" And objFolder.Alias <> "FLD_CMDB_CIDetails_Scan") Then
      					'Logmessage "FindRef. Folder: " & objFolder.Name
      					Set objRequests = objFolder.Requests
      					Set objUFDs = objFolder.UserFieldDefinitions
      					objRequests.Prefetch
      					For Each objRequest In objRequests
      						
      						For Each objUFD In objUFDs						
      							
      							If objUFD.Type = 250 Then
      								If Not objRequest.Fields(CStr(objUFD.Alias)).IsNull Then								
      									If objRequest.Fields(CStr(objUFD.Alias)).Tvalue.UniqueID = CLng(intUniqueID) Then 
      										'logmessage "FinRef UFD250=" & CStr(objUFD.Alias) & objRequest.RequestFolder.Path & ";" & objRequest.UniqueID & ";" & objRequest.Name
      										strStr = strStr & objRequest.RequestFolder.Path & ";" & objRequest.UniqueID & ";" & objRequest.Name & vbCrLf
      										objResults.AddExisting(objRequest)	
      									End If
      									If objFolder.SpecialFolder(1) Then
      										If objRequest.AsUser.UniqueID=CLng(intUniqueID) Then
      											objResults.AddExisting(objRequest.Fields(CStr(objUFD.Alias)).Tvalue.Object)
      										End If 
      									End If	
      								End If
      								
      							End If
      							
      						Next
      					Next
      				End If
      				'end if
      			Next
      		End If
      		
      	End If	
      	logmessage "FindRef END:  " & strStr		
      	ActiveXControl.Object.Requests = objResults
      	ActiveXControl.Object.UpdateAllRequests	
      Else
      	MsgBox "You did not enter a UniqueID"
      	
      End If
      Последний раз редактировалось Sergey Osadchy; 28-05-2013, 10:43. Причина: форматирование кода скрипта

      Комментарий


      • #4
        Благодарю за ответы... Сегодня попробую...
        С уважением,
        Евгений Хон

        Комментарий

        Обработка...
        X