VBS ADSchema

  • VBScript

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von qUoTuM.

    VBS ADSchema

    Ich möchte gerne folgendes Skript auf einem Windows Server 2003 Domänencontroller ausführen, bekomme aber diese Meldung:





    Visual Basic-Quellcode

    1. Const ADS_RIGHT_DS_WRITE_PROP = &H20
    2. Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
    3. Const ADS_ACEFLAG_INHERIT_ACE = 10
    4. Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H3
    6. Set objRootDSE = GetObject("LDAP://RootDSE")
    7. FQDN = objRootDSE.Get("DefaultNamingContext")
    9. Set x = GetObject("LDAP://" & FQDN)
    10. Set sd = x.Get("ntSecurityDescriptor")
    11. Set Dacl = sd.DiscretionaryAcl
    13. 'serialNumber
    14. setAtt("{BF967A32-0DE6-11D0-A285-00AA003049E2}")
    15. '
    16. 'networkAddress
    17. setAtt("{BF9679D9-0DE6-11D0-A285-00AA003049E2}")
    18. '
    19. 'ipHostNumber
    20. setAtt("{DE8BB721-85DC-4FDE-B687-9657688E667E}")
    21. '
    22. 'employeeNumber
    23. setAtt("{A8DF73EF-C5EA-11D1-BBCB-0080C76670C0}")
    24. '
    25. 'employeeID
    26. setAtt("{BF967962-0DE6-11D0-A285-00AA003049E2}")
    28. Function setAtt(GUID)
    30. Set objAce = CreateObject("AccessControlEntry")
    32. objAce.Trustee = "NT AUTHORITY\Authenticated Users"
    33. objAce.AceFlags = 10
    34. objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
    35. objAce.Flags = ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
    36. objAce.ObjectType = GUID
    37. objAce.InheritedObjectType = "{BF967A86-0DE6-11D0-A285-00AA003049E2}"
    38. objAce.AccessMask = ADS_RIGHT_DS_WRITE_PROP
    40. ' Add the ACEs to the Discretionary ACL.
    41. Dacl.AddAce objAce
    43. sd.DiscretionaryAcl = Dacl
    44. x.Put "ntSecurityDescriptor", Array(sd)
    45. x.SetInfo
    47. End Function




    Kann jemand helfen? Google hat mir bis jetzt nicht geholfen.

    MfG :)

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Damit lässt es sich ausführen, dankeschön dafür !

    Nur leider scheitert es nun in der nächsten Zeile:



    Administratorenrechte sind vorhanden!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „qUoTuM“ ()

Facebook
Telefonspende