bart2jes
Gebruiker
- Lid geworden
- 6 jul 2006
- Berichten
- 139
Hallo allemaal,
Ik ben sinds een paar dagen bezig met VBS (niet VB
) en wil nu meer dan 1 proces beëindigen door middel van VBS. 1 proces lukt wel, en voor 2 (en ik ga er van uit ook gewoon meerdere) processen heb ik het volgende stukje code, dat wel wscript.exe beëindigt, maar niet notepad.exe.
Het script heb ik gevonden op deze site.
Wat mij opvalt is dat nkntb geen problemen ondervind met dit script, in vbs, maar wel in HTA (wat dat dan ook is
).
Dit is de betreffende code:
PS. Ik heb als ik de code uitvoer altijd allebei de processen actief.
Ik ben sinds een paar dagen bezig met VBS (niet VB
) en wil nu meer dan 1 proces beëindigen door middel van VBS. 1 proces lukt wel, en voor 2 (en ik ga er van uit ook gewoon meerdere) processen heb ik het volgende stukje code, dat wel wscript.exe beëindigt, maar niet notepad.exe.Het script heb ik gevonden op deze site.
Wat mij opvalt is dat nkntb geen problemen ondervind met dit script, in vbs, maar wel in HTA (wat dat dan ook is
).Dit is de betreffende code:
Code:
On Error Resume Next
strComputer = "."
arrTargetProcs = Array("wscript.exe","notepad.exe")
Msgbox "arrTargetProcs"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
For Each strTargetProc In arrTargetProcs
Set colProcesses = objWMIService.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name='" & strTargetProc & "'")
For Each objProcess in colProcesses
objProcess.Terminate()
Next
Next
