Comments by Member 11866893 (Top 12 by date)

You may have been onto something with inheritance. I looked up GetAccessRules this is Microsoft's explanation said:
Public Function GetAccessRules (includeExplicit As Boolean, includeInherited As Boolean, targetType As Type)


So I changed this line of the code: Dim rules = security.GetAccessRules(True, False, GetType(SecurityIdentifier))
to: Dim rules = security.GetAccessRules(True, True, GetType(SecurityIdentifier))

So far I can see that is wasn't displaying the results correctly. It was only finding the orphaned SID on each top directory. It is still running but now it is displaying all subdirectories under each top directory. So hopefully the reason it was not removing it was because inheritance was set on each user folder and the flag that was set to false was causing it to not perform the way I wanted it too. When it finishes I will let you know if that was the issue.

I looked at the advanced properties of one the user folders not being processed properly and it definitely shows the orphaned SID not inheriting.

I will run it again on one user folder and then manually check it to see if the inheritance is the issue. I don't think it is because I select the parent folder which is f:\user1 with FolderBrowserDialog and each user has a folder under user1. It is correctly finding and displaying the user folders. I have all subfolders and files inheriting under the user folder inheriting permissions from the user folder that is displayed correctly not from user1. I will let you know. I have only been programming so it is possible I might overlook something like that.

I tried the code you posted with both dsecurity and diracls. I also tried with the dinfo.setaccesscontrol(desecurity) the way you posted it and also inside the loop. It is still just finding the orphaned sid and properly displaying it in the listbox as well as logging it but not removing it.

If removeList.Count <> 0 Then
'Dim DirACLs As New Security.AccessControl.DirectorySecurity(Path, AccessControlSections.All)
Using logWriter As New StreamWriter("c:\orphansid.txt", True)
For Each id In removeList
ListBox1.Items.Add("Removed the following SID: " & id.ToString & " From " & Path & vbCrLf)
logWriter.WriteLine("Removed the following SID: {0} From {1}", id, Path)
dSecurity.PurgeAccessRules(id)
dinfo.SetAccessControl(dSecurity)
Next
End Using
End If

I am a domain admin and I am running the program with elevated privileges. Any ideas what else I may be doing wrong?

Where in my question did I say not working? I said isn't. I am asking if it will work or should work and if not what is wrong with it and how do I fix it? I tried it and when I click the button I get no errors and it doesn't map the drive.

This is one that I don't understand where to put the uncpath and drive letter.

Public Declare Function WNetAddConnection2 _
Lib "mpr.dll" Alias "WNetAddConnection2A" _
(
ByRef lpNetResource As NETRESOURCE,
ByVal lpPassword As String,
ByVal lpUserName As String,
ByVal dwFlags As Integer) As Integer

Public Declare Function WNetCancelConnection2 _
Lib "mpr" Alias "WNetCancelConnection2A" _
(
ByVal lpName As String,
ByVal dwFlags As Integer,
ByVal fForce As Integer) As Integer

<structlayout(layoutkind.sequential)>
Public Structure NETRESOURCE
Public dwScope As Integer
Public dwType As Integer
Public dwDisplayType As Integer
Public dwUsage As Integer
Public lpLocalName As String
Public lpRemoteName As String
Public lpComment As String
Public lpProvider As String
End Structure

' Public Const ForceDisconnect As Integer = 1
Public Const RESOURCETYPE_DISK As Long = &H1
'''

''' Maps a UNC path to a specific drive.
'''

''' <param name="DriveLetter"></param>
''' <param name="UNCPath"></param>
''' <returns>
''' <remarks>
Public Function MapDrive(ByVal DriveLetter As String, ByVal UNCPath As String) As Boolean

Dim nr As NETRESOURCE
Dim Username As String
Dim Password As String

nr = New NETRESOURCE
nr.lpRemoteName = UNCPath
nr.lpLocalName = DriveLetter & ":"
Username = Nothing '(add parameters to pass this if necessary)
Password = Nothing '(add parameters to pass this if necessary)
nr.dwType = RESOURCETYPE_DISK

Dim result As Integer
result = WNetAddConnection2(nr, Password, Username, 0)

If result = 0 Then
Return True
Else
Return False
End If
End Function


Here are the others

Private Sub Command_Click()
Dim startInfo As ProcessStartInfo
startInfo = New System.Diagnostics.ProcessStartInfo("cmd.exe", """NET USE F: \\xxxxxxxxx\CSC Backup""")
End Sub

Dim procID As Integer
Dim newProc As Diagnostics.Process
newProc = Diagnostics.Process.Start("C:\WINDOWS\SYSTEM32\NET.EXE")
procID = newProc.SessionId
procID = Shell("""net use F: \\xxxxxxx\csc backup")