Lanzar comandos DOS, Shell, Wscript.Shell

**C:\Users\JESUS>query session**

   Tengo un problema bastante curioso con Shell, creo que se cuál es el problema pero no encuentro el camino para solucionarlo.

El propósito es controlar los usuarios que se conectan en remoto a un servidor y poder 'cerrarles' la sesión desde un programa en Access cuando en vez de cerrar la sesión se desconectan quedando la sesión abierta y el programa de Access que están ejecutando también, con lo que impiden el mantenimiento de las BD y aplicaciones.

Soy capaz de averiguar mediante el comando QUERY SESSION que usuarios figuran en el servidor y no están conectados:

C:\Users\JESUS>query session
 NOMBRE DE SESIÓN  NOMBRE DE USUARIO        ID  ESTADO    TIPO   DISPOSITIVO
 services                                    0  Desc
>console           JESUS                     1  Activo
 rdp-tcp                                 65536  Escuchar

Y despues puedo cerrarlos con:

C:\Users\JESUS\Logoff 1

Hasta ahí todo bien, en el caso del comando QUERY puedo guardar los datos en un txt y explotarlo después desde Access.

C:\Users\JESUS>query session >C:\Temp\Datos.txt

Nota: estos comandos funcionan perfectamente tanto con el CMD como con el POWERSHELL

El problema viene cuando quiero hacerlo desde Access:

- El primer camino es lanzarlo mediante un Shell:

Shell "query session >c:\temp\Datos.txt"
dice que archivo no encontrado 

- probando con Wscript.Shell:

    Dim oWsCript As Object
    Set oWsCript = CreateObject("WScript.Shell")
    oWsCript.Run "query session  >c:\temp\datos.txt"
    Set oWsCript = Nothing
dice que error en método Run

- El segundo camino es crearme un bat con lo que necesito y lanzar el bat:

El fichero .bat contiene una única línea:  query session >C:\temp\datos.txt
  si lo ejecuto desde windows hace lo que debe y obtiene el fichero con los datos que busco
  si lo lanzo desde Access:

    Shell "c:\temp\1.bat"

o bien

    Dim oWsCript As Object
    Set oWsCript = CreateObject("WScript.Shell")
    oWsCript.Run "c:\temp\1.bat"
    Set oWsCript = Nothing
aparentemente funciona (tanto con Shell como con Wscript.Shell, obtiene el fichero de salida, pero en blanco

- Intento lanzarlo con cmd.exe (con el modificador /k para que se quede abierto)

Shell "cmd.exe /k query session >c:\temp\Datos.txt"
la respuesta es:  "query" no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.
lo mismo ocurre si lanzo el .bat
el resultado es el mismo si en vez de cmd.exe utilizo el powershell

De todas formas aquí salta la pista importante (o eso creo), en la ventana cmd abierta ejecuto el comando QUERY SESSION manualmente y me da el mismo error (comando que en una ventana CMD abierta desde windows funciona perfectamente).

Buscando por la nube encuentro que DIR que es un comando que funciona perfectamente con los métodos anteriormente descritos es un comando de DOS, en cambio QUERY SESSION es un comando de windows, por lo que entiendo que el problema radica en que la ventana que se abre desde windows con CMD es capaz de ejecutar comandos de los dos entornos, en cambio la ventana abierta desde programa -ya sea Shell, Wscript.Shell o Powershell- sólo es capaz de ejecutar comandos DOS.

El punto dónde me he quedado es cómo lanzar un comando windows desde Access, no encuentro ninguna referencia, todo lo que encuentro me dirige a Shell y Wscript.Shell.

¿Ideas?.

Gracias por leer el tocho que he soltado.

comandos CMD 
Comandos de windows 

Editado por Mihura - 26/Abril/2020 a las 20:42

Responder	Página 12 >
Tweet