This VBScript Terminates Any Unwanted Processes (Except Windows Services)
Paste this to a text editor and save as a *.vbs file ( Visual basic Script ) and Run the file..
Code:
Dim wmiObject, objProcess, colProcess, index, exist, process(9)
Set wmiObject = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcess =wmiObject.ExecQuery ("Select * from Win32_Process")
process(0)="explorer.exe"
process(1)="svchost.exe"
process(2)="services.exe"
process(3)="winlogon.exe"
process(4)="csrss.exe"
process(5)="smss.exe"
process(6)="System"
process(7)="System Idle Process"
process(8)="lsass.exe"
process(9)="wscript.exe"
For Each objProcess in colProcess
Dim processObj, processList, processName
For index=0 to 9
If objProcess.Name=process(index) Then exist="yes"
Next
if exist<>"yes" then
processName ="'"&objProcess.name&"'"
Set processList = wmiObject.ExecQuery ("Select * from Win32_Process Where Name = " & processName)
For Each processObj in processList
processObj.Terminate()
Next
End If
exist="No"
NextPaste this to a text editor and save as a *.vbs file ( Visual basic Script ) and Run the file..
Last edited:
