MS

app/DD-Record-Organizer/Classes/ClassWDRights.vb

@@ -67,13 +67,13 @@ Public Class ClassWDRights
             Return False
         End Try
     End Function
-    Public Shared Function Doc_Renew_Rights(doc_id As Integer, reldocpath As String, deleterights As Boolean) As Boolean
+    Public Shared Function Doc_Renew_Rights(oWMObject As WMObject, doc_id As Integer, reldocpath As String, deleterights As Boolean) As Boolean
         Try
             LOGGER.Debug(String.Format("Working on rights for file: {0}", reldocpath))
             Dim DT_USER_RIGHT As DataTable
             Dim DT_GROUP_RIGHT As DataTable
             Dim oSession
-            Dim oWMObject As WINDREAMLib.WMObject
+            ' Dim oWMObject As WINDREAMLib.WMObject
             Dim UserGroupRelation
             Dim UserOrGroup
             Dim oUSer
@@ -81,7 +81,7 @@ Public Class ClassWDRights
 
             Try
                 'Dedizierte Session herstellen
-                oSession = GetWMSessionAsUser(AD_DOMAIN, AD_SERVER, AD_USER, AD_USER_PW)
+                oSession = GetWMSessionAsUser(WM_DOMAIN, WM_SERVER, WM_USER, WM_USER_PW)
             Catch ex As Exception
                 Dim msg = "Error in Doc_Renew_Rights-GetWMSessionAsUser : " & ex.Message
                 LOGGER.Warn(msg)
@@ -102,16 +102,17 @@ Public Class ClassWDRights
                     LOGGER.Debug(String.Format("Amount of Userrights: {0}", DT_USER_RIGHT.Rows.Count))
                 End If
                 LOGGER.Debug(String.Format("Amount of Grouprights: {0}", DT_GROUP_RIGHT.Rows.Count))
-                Try
-                    'Object definieren
-                    oWMObject = oSession.GetWMObjectByPath(1, reldocpath)
-                    LOGGER.Debug("Object created.")
-                Catch ex As Exception
-                    Dim msg = "Error GetWMObjectByPath: " & reldocpath & vbNewLine & Err.Description
-                    LOGGER.Warn(msg)
-                    LOGGER.Error(ex)
-                    Return False
-                End Try
+                'Try
+                '    'Object definieren
+
+                '    oWMObject = WMCLASS.GetFileByPath(reldocpath) ' oSession.GetWMObjectByPath(1, reldocpath)
+                '    LOGGER.Debug("oWMObject created.")
+                'Catch ex As Exception
+                '    Dim msg = "ClassWDRights - Error GetWMObjectByPath: " & reldocpath & vbNewLine & Err.Description
+                '    LOGGER.Warn(msg)
+                '    LOGGER.Error(ex)
+                '    Return False
+                'End Try
                 Dim lret
                 Try
                     ' Objekt muss zur Rechteänderung gelockt werden