Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ADSI 2.5

Status
Not open for further replies.

whoslinus

IS-IT--Management
Jul 2, 2009
11
DE
does anyone know any live links to it or the.dll file i need for checking file permissions?!
 

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at
Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.
 
most of those's links are dead the software has been retracted . due to Microsoft wanting to make more money
Basically i need it for NTFS permission checking is there another way around this with out using this .DLL
 
Use XCACLS to report or set file permissions.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at
Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.
 
>the software has been retracted . due to Microsoft wanting to make more money

What are you talking about? ADSI 2.5 download was for NT4, which is long gone as far as Microsoft are concerned. It comes as no surprise that they no longer keep the links live. But it is nothing to do with withdrawing it to make more money.

Later versions of the OS come with ADSI built-in. So you no longer need to download a seperate library. And that includes the security stuff.

Getting hold of a security descriptor is about this simple:
Code:
[blue]    Dim oAdsSecurity 
    Dim oAdsSD 
    
    Dim ACL 
    Dim ACE 
    
    Set oAdsSecurity = CreateObject("ADsSecurityUtility")
    Set oAdsSD = oAdsSecurity.GetSecurityDescriptor("c:\temp", 1, 1)
    Set ACL = oAdsSD.DiscretionaryAcl
    For Each ACE In ACL
        MsgBox "Account: " & ACE.Trustee & vbCrLf & "Access mask: " & Hex(ACE.AccessMask) & vbCrLf & "Type: " & IIf(ACE.AceType = 0, "Allowed", "Denied")  ' not quite true, there are other types than Denied if type <>0
    Next[/blue]

Here's a link to the ADSI documentation, so you can figure out how to manage and decode Security descriptors, access control lists and access control entries and their variopus flags and bitmasks for yourself.

You can also do this through WMI
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top