I tried the programming section (no replies).
I’d like to write a script to list Permissions on a folder and enumerate Users and members of Local & Global groups (and Domain if possible). I’m new at this, any help would be greatly appreciated. I’d like to output to Excel if possible.
My novice attempt listed below:
On Error Resume Next
Dim RowNumber, ColumnNumber, XL, MyPos
ColumnNumber=1
RowNumber=1
Set XL = CreateObject(“Excel.Application”)
XL.workbooks.add
XL.Visible = TRUE
XL.Cells(RowNumber, ColumnNumber+1).Value = “User ID”
XL.Cells(RowNumber, ColumnNumber+2).Value = “User Name”
RowNumber=RowNumber+2
XL.Cells(RowNumber, ColumnNumber).Value = “Server7/Source Group”
RowNumber=RowNumber+1
Set Group = GetObject(“WinNT://Server7/Source Group”)
For Each Member in Group.Members
MyPos = Instr(1, member.name, “$”)
if MyPos = 0 then
XL.Cells(RowNumber, ColumnNumber+1).Value = member.name
XL.Cells(RowNumber, ColumnNumber+2).Value = member.fullname
RowNumber=RowNumber+1
end if
Next
RowNumber=RowNumber+1
XL.Cells(RowNumber, ColumnNumber).Value = “Others”
RowNumber=RowNumber+1
Set Group = GetObject(“WinNT://Server/Domain Users”)
For Each Member in Group.Members
MyPos = Instr(1, member.name, “$”)
if MyPos = 0 then
if member.name = “123456” then
XL.Cells(RowNumber, ColumnNumber+1).Value = member.name
XL.Cells(RowNumber, ColumnNumber+2).Value = member.fullname
RowNumber=RowNumber+1
end if
end if
Next
XL.Cells.EntireColumn.AutoFit
Set XL=nothing
MsgBox (“Done”)
WScript.Quit
