Add files via upload

lusrmgr/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.2.0")> 
-<Assembly: AssemblyFileVersion("1.6.2.0")> 
+<Assembly: AssemblyVersion("1.6.3.0")> 
+<Assembly: AssemblyFileVersion("1.6.3.0")> 

lusrmgr/My Project/Resources.resx

@@ -476,43 +476,6 @@
         SVJ4pQlss8a8FF295AoD8tS1yLxUtbQDsc7T1tNU18DidZYFLuGT8MdZwYRYbQcS6NvPV9UgW1mDdEWl
         QE5rPtWx4ykyRnWYOPo3ks6XGHKVVUKQVRpFrqylN1KLjOJyGeN/1GrsIeIre8jB4lJPp108kpgsyyqt
         JkE19h04lJQiyyiie1t5YC21hYghfk22jqBmxn4C9Q+Y/mU/loIAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Shield" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAbCAYAAABvCO8sAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAB1ZJREFUSEutlndYVGcWxkd6EQURMShdQAPDgqgrdTWYPOiKxpJs3GUfQRLWhIgM
-        IGIABQYVCaAoLEgTE0CKonTpMAgMbYYmIEXpnaHDjKLvfmT8Q3dTzMbf85zn/nHPed97z3fu913K72Hr
-        1q3Ukycdrrt7+DxydfN4tP/gQRctLS3q69vvDwUFBVlb26++Tkq539bMKkZXUwFaWXkoYxS+DA4Jr9XV
-        1T1C0kT42X8MUSqVahoZfSu6paV5cqqvEGOVthh5aIzeZE20px1DZ0MeUtPzRlxcXK9paCjrkZoV/NJ3
-        R5CErJ6e3t6AgIDQquq61uGBp5juzsRcixdeNB4Hl2GA2VRxjEZS0H5TC93MKDQ0Nr6KT7zbYGVldVla
-        WtqMaEj+pPYrCHh6eu7Nzc1PYDKryrq6ng4ODXS/mh1kgtOVDt44Axi7j1ddF7BUsx/cbEXMxQlj7AYx
-        9ZNAU+ynaKp8gPKKyhcP0jOeRkXfKvSh00PJGhsRbSG+xdtoJdxJqAS44PRXYrQpGOMsD8w9i8UrbgfA
-        68CL4XRMsL0xkH8IXfGa6I1chckIUYwHCaLHm4KG78RRFbIPzORzZI2LwGRWvrK1tWUSbV2+xRsoKWkZ
-        JSXe7lt8QgOnRBWLrH14+YwOjKcDU6XATCbaqsJxLfB7ONFo+PTIF6D93QDj/xYG54Y4Rq6IYshLGD3O
-        FLTaU1DitA4V+Unw8qY/JvL6fJc3UFbXMYy7HdbLbbMFr0aDrNXnWOr0wsvuYGIcAHS7g51NA53uA/tv
-        HXDg0N/wzecGGLpKASdIBEOXxTDoI4n+c2Los6OA9ZUMijNj4eN7+ZcNb0ff6F14/E9wK5TAq7PA80Y7
-        8BpssFh1AGCaouYHc5y0s4XlwUMw2GkCu7+qY4ROwej5Feh3E0G/qwR6nVaix1YQbBsZFKXFwJt+qYXI
-        /4yhsrphXFxC71zTCSyUKIBXuRvcaksslv4Zc9kbgBwplF/dCFNDA8jJKUBMYiWO7ZDC2DkKhkkb+x0E
-        0edADE9LoddOFGy7NSjJuAUv+sVlw618lzdYNkxISOqdqf8ScwXrwavYBW75J1jIU8FMsiCWYijIdxSH
-        gowwSDpWCIjghPFqcNwpGDlLwYCzEPqdJch1NQYdJME+tQ6MrNu/0lJiGJ+Q0sthO2MmV54YmhDDPZi5
-        p4TR7wUxT6aQYS8ORRkxUASEIbVGHjQLecx4kZZeEMawpziG3KUx5CGHIbc1qD2rjIrCu/C95NdA5P93
-        SteuXat/Jyn98XhTEKZzPgB3uZVZ5pi4poQRT0HM+VDAdBSDqvwqrFy9Bqoa2rhwWBkLfiKY8JcmIYdx
-        /w0Y81fCmO8HqPTWRlVFEfwDAkuJvAbf5W2Uo2MTc3pY0ZhII21M+ROmYj/CxFVVjHgLYnb5O3MSxRYV
-        WazfqILthma4ZqOJxWBpTIUpYjpiE6YiNTFJdp6J68pgBhmhqpZNpvriA6K9gW/xNpJ+VwKvs5mZGEw2
-        wWS4JqZiTMG5roFRbxHMXqCg2VkUOmryUNHUhrnFfkTYU8GLVsRMvDZmk/XJWpNI0MMQMS2P/geKGZXP
-        7e3t/Yn2Sr7Ff2FmZmaXW8CYHci0xmSYCiYjt4ETokMMJTB9noLOM0LYRZWHLpWKvRafINZRG0spWzCf
-        vhPz2caYzzTCfOo2dIRvRllWNO4kJg+Qk+aL1/I/i0bUrR8YHdV3MRyhQVq1BZOhuhi/KIsR9xWY8CC7
-        iIs4Mr5Zh8KzG9EXpoXFtB1kks2wWLQbC7kmmL6nh+qw3SgrZcDF1TWLaGrypX8Bc3NzT0ZZObc71QpT
-        IUqYDNbGxBUyDOdFyFsKIMZKDvv/oo+z1rvQHrENL8hRtVhiTk6QPeAVmqEzahMY94NAPrFRISGBr4nk
-        bx5Xm/39A5mttfkYitqC6VANTASoYc5XGn3fSUJPUwEK6nrYc8AKUZ4fA0XEsOzjnww5qVSUhR8Em13/
-        0tLSMoVoqfMlfwM1NbXjBYUlkx1FARiP1sFMqA6myLhzfGTgZLEBRma78a8vjyMvwARL5K24DHPM5+5A
-        bfh21D3KRlj4zSdE5jBf7d0QOnLk6M16NmupM9cDU3GGmLm5A7OBqhi4qIi8cx+i8so2TKUYgZdvjsU8
-        YzyJ2AxWXiSKS8tmFBUV6URDlC/17iicpjnnP26sxtNcN8ylHcZ8wj4sxBrjOXkA3l2y9WXtw2KOOfri
-        9cHK8EMdq/65sbFpDKldz5f4ncjLy2v70C/VtDXXoqv4EiYensD8Q2sy/scwn/UZpjMOoDP+I7QVh6Cp
-        uXXJxsY2k5Rt5lf/n2zapLyT7nu5op5Vg2e1P6I9xxVtaafRknoSbek09JA/OGZ1He/UqdMZ4uLi21+X
-        /TFUVTdSz5xxu5ObW7DQ2tKE/t5O9PV0oP1JK1LupY0dPXr0Bkn7kJ/9/pC1trb+1t3d856H5/l8Gs25
-        wNGRlkjG34rcW81Pef8Ik1hFQuZ1SJFY/q18RyiU/wAEiY4+tOV/NAAAAABJRU5ErkJggg==
 </value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />

