none
Изменение атрибутов в OU RRS feed

Все ответы

  • Set-ADOrganizationalUnit OUNAme -Add {"Description" = "test";"State"="xxxx"}
    29 апреля 2013 г. 7:14
    Отвечающий
  • Если домен local.org, OU=staff, OU=test, как изменить параметр для всех пользователей данной OU?


    29 апреля 2013 г. 8:32
  • Get-ADUser -Filter * -SearchBase "OU=staff, OU=test,DC=local,DC=org" | Set-ADUser -Add @{"Organization" = "Test"}
    • Изменено KazunEditor 29 апреля 2013 г. 9:16
    29 апреля 2013 г. 9:16
    Отвечающий
  • Get-ADUser : Объект каталога не найден
    строка:1 знак:1

    Get-ADUser -Filter * -SearchBase "OU=staff, OU=test,DC=local,DC=org"

    • Изменено JabBaton 29 апреля 2013 г. 11:26
    29 апреля 2013 г. 11:25
  • Get-ADUser : Объект каталога не найден
    строка:1 знак:1

    Get-ADUser -Filter * -SearchBase "OU=staff, OU=test,DC=local,DC=org"


    "Объект каталога не найден" - Какое слово непонятно?
    • Изменено KazunEditor 29 апреля 2013 г. 11:27
    29 апреля 2013 г. 11:27
    Отвечающий
  • так там есть объекты
    29 апреля 2013 г. 12:01
  • так там есть объекты

    Где там? Скрин покажите и свойство DistinguishedName у OU.
    29 апреля 2013 г. 12:02
    Отвечающий
  • Ну если я правильно понимаю, в OU test если есть учетки, их названия должны вывестись
    29 апреля 2013 г. 12:50
  • Ну если я правильно понимаю, в OU test если есть учетки, их названия должны вывестись

    Вывод:

    Get-ADObject -Filter "Name -eq 'Test'"

    29 апреля 2013 г. 13:28
    Отвечающий
  • смысл скрипта таков, нужно записывать в 2 свободных атрибута даты, и в этот период блокировать учетку. т.е. один будет ежедневно проверять даты, а другой просто записывать в атрибуты в определенном OU
  • смысл скрипта таков, нужно записывать в 2 свободных атрибута даты, и в этот период блокировать учетку. т.е. один будет ежедневно проверять даты, а другой просто записывать в атрибуты в определенном OU

    Чем не устраивает файл или база данных?
    Отвечающий
  • файл, в смысле какой нибудь excel файл, в который будут вноситься фамилии?
  • файл, в смысле какой нибудь excel файл, в который будут вноситься фамилии?

    Проще CSV с заголовком ФИО,DN,StartDate,EndDate.
    Отвечающий
  • Была такая идея. Не очень удобно, ибо файл будет доступен для многих. вдруг кто подпортит кому то чтото
  • попробуй vbs редактирует атрибут description, взял основу http://blogs.msdn.com/b/alejacma/archive/2008/04/23/how-to-get-a-list-of-all-users-in-an-ou-vbscript.aspx

    добавил только

    Rem --- запись данных -----------------------
            strUser=objRecordSet.Fields("distinguishedname").Value
      Set objItem = GetObject("LDAP://" & strUser)
      On Error Resume Next
      objItem.Put "description", Now
      objItem.SetInfo
     Rem------Конец Записи-------------------------------- 

    ' Get OU
    '
    strOU = "OU=Users,DC=domain,DC=com"
    
    ' Create connection to AD
    '
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
    
    ' Create command
    '
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.Properties("Page Size") = 1000
    
    ' Execute command to get all users in OU
    '
    objCommand.CommandText = _
      "<LDAP://" & strOU & ">;" & _
      "(&(objectclass=user)(objectcategory=person));" & _
      "adspath,distinguishedname,sAMAccountName;subtree"
    Set objRecordSet = objCommand.Execute
    
    ' Show info for each user in OU
    
    		
    Do Until objRecordSet.EOF
    
      ' Show required info for a user
      '  
     
    	Rem --- запись данных -----------------------
            strUser=objRecordSet.Fields("distinguishedname").Value
    		Set objItem = GetObject("LDAP://" & strUser)
    		On Error Resume Next 
    		objItem.Put "description", Now
    		objItem.SetInfo 
    	Rem------Конец Записи--------------------------------	
      ' Move to the next user
      '
      objRecordSet.MoveNext
    
    Loop
    
    ' Clean up
    '
    objRecordSet.Close
    Set objRecordSet = Nothing
    Set objCommand = Nothing
    objConnection.Close
    Set objConnection = Nothing
    

  • Эх, не хотелось бы возвращаться к vbs, хочется все же на ps.

    Думал на идеей с xls. В файле столбцы ФИ, username, startline, deadline. 

    Скрипт обрабатывает строки если startline<X<=deadline то блокировка, иначе разблокировка.