fjerne brugere fra en sikkerhedsgruppe der ligger i en bestemt ud.

Er der ingen der kan ?

Hejsa.

Du er velkommen til at se om du kan bruge noget fra følgende sider:

1. List alle brugere i en bestemt AD gruppe: http://www.winfrastructure.net/article.aspx?BlogEntry=Get-all-users-in-specific-AD-group-using-VbScript

2. Find OU for bruger objekt i AD: http://www.winfrastructure.net/article.aspx?BlogEntry=Get-the-OU-a-user-is-in-using-ADO-and-VbScript

Hej igen.

Jeg fandt dit scenarie ret spændende og fik lyst til at lave et direkte eksempel som du nok godt kan bruge uden de store modifikatoner.

http://www.winfrastructure.net/article.aspx?BlogEntry=Removing-users-from-an-AD-group-using-VBScript

Håber det er ok, at jeg har 'kopieret' din problemstilling :-)

Hej igen
tak for det. det virkede :)
lige et tillægs spørgsmpl:

men hvad nu hvis jeg vil prøve at tilføje til en gruppe istedet for at fjerne. jeg har prøvet det her:
at hvis de er i ouen der hedder test så skal de blive medlem af testgammel sikkerheds gruppen,

er det ikke Const ADS_PROPERTY_APPEND = 3 jeg skal bruge?
jeg har prøvet men jeg tror jeg mangler noget et eller andet..


Option Explicit
Dim objRootDSE, strDomain, objGroup, objUser, strdistinguishedName, arrDnComponents
Const ADS_PROPERTY_DELETE = 4
Const ADS_PROPERTY_APPEND = 3

' Retrieve domain information
Set objRootDSE = GetObject("LDAP://RootDSE")
strDomain = objRootDSE.Get("DefaultNamingContext")

' Bind to the group
Set objGroup = GetObject("LDAP://CN=testGammel,ou=Sikkerhedsgrupper," & strDomain)

' Iterate through the user objects in the group
For Each objUser In objGroup.Members

' Get the users distinguishedName
strdistinguishedName = objUser.distinguishedName

' Split users distinguishedName by ','
arrDnComponents = Split(objUser.distinguishedName, ",")

' Check to see if the user is in the OU

If Right(arrDnComponents(1), Len(arrDnComponents(1)) -3) = "test" Then

' Remove the user from the group

objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array(strdistinguishedName)

'objGroup.PutEx ADS_PROPERTY_DELETE, "member", Array(strdistinguishedName)
objGroup.SetInfo
End If
Next

msgbox "færdig"

Hej.
Glad for at jeg kunne hjælpe!
Tjek http://www.winfrastructure.net/article.aspx?BlogEntry=Adding-and-removing-users-from-security-groups-using-VbScript for et eksempel.

Hej thomas
skal du lige have point ? :)

Jo, så skidt ;)