none
Acceso denegado a la ruta de acceso para obtener la descripción de un proceso seleccionado. RRS feed

  • Pregunta

  • Hola.

    No consigo vincular el permitir el acceso al directorio con obtener la descripción del proceso seleccionado.

    Label1.Text = ""
    Dim idnt = Security.Principal.WindowsIdentity.GetCurrent().Name 'Obtendo el dominio y el usuario de la cuenta
    
    'Intento dar acceso de lectura a todo el disco donde está el sistema operativo
    Dim sFolderPath As String = "C:\" '
    Dim sUserAccount As String = idnt
    Dim oFolderInfo As DirectoryInfo = New DirectoryInfo(sFolderPath)
    Dim oFolderAcl As New DirectorySecurity(oFolderInfo.ToString, AccessControlSections.Access)
    oFolderAcl.AddAccessRule(New FileSystemAccessRule(sUserAccount, FileSystemRights.FullControl, AccessControlType.Allow))
    oFolderInfo.SetAccessControl(oFolderAcl)
    
    'Intento obtener la descripción del proceso seleccionado desde una lista con éstos
    Dim floc As String
    Dim flna As String = LbxLista.SelectedItem + ".exe" 'Proceso seleccionado.
    floc = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchAllSubDirectories, flna)(0)'acceso denegado a la ruta
    floc = Path.GetFullPath(flna)
    Dim flin As FileVersionInfo = FileVersionInfo.GetVersionInfo(Environment.SystemDirectory + floc)
    
    Label1.Text = flin.FileDescription
    
    oFolderAcl = Nothing
    oFolderInfo = Nothing

    Les agradecería ayuda



    • Editado Rafael F.M viernes, 14 de agosto de 2020 11:06
    jueves, 13 de agosto de 2020 12:02

Respuestas

  • Edito...

    Creo que lo he solucionado parte del problema.

    Dim proceso() As Process = Process.GetProcessesByName(LbxLista.SelectedItem)
    LblInformacion.Text = (proceso(0).MainModule.FileVersionInfo.FileDescription)

    Aunque, ya no se daría el caso, solo me queda obtener acceso a la información del archivo si tiene el acceso denegado a su ruta, para usarlo en otros eventos.

    viernes, 14 de agosto de 2020 12:21

Todas las respuestas

  • Hola Rafael F.M, 

      

    Gracias por levantar tu consulta en los foros de MSDN. Entendimos su pregunta y vamos a darle seguimiento para buscar la mejor repuesta pertinente al caso.  

    Gracias por usar los foros de MSDN.   

     

     Andres Aguilar

     ____________________________ 

      

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Si tiene algún cumplido o reclamo sobre el soporte de MSDN sientase en la libertad de contactar  MSDNFSF@microsoft.com. 

     

    jueves, 13 de agosto de 2020 20:13
    Moderador
  • Edito...

    Creo que lo he solucionado parte del problema.

    Dim proceso() As Process = Process.GetProcessesByName(LbxLista.SelectedItem)
    LblInformacion.Text = (proceso(0).MainModule.FileVersionInfo.FileDescription)

    Aunque, ya no se daría el caso, solo me queda obtener acceso a la información del archivo si tiene el acceso denegado a su ruta, para usarlo en otros eventos.

    viernes, 14 de agosto de 2020 12:21