lusrmgr/src/ActiveDirectory.vb

@@ -49,7 +49,7 @@ Public Class ActiveDirectory
     ''' </summary>
     ''' <remarks></remarks>
     Private Sub UpdateLists()
-        If Not mainF.ViewHandler.GetView() = ViewHandler_C.View.MachineRoot AndAlso mainF.ADHandler.currentAD().Equals(Me) Then
+        If Not mainF.ViewHandler.GetView() = ViewHandler_C.View.MachineRoot AndAlso mainF.ADHandler.currentAD Is Me Then
             mainF.ViewHandler.RefreshMainList()
         End If
         mainF.ViewHandler.RefreshSearch()
@@ -73,14 +73,6 @@ Public Class ActiveDirectory
         main.Close()
     End Sub
 
-    Public Shadows Function Equals(obj As ActiveDirectory) As Boolean
-        If GetID() = obj.GetID() Then
-            Return True
-        Else
-            Return False
-        End If
-    End Function
-
 #Region "Constructors"
 
     Public Sub New(mainForm As MainForm)
@@ -146,6 +138,10 @@ Public Class ActiveDirectory
         Return isLoading_
     End Function
 
+    Public Function IsRemoteAD() As Boolean
+        Return mainF.ADHandler.localAD IsNot Me
+    End Function
+
     Public Function ConnectionErrorOccurred() As Boolean
         Return conErr
     End Function
