Un vbs fermant un processusRésolu

Question

Bonjour &#224; tous.

Apr&#232;s avoir regard&#233;  les codes du sites, je n'ai pu trouver ce que je cherchais.

Il y a beaucoup de code expliquant comment fermer un processus, mais je
n'en est trouv&#233; aucun sous forme de  .vbs (je me sers d&#233;j&#224; par
contre d'un fichier .vbs qui liste les processus).

Est-il possible ou non de fermer un processus &#224; partir d'un fichier .vbs (en poss&#233;dant d&#233;j&#224; son id ou son nom) ?



Ps: je sens bien que quelqu'un &#224; d&#233;j&#224; du r&#233;pondre &#224; cette question, ou
que je l'ai mis dans le mauvais forum, j'ai pourtant chercher mais
comme j'y conna&#238;t vraiment rien toutes les commandes que j'ai pu essay&#233;
on foir&#233;.

Ps2: petite pr&#233;cision: je ne sais pas si c'est important mais j'utilise windows Me (bouh la honte !!!)

CTAC · Accepted Answer

Bonjour.

Ce code qui fonctionne sur Win98 utilise WMI pour lancer IE, r&#233;cup&#233;rer son ProcessID puis fermer IE &#224; l'aide du ProcessID.
Le chemin d'IE est cod&#233; en dur dans le script donc &#224; adapter.

ctac

'ProcessWMI.vbs
Dim strComputer, objWMIService, objStartup, objConfig, _
    objProcess, errReturn, strProcList, colProcesses
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set objStartup = objWMIService.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
errReturn = objProcess.Create _
    ("C:\Program Files\Internet Explorer\IExplore.exe", _
        Null, objConfig, intProcessID)
Wscript.Sleep 1000
If errReturn = 0 Then
   MsgBox "Internet Explorer was started with a process ID of " _
         & intProcessID & "." & vbNewLine & vbNewLine & _
         "Internet Explorer va maintenant &#234;tre ferm&#233; !", , _
         "fermer un processus &#224; partir d'un fichier .vbs"
Else
    Wscript.Echo "Internet Explorer could not be started due to error " & _
        errReturn & "."
End IfstrProcList "Select * from Win32_Process Where ProcessId " & _
    SignedToUnSigned(intProcessID)
Set colProcesses = objWMIService.ExecQuery(strProcList)
For Each objProcess In colProcesses
    objProcess.Terminate
Next
Wscript.Quit


Function SignedToUnSigned(SInt)
        If SInt < 0 Then
            SignedToUnSigned = CDbl(SInt Xor &H80000000) + _
                   &H7FFFFFFF + 1
        Else
            SignedToUnSigned = SInt
        End If
End Function

cs_Kysic · Answer

merci beaucoup, cela fonctionne, g&#233;nial.

Un vbs fermant un processus

2 réponses

Discussions similaires