Option Explicit
Dim objDSE, strDN, objContainer, objChild, sCommand, WshShell
Set objDSE = GetObject("LDAP://rootDSE")
strDN = "OU=Domain Controllers," & objDSE.Get("defaultNamingContext")
Set objContainer = GetObject("LDAP://" & strDN)
sCommand = "%COMSPEC% /C "
Set WshShell = WScript.CreateObject("WScript.Shell")
objContainer.Filter = Array("Computer")
For Each objChild In objContainer
if Ucase(mid(objChild.Name,4)) <> "MyMainDC" then 'ici mettre le controleur de domaine principal
WshShell.Run(sCommand & "if exist \\" & _
mid(objChild.Name,4) & "\Sysvol repadmin /syncall " _
& mid(objChild.Name,4) & _
".mydomain.com dc=mydomain,dc=com /force") 'remplacer ".mydomain.com" par le nom du domaine, pareil devant les 2 dc=
end if
Next