'IN FORM1 'Beispiel: VB .Net - WMI - Ermitteln unter welchem Anwender eine Datei erstellt wurde ' Option Explicit On Option Strict On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Filename As String = "c:\sitemap.txt" Dim go As New GetOwner(Filename) Dim Result As String = go.ReturnOwner() Select Case Result Case Nothing MessageBox.Show("Error...", "Nothing") Case Else MessageBox.Show(Result, "Info") End Select End Sub End Class 'IN GetOwner Option Explicit On Option Strict On Imports System.Management Imports System.IO Public Class GetOwner Friend _filename As String Public Sub New() MyBase.New() End Sub Public Sub New(ByVal Filename As String) _filename = Filename End Sub Friend Property Filename() As String Get Return _filename End Get Set(ByVal Value As String) If (File.Exists(Value)) Then _filename = Value Else Throw New IO.IOException("The specified file doesn't exist.") End If End Set End Property Public ReadOnly Property ReturnOwner() As String Get Return GetFileinformation() End Get End Property Friend Function GetFileinformation() As String Try Dim query As String = "Win32_LogicalFileSecuritySetting.Path" Using mo As ManagementObject = New ManagementObject(query & "='" & Filename & "'") Dim mbo As ManagementBaseObject = mo.InvokeMethod("GetSecurityDescriptor", _ Nothing, _ Nothing) Dim Result As String = Nothing If (DirectCast((mbo.Properties("ReturnValue").Value), UInt32)) = 0 Then Dim pDescriptor As ManagementBaseObject = _ (DirectCast((mbo.Properties("Descriptor").Value), ManagementBaseObject)) Dim Owner As ManagementBaseObject = _ (DirectCast((pDescriptor.Properties("Owner").Value), ManagementBaseObject)) Dim pdc As PropertyDataCollection = Owner.Properties Result = pdc("Name").Value.ToString() End If Return Result End Using Catch ex As System.Management.ManagementException MessageBox.Show(ex.Message.ToString(), "ManagementException") Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Exception") End Try Return Nothing End Function End Class