@@ -272,7 +268,11 @@ Public Class ActiveDirectory
             End If
             Return Nothing
         Catch ex As Exception
-            ShowUnknownErr(parentWnd, ex.Message)
+            If ex.HResult = &H80070035 Then 'Network path not found error
+                TaskDialog(parentWnd, "Local users and groups", "Could not access computer", "The network path could not be found.", TASKDIALOG_COMMON_BUTTON_FLAGS.TDCBF_OK_BUTTON, TD_ERROR_ICON, 0, True)
+            Else
+                ShowUnknownErr(parentWnd, ex.Message)
+            End If
             Return Nothing
         End Try
     End Function
@@ -294,7 +294,11 @@ Public Class ActiveDirectory
             End If
             Return Nothing
         Catch ex As Exception
-            ShowUnknownErr(parentWnd, ex.Message)
+            If ex.HResult = &H80070035 Then 'Network path not found error
+                TaskDialog(parentWnd, "Local users and groups", "Could not access computer", "The network path could not be found.", TASKDIALOG_COMMON_BUTTON_FLAGS.TDCBF_OK_BUTTON, TD_ERROR_ICON, 0, True)
+            Else
+                ShowUnknownErr(parentWnd, ex.Message)
+            End If
             Return Nothing
         End Try
     End Function
