[VBscript] Probleem met renamen van Active Directory groep

[pizzaboertje]

Als beginner ben ik op dit moment bezig met een script dat groepen hernoemt binnen mijn Active Directory.

Op dit moment heb ik binnen een OU groepen die als volgt zijn opgebouwd: L_XXX_XXX_XXX. Ik wil middels mijn script de eerste letter (L) vervangen door G-UG. Tevens wil ik alle underscore (_) vervangen door een streepje (-).

Bijvoorbeeld
Huidige groep: L_ABC_DEF_GHI
Gewenste groep: G-UG-ABC-DEF-GHI

Onderstaand mijn script. Waarschijnlijk lachen jullie erom. Maar hoop dat iemand me kan helpen.

code:

Set objOU = GetObject _
  ("LDAP://OU=Groups,OU=ORG,dc=Basis,dc=LAN")

ObjOU.Filter= Array("group")

For Each objUser in objOU
MyString = Left(objUser.SamAccountName,1)
objUser.SamAccountName = replace(objUser.SamAccountName, "_","-")
objUser.SamAccountName = Replace(MyString, "L","G-UG")
objUser.SetInfo
Next

[TeeDee]

- Je vervangt eerst de '_' met '-' in je bestaande SamAccountName.
- Vervolgens vervang je met de oude (dus diegene zonder de vorige wijziging) de eerste Char van je SamAccountName.
- En dan pas de SetInfo. (dus met alleen de vervanging van de eerste Char).

Maar goed, krijg je foutmeldingen, wat lukt er niet, ontploft de boel, is je AD leeg?

[pizzaboertje]

Heb het nu redelijk opgelost met onderstaande code:

code:

Set objOU = GetObject _
  ("LDAP://OU=Groups,OU=ORG,dc=Basis,dc=LAN")
ObjOU.Filter= Array("group")
For Each objUser in objOU
    strName = objUser.sAMAccountName
    strName = "G-UG" & Mid(strName, 2)
    strName = Replace(strName, "_", "-")
    objUser.sAMAccountName = strName
    objUser.SetInfo
Next

Ik heb nu echter de sAMAccountName aangepast. Dit lukt echter nog niet voor het name attribute, Weet iemand hier een oplossing voor. Dit is namelijk beveiligd.

[ Voor 82% gewijzigd door pizzaboertje op 15-04-2010 01:21 ]