Veran tengo una aplicacion que cuando selecciono un radio button y doy click a un boton deberia de mostrar los archivos abiertos de un usuario en servidor eso esta bien, cuando lo hago en mi maquina local hace bien la busqueda, asi hago mi busqueda en cmd
psexec \\servidor -u Administrator -p Password net files > usuarios.txt
en la linea anterior busco el servidor y me muestra todos los archivos de todos los usuarios en ese servidor y para buscar solamente a un usuario es asi.
FIND /i "nombre de ususario" usuarios.txt > unsolousuario.txt.
como mi aplicacion la subieron al servidor lo que pasa es que al abrir los archivos de los usuarios lo que hace es no mostrar nada. repito cuando lo hago desde visual en mi maquina si sale pero en servidor hace primero la busqueda de un solo usuario y la busqueda del servidor la hace despues. Ojo al crear mis archivos manejo el DateTIme.now osea que al crear los archivos txt me los crea al mismo tiempo lo que necesito es crear primero un archivo y despues el otro aqui dejo mi codigo:
If rdOf.Checked Then
Dim dia As String
Dim mes As String
Dim año As String
Dim hora As String
Dim minuto As String
Dim segundo As String
Dim msegun As String
dia = Date.Now.Day
mes = Date.Now.Month
año = Date.Now.Year
hora = Date.Now.Hour
minuto = Date.Now.Minute
segundo = Date.Now.Second
msegun = Date.UtcNow.Millisecond
Dim usuarios As String = "C:\Logs\" & dia & mes & año & hora & minuto & segundo & ".txt"
Dim comand As String = "psexec /accepteula \\" & TextBox1.Text & " -u " & TextBox1.Text & "\Administrator -p Password NET FILES > " & usuarios
Dim buscar As String = "C:\Logs\" & dia & mes & año & hora & minuto & segundo & msegun & ".txt"
Dim buscarusu As String = String.Format("FIND /i ""{0}"" " & usuarios & " > " & buscar, txtCuenta.Text.Trim)
Dim Archivo As System.IO.FileInfo = New FileInfo(buscar)
Me.ListBox1.Items.Clear()
If Not Directory.Exists("C:\Logs") Then
Directory.CreateDirectory("C:\Logs")
End If
Ejecutar(comand)
Try
If File.Exists(usuarios) Then
Ejecutar(buscarusu)
End If
Dim abrir As StreamReader = Archivo.OpenText
Dim linea As String
Do While abrir.Peek() > 0
linea = abrir.ReadLine()
Me.ListBox1.Items.Add(linea)
Loop
abrir.Close()
Catch ex As Exception
End Try
End If
esta bien el codigo lo unico que quiero es ayuda en esto
If File.Exists(usuarios) Then
Ejecutar(buscarusu)
End If
quiero que en donde dice buscarusu el tiempo sea desp8es de 5 segundos de usuarios XD como veran asi creo mis archivos txt con el tiempo espero y me puedan ayudar muchas gracias