none
Error instalación servicio system.security.securityexception no se encontró el origen... RRS feed

  • Debate general

  • He creado un servicio de windows.

    A la hora de instalarlo a traves de installutil C:\ruta servicio.exe

    da el siguiente error

    Excepción durante la fase de instalación
    System.security.securityexception no se encontró el origen, pero no se pudo buscar en algunos o todos los registros de eventos. Registros inaccesibles: Security

    Iniciando fase de desinstalacion

    Mi codigo es:

    Public Class Repositorio
        Dim Tiempo As Timers.Timer
        Protected Overrides Sub OnStart(ByVal args() As String)
            ' Agregue el código aquí para iniciar el servicio. Este método debería poner
            ' en movimiento los elementos para que el servicio pueda funcionar.
            Tiempo = New Timers.Timer
            Tiempo.Interval = 10000
            AddHandler Tiempo.Elapsed, AddressOf ArrancaPrograma
            Tiempo.Start()
        End Sub

        Protected Overrides Sub OnStop()
            ' Agregue el código aquí para realizar cualquier anulación necesaria para detener el servicio.
        End Sub
        Public Sub ArrancaPrograma()
            Dim comprobacion As Single
            Dim processos() As Process
            Dim instance As Process
            Dim process As New Process()

            processos = process.GetProcesses
            For Each instance In processos
                If instance.ProcessName = "Repositorio Archivos" Then
                    comprobacion = 1
                    '       MsgBox("está corriendo el proceso xxx.exe")
                End If
            Next
            If comprobacion = 0 Then
                Shell("C:\OneDrive\Programacion\VisualBasic60\Repositorio\Repositorio Archivos.exe", AppWinStyle.NormalNoFocus)
                ' Shell("K:\PESAJES\Repositorio Archivos.exe", AppWinStyle.NormalNoFocus)
                '  MsgBox("Arrancado")
            Else
                comprobacion = 0
            End If


            'Aqui hago lo que necesito
        End Sub
        Protected Overrides Sub OnPause()
            MyBase.OnPause()
            Tiempo.Stop()
        End Sub
        Protected Overrides Sub OnContinue()
            Tiempo.Start()
            MyBase.OnContinue()
        End Sub
    End Class


    viernes, 5 de agosto de 2016 15:42

Todas las respuestas

  • Hola, javierroinbi

    Gracias por consultar los foros. Me gustaría preguntarte si  es que ejecutas installutil como administrador. Intenta abirir el prompt como administrador o con privilegios elevados y ejecutar installutil. Coméntanos los resultados.

    Espero que la información haya sido de utilidad. Estoy atenta a tus comentarios.


    Saludos,
    Laura
    __________________________________________________________________________________________
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, hace que sea más fácil para los otros visitantes encontrar la solución  más tarde. Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal  cual" y no implica ninguna responsabilidad de parte de Microsoft.
    viernes, 5 de agosto de 2016 18:55
    Moderador
  • Si lo hago como administrador
    sábado, 6 de agosto de 2016 8:07