Option Explicit
Dim objOU, objUser, objRootDSE
Dim strContainer, strDNSDomain, intCounter
Set objRootDSE = GetObject(“LDAP://RootDSE”)
strDNSDomain = objRootDSE.Get(“DefaultNamingContext”)
strContainer = “OU=Nom de l’OU ,”
strContainer = strContainer & strDNSDomain
set objOU =GetObject(“LDAP://” & strContainer )
intCounter = 0
For each objUser in objOU
If objUser.class=”user” then
objUser.Put “msNPAllowDialin”, TRUE
objUser.SetInfo
intCounter = intCounter +1
End if
next
WScript.Echo intCounter & ” comptes modifiés.”
WScript.Quit