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

Les déploiement d’application via GPO font sauvé des heures aux administrateurs réseaux. Mais il arrive que certaine application refuse de se réinstaller une fois supprimé via ajout suppression de programmes.

Pour forcer la réinstallation de l’application ouvrir le registre

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy\AppMgmt

et

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy\history\{c6dc5466-785a-11d2-84d0-00c04fb169f7}\

Il y’a une clé pour chaque logiciel distribué via GPO supprimer la clé et ouvrir une console DOS puis taper

gpupdate /force

Au prochain redémarrage de la machine le logiciel devrait s’être réinstaller