Ich möchte gerne folgendes Skript auf einem Windows Server 2003 Domänencontroller ausführen, bekomme aber diese Meldung:
Kann jemand helfen? Google hat mir bis jetzt nicht geholfen.
MfG
*Topic verschoben*
Visual Basic-Quellcode
- Const ADS_RIGHT_DS_WRITE_PROP = &H20
- Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
- Const ADS_ACEFLAG_INHERIT_ACE = 10
- Const ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT = &H3
- Set objRootDSE = GetObject("LDAP://RootDSE")
- FQDN = objRootDSE.Get("DefaultNamingContext")
- Set x = GetObject("LDAP://" & FQDN)
- Set sd = x.Get("ntSecurityDescriptor")
- Set Dacl = sd.DiscretionaryAcl
- 'serialNumber
- setAtt("{BF967A32-0DE6-11D0-A285-00AA003049E2}")
- '
- 'networkAddress
- setAtt("{BF9679D9-0DE6-11D0-A285-00AA003049E2}")
- '
- 'ipHostNumber
- setAtt("{DE8BB721-85DC-4FDE-B687-9657688E667E}")
- '
- 'employeeNumber
- setAtt("{A8DF73EF-C5EA-11D1-BBCB-0080C76670C0}")
- '
- 'employeeID
- setAtt("{BF967962-0DE6-11D0-A285-00AA003049E2}")
- Function setAtt(GUID)
- Set objAce = CreateObject("AccessControlEntry")
- objAce.Trustee = "NT AUTHORITY\Authenticated Users"
- objAce.AceFlags = 10
- objAce.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
- objAce.Flags = ADS_FLAG_INHERITED_OBJECT_TYPE_PRESENT
- objAce.ObjectType = GUID
- objAce.InheritedObjectType = "{BF967A86-0DE6-11D0-A285-00AA003049E2}"
- objAce.AccessMask = ADS_RIGHT_DS_WRITE_PROP
- ' Add the ACEs to the Discretionary ACL.
- Dacl.AddAce objAce
- sd.DiscretionaryAcl = Dacl
- x.Put "ntSecurityDescriptor", Array(sd)
- x.SetInfo
- 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“ ()