flederflick
-
Total Posts
:
3
- Scores: 0
-
Reward points
:
0
- Joined: 1/24/2008
-
Status: offline
|
Convertion problems
Tuesday, October 14, 2008 11:56 PM
( permalink)
Hello everybody. I use a vbscript to change the property "Manager can change memberlist" of an AD Distribution Group The Code:
If WScript.Arguments.Count = 0 Then
WScript.Echo "Usage: cscript script.vbs Group.distinguishedName domainNT4 1"
WScript.Quit(1)
End If
strGroup = Wscript.Arguments(0) 'DN of Group
'strDomainController = wscript.Arguments(1) 'DC FQGN used to bind to group
strDomainNT4 = wscript.Arguments(1) 'NETBIOS domain name for the group
intEnabled = wscript.Arguments(2) '1 for enabled, 0 for disabled
Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &H5
Const ADS_RIGHT_DS_WRITE_PROP = &H20
Const ADS_ACEFLAG_INHERIT_ACE = &H00002
Const ADS_ACEFLAG_DONT_INHERIT_ACE = &H0
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &H01
Const ADS_OBJECT_WRITE_MEMBERS = "{BF9679C0-0DE6-11D0-A285-00AA003049E2}"
'Set objGroup = GetObject("LDAP://" & strDomainController & "/" & strGroup)
Set objGroup = GetObject("LDAP://" & strGroup)
Set objSecurityDescriptor = objGroup.Get("ntSecurityDescriptor")
Set objDACL = objSecurityDescriptor.DiscretionaryACL
Set objUser = GetObject("LDAP://" & objGroup.Get("managedBy"))
if intEnabled = 0 then
For Each objACE in objDACL
If InStr(1, objACE.Trustee, objUser.Get("sAMAccountName"), VbTextCompare) Then
objDACL.RemoveAce(objACE)
End If
Next
else
Set objACE = CreateObject("AccessControlEntry")
objACE.Trustee = strDomainNT4 & "\" & objUser.Get("sAMAccountName")
' wscript.echo objACE.Trustee
objACE.AccessMask = ADS_RIGHT_DS_WRITE_PROP
objACE.AceFlags = ADS_ACEFLAG_DONT_INHERIT_ACE
objACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE.objectType = ADS_OBJECT_WRITE_MEMBERS
objDACL.AddAce(objACE)
end if
objSecurityDescriptor.DiscretionaryACL = objDACL
objGroup.Put "ntSecurityDescriptor", Array(objSecurityDescriptor)
objGroup.SetInfo
Wscript.Quit(0)
Now i try to integrate it in a website i'm programming but i cant rewrite this to vb.net(Asp.net) Does anybody know how to rewrite the code above or know how i can execute(server-side) a vbscript under asp.net Best Regards. Sidney
|
|
|
|