Option Explicit '2014 06 23 version : Close users process Dim objFSO, objFichierLog, CheminScriptActuel, CheminFichierdeLog, NomFichier Dim WSHShell, ObjExec Dim vUserName, vCOMPUTERNAME Dim Commande Dim Position Const ForReading = 1 Const ForWritting = 2 Const ForAppending = 8 On error resume next CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1) NomFichier = wscript.scriptname Position = InstrRev(NomFichier,".") NomFichier = Left(NomFichier, Position - 1) CheminFichierdeLog = CheminScriptActuel & "\LogsCloseUserProcess\" & NomFichier & "_Log.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFichierLog = objFSO.OpenTextFile(CheminFichierdeLog, ForWritting, True) Set WSHShell = CreateObject("WScript.Shell") vUserName = WSHShell.ExpandEnvironmentStrings("%UserName%") vCOMPUTERNAME = WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%") objFichierLog.WriteLine(Now) objFichierLog.WriteLine(VbTab & "vUserName : " & vUserName) objFichierLog.WriteLine(VbTab & "vCOMPUTERNAME : " & vCOMPUTERNAME) Commande = "taskkill /F /FI ""USERNAME eq " & vUserName & """" objFichierLog.WriteLine(VbTab & "Commande : " & Commande) 'Set ObjExec = WSHShell.Exec(Commande) Set ObjExec = Nothing objFichierLog.WriteLine("Terminé") 'Wscript.echo "Exe terminé" Set WSHShell = Nothing objFichierLog.Close Set objFichierLog = Nothing