Mensajes

Saludos estoy haciendo una admin de archivos para unas oficinas ne un negocio que tengo. estoy desarrollando un sistema donde se gestión información, datos archivos etc, en una intranet. ahora bien yo soy el admin y el sistema me deberá permitir obtener info de seguridad acerca de los movimientos,

lo que necesito es monitorear acceso a una carpeta, en pocas palabras si alguien abre la carpeta "X" me salga un informe acerca de fecha y hora del acceso. con esta manera detectando acceso a un directorio quiero colocar un pass, cuando "X" persona trate de acceder a una carpeta pida contraseña

estaba leyendo un poco y encontré algo para monitorear archivos

http://fermasmas.wordpress.com/2010/05/05/monitorear-el-cambio-de-archivos-en-un-directorio-versin-net/

ayuda xfa con esta situación, de antemano gracias x toda su ayuda que puedan brindar

Saludos a todos miren estoy haciendo una ap, ahora lo que necesito es: tengo 3 textbox (almacenan códigos seriales) el primero escanea una unica vez los seriales, en el textbox2 escanea cada vez que se ingresa un dispositivo nuevo en el equipo (este es el que varia) ahora los que deseo es que en el textbox 3 aparazcan los seriales que no aparecen en textbox1 pero si aparecen en textbox2, no se si me hago entender, si no disculpas jejeje

ejemplo

_xxxxxxxx_zzzzzzzzz                     textbox1
_xxxxxxxx_hhhhhhhh_zzzzzzzzz     textbox2
_hhhhhhhh                                    textbox3

ahora cada serial se encuentra separado por un espacio(_)


ayudaaaa

Hazlo mediante la función split() en el parámetro del separador utilizas "_".

http://msdn.microsoft.com/es-es/library/6x627e5f(v=vs.90).aspx

Después comparas las cadenas con las que tienes almacenadas y si hay alguna que no se encuentre, pues ya sabes que esa pertenece a la memoria.

ola use el split de esta manera:


Dim cadena As String
       Dim tabla() As String
       Dim n As Integer

       cadena = TextBox1.Text
       tabla = Split(cadena, " ")

       For n = 0 To UBound(tabla, 1)
           MessageBox.Show(tabla(n))
       Next
   End Sub

y para buscar en las cadenas use:

Dim regex As New Regex(Me.TextBox2.Text, RegexOptions.RightToLeft)
       TextBox3.Text = regex.Replace(TextBox1.Text, String.Empty).ToString

me saca el mismo resultado, osea todas las unidades mas no la que necesito que seria la cadena que no se repite en el text 1 y text2

Saludos amigos necesito una mano, estoi desarrollando una aplicación en vs2008 que manejara seriales de las unidades de disco de la compu, las mimas que se convertirán en llaves únicas para la computadora, ahora necesito realizar un comprobación de que la usb es la correcta y no ha sido alterada como lo hago ps con el serial único de la memoria.


Dim strSN As String = ""
       Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
       Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
       Dim i As Integer = 0
       For Each mo As ManagementObject In query.[Get]()
           If mo("SerialNumber") Is Nothing Then
               strSN = strSN & " " & "N/A Serial"
           Else
               strSN = strSN & " " & mo("SerialNumber").ToString()
           End If
           i += 1
       Next
       TextBox1.Text = strSN


logre extraer esos datos (seriales de las unidades), y se me presentan asi:
_W0494XJW_0C71C850C0923A66_M5C214K1438

(_) es espacio vacio, he colocado un campo que almacena las unidades logicas sin contar las usb

_W0494XJW_M5C214K1438
Unidad C:     Unidad CD

al conectar el flas memory me sale
_W0494XJW_0C71C850C0923A66_M5C214K1438
Unidad C:     Unidad USB               Unidad CD

miren un screen http://www.subirimagenes.com/otros-sinttulo-8961668.html

ahora lo que deseo es que en el 3er campo se extraiga la cadena que no se encuentra en el campo 1 y 2, lo que significaria que la unidad USB es la del serial resultante que seria

_0C71C850C0923A66

de antemano les envio saludos  a todos y espero que puedan ayudarme,