Active Directory Script Hakkında

SinanTanriverdi

(@SinanTanriverdi)

Gönderiler: 16

Eminent Member

Konu başlatıcı

Merhaba arkadaşlar,

AD üzerindeki tüm kullanıcılarda "Kullanıcı parolayı değiştiremez" ve "Parola her zaman geçerli olsun" işaretlerini tek bir script ile kaldırmak istiyorum. Bu konuda yardımlarınızı rica ediyorum.

Teşekkürler

Gönderildi : 01/08/2013 14:26

Hakan Uzuner

(@hakanuzuner)

Gönderiler: 33322

Illustrious Member Yönetici

Merhaba, aşağıdaki komut setlerini kullanabilirsiniz, ama mutlaka sisteminizin yedeğiniz alın.

Never Expire için

dsquery user "OU=Muhasebe,DC=cozumpark,DC=com" | dsmod user -pwdneverexpires yes

Cannot change password için - bunu note defteri ile vbs yapmanız gerekli

Option Explicit

Dim objOU, objUser, intUAC
Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000

' Bind to specified OU.
Set objOU = GetObject("LDAP://ou=muhsebe,dc=cozumpark,dc=com")

' Filter on users in the OU.
objOU.Filter = Array("user")

For Each objUser In objOU
    ' Skip computer objects (which have class "User").
    If (objUser.Class = "user") Then
        intUAC = objUser.Get("userAccountControl")
        ' Check if "Password Never Expires" already set.
        If (ADS_UF_DONT_EXPIRE_PASSWD AND intUAC) = 0 Then
            ' Set bit for "Password Never Expires".
            objUser.Put "userAccountControl", intUAC OR ADS_UF_DONT_EXPIRE_PASSWD
            objUser.SetInfo
        End If
    End If
Next

Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************

Gönderildi : 01/08/2013 17:26