none
Использование поля distinguishedName в скрипте RRS feed

  • Вопрос

  • Добрый день!

    Есть DC на Win 2012 R2.

    Хочется узнавать когда у пользователя истекает пароль.

    Идея: редактирую схему AD, добавляю новое поле, которое появляется, когда я правой кнопкой мышки вызываю контекстное, выбираю моё новое меню, запускается скрипт, который мне и выдаёт нужное.

    Вот пример скрипта (скрипт взят найден на просторах интернета) 


        Dim oDomain
        Dim oUser
        Dim maxPwdAge
        Dim numDays
       
        strDomainDN = "XXX"
        strUserDN = strDomainDN & "/CN=user,OU=CPT,OU=Users,DC=XX,DC=XX"
        
        Set oDomain = GetObject("LDAP://" & strDomainDN)
        Set maxPwdAge = oDomain.Get("maxPwdAge")

        '========================================
        ' Calculate the number of days that are
        ' held in this value.
        '========================================
        numDays = CCur((maxPwdAge.HighPart * 2 ^ 32) + _
                        maxPwdAge.LowPart) / CCur(-864000000000)
        WScript.Echo "Maximum Password Age: " & numDays
        
        '========================================
        ' Determine the last time that the user
        ' changed his or her password.
        '========================================
        Set oUser = GetObject("LDAP://" & strUserDN)

        '========================================
        ' Add the number of days to the last time
        ' the password was set.
        '========================================
        whenPasswordExpires = DateAdd("d", numDays, oUser.PasswordLastChanged)
        
        WScript.Echo "Password Last Changed: " & oUser.PasswordLastChanged
        WScript.Echo "Password Expires On: " & whenPasswordExpires

        '========================================
        ' Clean up.
        '========================================
        Set oUser = Nothing
        Set maxPwdAge = Nothing
        Set oDomain = Nothing

        WScript.Echo "Done"

    ============================

    Тут в явную указан юзер переменной strUserDN 

    Хочется в эту переменную подставить distinguishedName пользователя, по которому я кликаю мышкой.

    Но просто в лоб не получается это сделать...

    Дайте совет, что изменить в скрипте?

    4 декабря 2014 г. 13:19

Ответы

Все ответы