Le Sun, 23 Oct 2005 14:04:54 +0200, Tran écrivait:
Y a t'il un moyen d'arreter un programme à la ligne de commande, même si celui-çi n'a pas été prévu pour ça.
Sous windows xp, plus précisément
Regarde du côté de killprocess http://www.pc-infopratique.com/Tele/index.php?categorie
milsabords
"Tran" a écrit dans le message de news: 435b7db9$0$21678$
"Tran" a écrit dans le message de news: 435b7cd4$0$21717$
Bonjour
Y a t'il un moyen d'arreter un programme à la ligne de commande, même si celui-çi n'a pas été prévu pour ça.
Sous windows xp, plus précisément
Voir ici: http://www.generation-nt.com/telecharger/fiche/96/Kill-Process/ ou là: http://www.vbfrance.com/code.aspx?ID3885 , ou utilise ce script de JC Bellamy avec CSCRIPT:
Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf _ ("Win32_process") Trouveúlse for each Process in ProcessSet If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then Trouve=true result=Process.terminate(0) If result<>0 Then Wscript.echo "Erreur terminaison processus " & ProcessName & " code " & result Else Wscript.echo "Processus " & Process.Name & " correctement terminé sur " & Computer End if End If Next If not trouve Then wscript.echo "Processus " & ProcessName & " non trouvé" Wscript.quit '-------------------------------------------------------------------- 'Sous-programme de test du moteur 'Vu les sorties générées, c'est CSCRIPT (et non pas WSCRIPT) 'qui doit être utilisé de préférence Sub TestHost(force) dim rep strappli=lcase(Wscript.ScriptFullName) strFullName =lcase(WScript.FullName) i=InStr(1,strFullName,".exe",1) j=InStrRev(strFullName,"",i,1) strCommand=Mid(strFullName,j+1,i-j-1) if strCommand<>"cscript" then If force then Init="Ce script doit être lancé avec CSCRIPT" Else Init="Il est préférable de lancer ce script avec CSCRIPT" End If rep=MsgBox(Init & VBCRLF & _ "Cela peut être rendu permanent avec la commande" & VBCRLF & _ "cscript //H:CScript //S /Nologo" & VBCRLF & _ "Voulez-vous que ce soit fait automatiquement?", _ vbYesNo + vbQuestion,strappli) if rep=vbYes then nomcmd="setscript.bat" Set ficcmd = fso.CreateTextFile(nomcmd) ficcmd.writeline "@echo off" ficcmd.writeline "cscript //H:CScript //S /Nologo" ficcmd.writeline "pause" params="" For i = 0 To nbargs-1 params=params & " " & args(i) next ficcmd.writeline chr(34) & strappli & chr(34) & params ficcmd.writeline "pause" ficcmd.close shell.Run nomcmd, SW_SHOWNORMAL,true force=true end if If force then WScript.Quit end if end sub '--------------------------------------------------------------------
"Tran" <trand@NOSPAMifrance.com> a écrit dans le message de news:
435b7db9$0$21678$626a54ce@news.free.fr...
"Tran" <trand@NOSPAMifrance.com> a écrit dans le message de news:
435b7cd4$0$21717$626a54ce@news.free.fr...
Bonjour
Y a t'il un moyen d'arreter un programme à la ligne de commande, même si
celui-çi n'a pas été prévu pour ça.
Sous windows xp, plus précisément
Voir ici: http://www.generation-nt.com/telecharger/fiche/96/Kill-Process/ ou
là: http://www.vbfrance.com/code.aspx?ID3885 , ou utilise ce script de JC
Bellamy avec CSCRIPT:
Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" &
Computer).InstancesOf _
("Win32_process")
Trouveúlse
for each Process in ProcessSet
If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then
Trouve=true
result=Process.terminate(0)
If result<>0 Then
Wscript.echo "Erreur terminaison processus " & ProcessName & " code " &
result
Else
Wscript.echo "Processus " & Process.Name & " correctement terminé sur " &
Computer
End if
End If
Next
If not trouve Then wscript.echo "Processus " & ProcessName & " non trouvé"
Wscript.quit
'--------------------------------------------------------------------
'Sous-programme de test du moteur
'Vu les sorties générées, c'est CSCRIPT (et non pas WSCRIPT)
'qui doit être utilisé de préférence
Sub TestHost(force)
dim rep
strappli=lcase(Wscript.ScriptFullName)
strFullName =lcase(WScript.FullName)
i=InStr(1,strFullName,".exe",1)
j=InStrRev(strFullName,"",i,1)
strCommand=Mid(strFullName,j+1,i-j-1)
if strCommand<>"cscript" then
If force then
Init="Ce script doit être lancé avec CSCRIPT"
Else
Init="Il est préférable de lancer ce script avec CSCRIPT"
End If
rep=MsgBox(Init & VBCRLF & _
"Cela peut être rendu permanent avec la commande" & VBCRLF & _
"cscript //H:CScript //S /Nologo" & VBCRLF & _
"Voulez-vous que ce soit fait automatiquement?", _
vbYesNo + vbQuestion,strappli)
if rep=vbYes then
nomcmd="setscript.bat"
Set ficcmd = fso.CreateTextFile(nomcmd)
ficcmd.writeline "@echo off"
ficcmd.writeline "cscript //H:CScript //S /Nologo"
ficcmd.writeline "pause"
params=""
For i = 0 To nbargs-1
params=params & " " & args(i)
next
ficcmd.writeline chr(34) & strappli & chr(34) & params
ficcmd.writeline "pause"
ficcmd.close
shell.Run nomcmd, SW_SHOWNORMAL,true
force=true
end if
If force then WScript.Quit
end if
end sub
'--------------------------------------------------------------------
"Tran" a écrit dans le message de news: 435b7db9$0$21678$
"Tran" a écrit dans le message de news: 435b7cd4$0$21717$
Bonjour
Y a t'il un moyen d'arreter un programme à la ligne de commande, même si celui-çi n'a pas été prévu pour ça.
Sous windows xp, plus précisément
Voir ici: http://www.generation-nt.com/telecharger/fiche/96/Kill-Process/ ou là: http://www.vbfrance.com/code.aspx?ID3885 , ou utilise ce script de JC Bellamy avec CSCRIPT:
Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf _ ("Win32_process") Trouveúlse for each Process in ProcessSet If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then Trouve=true result=Process.terminate(0) If result<>0 Then Wscript.echo "Erreur terminaison processus " & ProcessName & " code " & result Else Wscript.echo "Processus " & Process.Name & " correctement terminé sur " & Computer End if End If Next If not trouve Then wscript.echo "Processus " & ProcessName & " non trouvé" Wscript.quit '-------------------------------------------------------------------- 'Sous-programme de test du moteur 'Vu les sorties générées, c'est CSCRIPT (et non pas WSCRIPT) 'qui doit être utilisé de préférence Sub TestHost(force) dim rep strappli=lcase(Wscript.ScriptFullName) strFullName =lcase(WScript.FullName) i=InStr(1,strFullName,".exe",1) j=InStrRev(strFullName,"",i,1) strCommand=Mid(strFullName,j+1,i-j-1) if strCommand<>"cscript" then If force then Init="Ce script doit être lancé avec CSCRIPT" Else Init="Il est préférable de lancer ce script avec CSCRIPT" End If rep=MsgBox(Init & VBCRLF & _ "Cela peut être rendu permanent avec la commande" & VBCRLF & _ "cscript //H:CScript //S /Nologo" & VBCRLF & _ "Voulez-vous que ce soit fait automatiquement?", _ vbYesNo + vbQuestion,strappli) if rep=vbYes then nomcmd="setscript.bat" Set ficcmd = fso.CreateTextFile(nomcmd) ficcmd.writeline "@echo off" ficcmd.writeline "cscript //H:CScript //S /Nologo" ficcmd.writeline "pause" params="" For i = 0 To nbargs-1 params=params & " " & args(i) next ficcmd.writeline chr(34) & strappli & chr(34) & params ficcmd.writeline "pause" ficcmd.close shell.Run nomcmd, SW_SHOWNORMAL,true force=true end if If force then WScript.Quit end if end sub '--------------------------------------------------------------------
Brat'ac
Brat'ac a pensé très fort :
Sous windows xp, plus précisément
Bonjour "Kill.exe" du RK Celui du NT4 fonctionne tre bien sous xp et est gratuit
tlist pour recuprer le numero du process et kill pour le tuer a telecharger ici http://www.microsoft.com/downloads/details.aspx?FamilyID>972e9a-e08a-49a2-9d3a-c0519479e85a&DisplayLang=en
ou
http://minilien.com/?0W11ZEc9ae
GS
-- Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain par quelqu'un d'autre. Pierre PERRET
Brat'ac a pensé très fort :
Sous windows xp, plus précisément
Bonjour
"Kill.exe" du RK
Celui du NT4 fonctionne tre bien sous xp et est gratuit
tlist pour recuprer le numero du process et kill pour le tuer
a telecharger ici
http://www.microsoft.com/downloads/details.aspx?FamilyID>972e9a-e08a-49a2-9d3a-c0519479e85a&DisplayLang=en
ou
http://minilien.com/?0W11ZEc9ae
GS
--
Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain
par quelqu'un d'autre.
Pierre PERRET
Bonjour "Kill.exe" du RK Celui du NT4 fonctionne tre bien sous xp et est gratuit
tlist pour recuprer le numero du process et kill pour le tuer a telecharger ici http://www.microsoft.com/downloads/details.aspx?FamilyID>972e9a-e08a-49a2-9d3a-c0519479e85a&DisplayLang=en
ou
http://minilien.com/?0W11ZEc9ae
GS
-- Il ne faut jamais remettre au lendemain ce qu'on peut faire faire le surlendemain par quelqu'un d'autre. Pierre PERRET
Tran
Quelqu'un (rm) sur un autre news m'a indiqué l'existance de "Cmdow" qui correspond à toutes mes attentes.
Merci pour ces réponces, je vais regarder tous les liens fournis
Quelqu'un (rm) sur un autre news m'a indiqué l'existance de "Cmdow" qui
correspond à toutes mes attentes.
Merci pour ces réponces, je vais regarder tous les liens fournis