السلام عليكــم ورحمـة الله وبركاتــه
السكربت يستخدم في تغيير كلمة السر لمجموعة من المستخدمين الذين يندرجون تحت مجلد واحد في ال الاكتف دايركتوري
اريد معرفة ماهي الجمل التي يجب علي تغييرها الى قيم لكي استطيع من تطبيق هذا السكربت في الشبكة المحلية الخاصة بمؤسستي بدون ان اقوم بإعادة ضبط كلمة المرور لمجموعة كبيرة من المستخدمين يدوياً
SetPassword .vbs
' Sample VBScript to set a user's password in a named OU.
' Author Guy Thomas http://computerperformance.co.uk/
' Version 2.3 - May 2005
' --------------------------------------------------------------'
Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strDNSDomain, strPassword
' Bind to Active Directory Domain
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
' -------------------------------------------------------------'
' Important change OU= to reflect your domain
' -------------------------------------------------------------'
strContainer = "OU=Accounts, "
strPassword = "P@ssw0rd"
strContainer = strContainer & strDNSDomain
' Loop through OU=, setting passwords for all users
set objOU =GetObject("LDAP://" & strContainer )
For each objUser in objOU
If objUser.class="user" then
objUser.SetPassword strPassword
objUser.SetInfo
End If
Next
WScript.Quit
' End of Example vb script: SetPassword