'Services werden ausgelesen via Win32'
        Dim Machine As String = TextBox1.Text
        Dim User As String = Me.TextBox2.Text
        Dim Password As String = Me.TextBox8.Text
        Dim options As New ConnectionOptions()
        options.Username = User
        options.Password = Password
        Dim Pfad As New ManagementPath("\\" & Machine & "\root\cimv2")
        Dim scopeRemoteMachine As New ManagementScope(Pfad, options)
        Dim queryDrives As New ObjectQuery("SELECT * FROM Win32_LogicalDisk")
        Dim searcherDrives As New ManagementObjectSearcher(scopeRemoteMachine, _
          queryDrives)
        Dim objectDrives As ManagementObject
        For Each objectDrives In searcherDrives.Get
            ComboBox1.Items.Add(objectDrives("name"))
        Next