ms

app/DD-Record-Organizer/frmConfig_Basic.vb

@@ -530,4 +530,28 @@ Public Class frmConfig_Basic
     Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
 
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Dim exists
+        If rbUser.Checked Then
+            exists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
+        ElseIf rbGruppe.Checked Then
+            exists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
+        End If
+        If exists = True Then
+            MsgBox("Object exists in windream!")
+        Else
+            MsgBox("Object is not existing in windream!", MsgBoxStyle.Critical)
+        End If
+    End Sub
+
+    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
+        Dim group
+        If rbGruppe.Checked Then
+            group = clsWD_GET.GET_WM_GROUP_OBJECT(txtObjectExists.Text)
+            If Not IsNothing(group) Then
+                MsgBox("GROUP.NAME: " & group.aname)
+            End If
+        End If
+    End Sub
 End Class