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