[2003] Lijst met alle rechten van een groep - Serversoftware en clouddiensten

woensdag 28 december 2005 10:45

Acties:

Verwijderd

Topicstarter

Hoi,

Google, xcacl en cacl ed willen allemaal niet werken. Mijn vraag:

2003 server:

Ik heb tig folders en shares en tig security groups. Ik wil graag een lijst hebben van welke FOLDERS de desbetreffende group lid zijn en welke rechten.. Is hier een handig commando of programma voor?

Bedankt!
Dennie

[ Voor 3% gewijzigd door Verwijderd op 28-12-2005 10:46 ]

woensdag 28 december 2005 10:46

Acties:

WhizzCat

www.lichtsignaal.nl

Heb je al in de resourcekits en het nieuwe Adminpak gekeken...?

Gezocht: netwerkbeheerder
Als je het niet aan een 6-jarige kan uitleggen, snap je er zelf ook niks van! - A. Einstein

woensdag 28 december 2005 10:53

Acties:

Verwijderd

Topicstarter

ja maar ik kan nergens vinden welk programma dit zou moeten kunnen, vandaar mijn vraag

woensdag 28 december 2005 11:44

Acties:

Verwijderd

xcacl of cacl kan dit prima, uit de resourcekit subinacl ook. maar om hier wat overzichtelijks van te maken, zal je wel moeten scripten.

woensdag 28 december 2005 13:02

Acties:

Taigu

Niet gratis, wel mooi: hyena van www.sysinternals.com. Zij leverden zelfs dumpsec ooit als freeware. Beetje google had je dit ook gevonden imho.

Cling to truth and it turns into falsehood. Understand falsehood and it turns into truth.

woensdag 28 december 2005 13:29

Acties:

MegaTronics

Chef WiFi Kabels

buddhole schreef op woensdag 28 december 2005 @ 13:02:
Niet gratis, wel mooi: hyena van www.sysinternals.com. Zij leverden zelfs dumpsec ooit als freeware. Beetje google had je dit ook gevonden imho.

ehm, hyena is van Systemtools en niet van Sysinternals

Vroeger, toen de Batavieren nog met zijn vijven waren.

woensdag 28 december 2005 14:31

Acties:

Verwijderd

Topicstarter

tenks, ik ga ff kijken.

zaterdag 31 december 2005 17:44

Acties:

MegaTronics

Chef WiFi Kabels

Misschien is AccessEnum van Sysinternals iets voor je. Daarmee kun je een folder scannen en die laat je precies zien wie waar rechten heeft.

Vroeger, toen de Batavieren nog met zijn vijven waren.

zondag 1 januari 2006 13:48

Acties:

shaowoo

hmm... ik denk dat je een soort tweetraps script moet maken.

1) accesenum uitvoeren
2) een vbscript schrijven die de output parsed, waarbij gezocht wordt naar de security group.

of

een vb script voor alles, enumeren van alle shares en het filteren op de gewenste gebruikers groep.

IT Freelancer since 2005, and still loving it.

zondag 1 januari 2006 16:43

Acties:

Verwijderd

Verwijderd schreef op woensdag 28 december 2005 @ 10:45:
Hoi,

Google, xcacl en cacl ed willen allemaal niet werken. Mijn vraag:

2003 server:

Ik heb tig folders en shares en tig security groups. Ik wil graag een lijst hebben van welke FOLDERS de desbetreffende group lid zijn en welke rechten.. Is hier een handig commando of programma voor?

Bedankt!
Dennie

Zelf geschreven voor me werk.. Wees er voorzichtig mee

'----------------------------------------------------------------------
' GetGroups.vbs, v1.5
' VBScript getting groups of an AD-user (including nested groups)
' Samenstelling: Shizzles ^ Squ1rr3l, 11-2004
'----------------------------------------------------------------------
Option explicit

Dim strSearchAccount, strBaseOU, strADsPath, StrCn, strDisplayName
Dim objConnection, objCommand, objRecordSet, objUser, objExplorer, objDocument
Dim colGroups, objGroup, wshShell

strBaseOU="DC=europe,DC=intranet"

Call Init
strSearchAccount = InputBox("Geef gebruikersnaam op:", "Zoek user")
CheckForUser(strSearchAccount)

'-------------------------
' subs
'-------------------------

Sub Init
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 800
objExplorer.Height = 700
objExplorer.Left = 140
objExplorer.Top = 0
objExplorer.Visible = 1
Do While (objExplorer.Busy)
Loop
Set objDocument = objExplorer.Document
objDocument.Open
objDocument.Writeln "<html><head><title>Zoekresultaten</title></head><body bgcolor='lightgrey'><font face='arial,verdana'>"
End Sub 'Init

Sub CheckForUser(strSearchAccount)
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"

Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "<LDAP://" & strBaseOU & ">;(&(objectCategory=person)(objectClass=user)(samAccountName=" & strSearchAccount & "));displayName,cn,distinguishedName,ADsPath;subtree"

Set objRecordSet = objCommand.Execute

If objRecordset.RecordCount = 0 Then
WScript.Echo "sAMAccountName: " & strSearchAccount & " bestaat niet!"
Else
'WScript.Echo strSearchAccount & " exists, Rec count: " & objRecordset.Recordcount
While Not objRecordset.EOF
objRecordSet.MoveFirst
strADsPath=objRecordset.Fields("ADsPath")
strCn=ObjRecordset.Fields("cn")
strDisplayName=ObjRecordset.Fields("displayName")

objDocument.Writeln "<table border='0' width='100%'><tr valign='top'>"
objDocument.Writeln "<td><H3>Groepen voor gebruiker: " & strSearchAccount & "</H3></td><td align='right'><FORM><INPUT TYPE='button' VALUE='Print' onClick='window.print()'></FORM></td>"
objDocument.Writeln "</tr></table>"
objDocument.Writeln "<H2>" & strDisplayName & " (" & strCn & ")</H2><font size='-1'>"
Set objUser = GetObject(strADsPath)
If Err.Number <> 0 Then
Wscript.Echo "User not found !" & vbCrLf & cn
Wscript.Quit(1)
End If
Call EnumDirectGroups(objUser)
Call EnumGroups(objUser)
objRecordset.MoveNext
Wend
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Zoekresultaten - Microsoft Internet Explorer"
End If
objConnection.Close
objDocument.Writeln "</body></html>"
objDocument.Write()
objDocument.Close
End Sub

Sub EnumDirectGroups(objUser)
objDocument.Writeln "<B>Direct lidmaatschap van:</B>"
Dim colGroups, objGroup, j
colGroups=objUser.memberOf
If IsEmpty(colGroups) Then
'wscript.echo "colgroups leeg"
Exit Sub
End If
For j = 0 To UBound(colGroups)
Set objGroup=GetObject("LDAP://" & colGroups(j))
objDocument.Writeln "<BR>" & objGroup.sAMAccountName
Next
objDocument.Writeln "<P><B>Alle groepen:</B>"
End Sub

Sub EnumGroups(objUser)
Dim colGroups, objGroup, j
colGroups=objUser.memberOf
If IsEmpty(colGroups) Then
'wscript.echo "colgroups leeg"
Exit Sub
End If
If TypeName(colGroups) = "String" Then
Set objGroup = GetObject("LDAP://" & colGroups)
objDocument.Writeln " - <B>>>></B> " & objGroup.sAMAccountName
Exit Sub
End If

For j = 0 To UBound(colGroups)
Set objGroup=GetObject("LDAP://" & colGroups(j))
objDocument.Writeln "<BR>" & objGroup.sAMAccountName
call EnumGroups(objGroup)
Next

End Sub 'EnumGroups