Discussion :

[Ric500]

Bonjour Forum !

Je viens vers vous sur un sujet qui peut semble trivial: tuer une tâche.

Le contexte: mon appli tourne sur un domaine avec plusieurs utilisateurs (admins ou users). Je développe en ce moment un outil d'administration qui, pour l'instant ne doit qu'assurer une messagerie (çà c'est ok) et un outil de surveillance des sessions users.
Les PID (handles) sont enregistrés dans une table et je souhaite donner à l'admin la possibilité de tuer les processus users affichés et fermer leur session.

L'idée est de tuer une tâche sur une session user depuis une session admin, au sein de la même session, un "GetObject" aurait suffi.

J'essaie de mettre en œuvre la commande MSDOS TSKILL (ici).
Mais je dois mal constituer ma chaine de paramètres.

Accessoirement, si qq1 pouvait me donner un tuyau pour transformer les noms de chemins longs en courts, çà m'enlèverait une épine du pied.

Merci d'avance

[Ric500]

Je viens de me rendre compte que ma session dos n'était pas lancée en mode admin, du coup mon processus est bien tué dans l'autre session.

Il me reste 2 questions:
. Comment lancer une commande dos en mode admin dans une procédure vba ?
. Comment transformer automatiquement les noms longs en noms courts ?

Merci encore de votre intérêt.

[Ric500]

Je continue de "m'auto-répondre" pour ceux que çà intéresse:

le formulaire :


Lance le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Commande26_Click()
    Dim laCde As String, strSQL As String, rep, Path_Application As String, usrShortDir As String
 
    '   Tue le process de la fouille
    Path_Application = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE"
    usrShortDir = Chr(34) & GetShortPath(Replace(Path_Application, "\MSACCESS.EXE", "")) & "\MSACCESS.EXE" & Chr(34)
    Set fs = Nothing
 
    laCde = "TSKILL " & Trim(str(TSU_PID)) & " " & Chr(124) & " " & usrShortDir & _
            " /SERVER: " & Environ("UserDomain") & _
            " /ID: " & TSU_USR_Name
    rep = Shell(laCde, vbNormalFocus)
 
    '   Vide la ligne correspondante dans T_SessionUsers
    strSQL = "DELETE T_SessionUsers FROM T_SessionUsers " & _
        "WHERE T_SessionUsers.TSU_PID=" & TSU_PID & ";"
    CurrentDb.Execute strSQL
    Me.Requery
End Sub

... Qui constitue la commande msDos:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TSKILL 7932 | "C:\PROGRA~1\MICROS~2\root\Office16\MSACCESS.EXE" /SERVER: V-NEXUS8-2016 /ID: Ric500

Exécutée depuis la procédure VBA, rien ne se passe (cde Shell)
Depuis la console MSDOS lancée depuis une session admin, çà tue le processus (malgré un message d'erreur).


J'y perds un peu mon latin !

[micniv]

Voir si ce fil peut aider
https://stackoverflow.com/questions/...rough-vba-code
en particuliers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object

Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")

For Each oProc In cProc

    'Rename EXCEL.EXE in the line below with the process that you need to Terminate. 
    'NOTE: It is 'case sensitive

    If oProc.Name = "EXCEL.EXE" Then
      MsgBox "KILL"   ' used to display a message for testing pur
      oProc.Terminate()
    End If
Next

[Ric500]

Merci micniv,

Au final tout çà me paraît compliqué, et je pense plutôt initialiser un flag de logout dans l'appli du user depuis mon outil d'admin: s'il est à 0, rien ne se passe, si je le mets à une valeur en secondes, l'appli attendra avant de lancer le logout.

[Ric500]

@micniv,

la méthode GetObject ne me permet d'interagir qu'avec les programmes lancés dans ma session courante (si je ne me trompe pas).

L'idée était de tuer un process d'un autre user, mais je vais m'orienter vers la 2de solution.

Merci