Option Explicit Dim WMIService, Process, Processes, Flag, WS Set WMIService = GetObject('winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2') Set Processes = WMIServic...