Bonjour,
J'ai un script qui tue des process Windows sur un poste au préalable saisi dans un formulaire, j'ai une erreur à l'execution du script.
Sachant que j'ai executer le script en VBS, il marche impeccable.
Pourriez vous m'aider ?
Merci d'avance
<%
Const SW_SHOWNORMAL=1
Dim args,net,ProcessSet, Process,shell,ProcessName,Computer
Set net = Server.CreateObject("WScript.Network" )
Set shell = Server.CreateObject("WScript.Shell" )
ProcessName="pcsws.exe"
Computer=request.form("poste" )
response.write(computer + ProcessName)
Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf _
("Win32_process" )
Trouve=false
for each Process in ProcessSet
If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then
Trouve=true
result=Process.terminate(0)
If result<>0 Then
response.write("Erreur terminaison processus" )
'Wscript.echo "Erreur terminaison processus " & ProcessName & " code " & result
Else
response.write("Processus " & Process.Name & " correctement terminé sur " ) & Computer
'Wscript.echo "Processus " & Process.Name & " correctement terminé sur " & Computer
End if
End If
Next
If not trouve Then response.write "Processus " & ProcessName & " non trouvé"%>
</body>