@@ -317,7 +321,7 @@ Public Class ActiveDirectory
     ''' Refreshes the user and group database.
     ''' </summary>
     ''' <remarks></remarks>
-    Public Sub RefreshDS()
+    Public Sub RefreshDS(Optional DoNotUpdateLists As Boolean = False)
         GroupList.Clear()
         UserList.Clear()
 
@@ -370,7 +374,7 @@ Public Class ActiveDirectory
             Return
         End If
 
-        UpdateLists()
+        If Not DoNotUpdateLists Then UpdateLists()
     End Sub
 
 #Region "Rename handlers"
@@ -390,18 +394,48 @@ Public Class ActiveDirectory
         Dim dsuserp As DsEntry = FindUser(Name, parentWnd)
         If dsuserp IsNot Nothing AndAlso newName <> dsuserp.Name Then
             Try
-                dsuserp.Rename(newName)
-                dsuserp.CommitChanges()
+                'On the local machine, WMI is used for renaming because of the better performance it provides.
+                If Not IsRemoteAD() Then
+                    Dim result As Integer = 0
+                    Try
+                        'For better performance, the WMI Win32_UserAccount class is used to invoke the rename method locally.
+                        Dim wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\localhost\root\cimv2")
+                        Dim accounts = wmi.ExecQuery("Select * from Win32_UserAccount Where Name = '" & Name & "'")
+                        result = accounts.ItemIndex(0).Rename(newName)
+                    Catch ex As Exception
+                        Dim a = ex.GetType()
+                        'Fallback to DirectoryServices
+                        If Not Warnings.Exists(Function(w As ADWarning) As Boolean
+                                                   Return w.Title = "WMI initialization failed"
+                                               End Function) Then
+                            'Add a warning message if not previously done
+                            Warnings.Add(New ADWarning("WMI initialization failed", "Failed to invoke WMI initialization during rename.", ex.Message))
+                            mainF.ViewHandler.RefreshWarnings()
+                        End If
+                        dsuserp.Rename(newName)
+                        dsuserp.CommitChanges()
+                    End Try
+
+                    If result <> SystemErrorCodes.SUCCESS Then
+                        'Fallback to DirectoryServices to recieve further information about the error
+                        dsuserp.Rename(newName)
+                        dsuserp.CommitChanges()
+                    End If
+                Else
+                    dsuserp.Rename(newName)
+                    dsuserp.CommitChanges()
+                End If
 
                 Dim fullName As String = UserList(Name)
                 UserList.Remove(Name)
                 UserList.Add(newName, fullName)
                 UpdateLists()
 
+                RefreshDS()
                 RaiseEvent OnRenameUser(Name, newName)
                 Return True
             Catch ex As UnauthorizedAccessException
-                ShowPermissionDeniedErr(mainF.Handle)
+                ShowPermissionDeniedErr(mainF.Handle, IsRemoteAD())
                 Return False
             Catch ex As Runtime.InteropServices.COMException
                 If ex.ErrorCode = COMErrorCodes.GROUP_NOT_FOUND_USER Then
@@ -425,17 +459,46 @@ Public Class ActiveDirectory
         Dim dsgrp As DsEntry = FindGroup(Name, parentWnd)
         If dsgrp IsNot Nothing AndAlso newName <> dsgrp.Name Then
             Try
-                dsgrp.Rename(newName)
-                dsgrp.CommitChanges()
+                'On the local machine, WMI is used for renaming because of the better performance it provides.
+                If Not IsRemoteAD() Then
+                    Dim result As Integer = 0
+                    Try
+                        'For better performance, the WMI Win32_Group class is used to invoke the rename method locally.
+                        Dim wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\localhost\root\cimv2")
+                        Dim groups = wmi.ExecQuery("Select * from Win32_Group Where Name = '" & Name & "'")
+                        result = groups.ItemIndex(0).Rename(newName)
+                    Catch ex As Exception
+                        'Fallback to DirectoryServices
+                        If Not Warnings.Exists(Function(w As ADWarning) As Boolean
+                                                   Return w.Title = "WMI initialization failed"
+                                               End Function) Then
+                            'Add a warning message if not previously done
+                            Warnings.Add(New ADWarning("WMI initialization failed", "Failed to invoke WMI initialization during rename.", ex.Message))
+                            mainF.ViewHandler.RefreshWarnings()
+                        End If
+                        dsgrp.Rename(newName)
+                        dsgrp.CommitChanges()
+                    End Try
+
+                    If result <> SystemErrorCodes.SUCCESS Then
+                        'Fallback to DirectoryServices to recieve further information about the error
+                        dsgrp.Rename(newName)
+                        dsgrp.CommitChanges()
+                    End If
+                Else
+                    dsgrp.Rename(newName)
+                    dsgrp.CommitChanges()
+                End If
 
                 GroupList.Remove(Name)
                 GroupList.Add(newName)
                 UpdateLists()
 
+                RefreshDS()
                 RaiseEvent OnRenameGroup(Name, newName)
                 Return True
             Catch ex As UnauthorizedAccessException
-                ShowPermissionDeniedErr(parentWnd)
+                ShowPermissionDeniedErr(parentWnd, IsRemoteAD())
                 Return False
             Catch ex As Runtime.InteropServices.COMException
                 If ShowCOMErr(ex.ErrorCode, parentWnd, ex.Message, Name) = COMErrResult.REFRESH Then

lusrmgr/src/Dialogs/AddToGroup.vb

@@ -103,7 +103,7 @@ Public Class AddToGroup
                     dstListView.Items.Add(item.Clone())
 
                 Catch ex As UnauthorizedAccessException
-                    ShowPermissionDeniedErr(Handle)
+                    ShowPermissionDeniedErr(Handle, AD.IsRemoteAD())
                     Return
                 Catch ex As Runtime.InteropServices.COMException
                     If ShowCOMErr(ex.ErrorCode, Handle, ex.Message, item.Text) <> COMErrResult.LOOP_CONTINUE Then
@@ -128,7 +128,7 @@ Public Class AddToGroup
                     dstListView.Items.Add(group.Name, 1)
 
                 Catch ex As UnauthorizedAccessException
-                    ShowPermissionDeniedErr(Handle)
+                    ShowPermissionDeniedErr(Handle, AD.IsRemoteAD())
                     Return
                 Catch ex As Runtime.InteropServices.COMException
                     If ShowCOMErr(ex.ErrorCode, Handle, ex.Message, item.Text) <> COMErrResult.LOOP_CONTINUE Then