Convertion problems

Author Message
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)
0
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
 
 
 
#1

    Online Bookmarks Sharing: Share/Bookmark

    Jump to:

    Current active users

    There are 0 members and 1 guests.

    Icon Legend and Permission

    • New Messages
    • No New Messages
    • Hot Topic w/ New Messages
    • Hot Topic w/o New Messages
    • Locked w/ New Messages
    • Locked w/o New Messages
    • Read Message
    • Post New Thread
    • Reply to message
    • Post New Poll
    • Submit Vote
    • Post reward post
    • Delete my own posts
    • Delete my own threads
    • Rate post

    2000-2012 ASPPlayground.NET Forum Version 3.9