Jag har ett OU med ca 26000 user.
Alla dessa måste ligga i en grupp.
De flesta gör det men långt ifrån alla.
Om jag markerar alla i OU:t och lägger till i gruppen blir det typ
20000 dialogrutor jag måste klicka OK på. (för de som redan ligger i gruppen)

Hur löser jag detta?? (VB6, VBScript eller Kix)

Alltså, loopa igenom OU:t och för varje user som inte även är med i en spec.
grupp så ska jag lägga till den användaren i gruppen.

Hjälp!! Snälla!

Egentligen en smaksak men jag tycker du ska titta på Technet: http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/Default.asp

Under "Users and groups" hittar du säkert något smaskigt :)
Har man inte sysslat med detta tidigare kan det vara lite bökigt, men när det funkar är det väldigt smidigt!

Nedanstående skript tar befintliga användare i ett OU och lägger till dem i den grupp du specificerar.

option explicit

Dim strGroupName, strOU, objGroup, objOU, objChild, objClass

strGroupName = "cn=<ersätt_med_gruppnamn>,ou=<ersätt_med_OUnamn>,
dc=<ersätt_med_domännamn>,dc=<ersätt_med_domännamn>"
strOU        = "ou=<ersätt_med_OUnamn>,
dc=<ersätt_med_domännamn>,dc=<ersätt_med_domännamn>"

Set objGroup = GetObject("LDAP://" & strGroupName)
Set objOU    = GetObject("LDAP://" & strOU)

For Each objChild in objOU
  
  If Ubound(objChild.ObjectClass) = 3 then
    For Each objClass in objChild.ObjectClass    
      If objClass = "user" then
        ' Add the object
        objGroup.Add(objChild.ADsPath) 
      End If
    Next
  End If
     
Next

objGroup.SetInfo

Set objGroup  = nothing
Set objOU     = nothing