 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Delete All the Duplicates in a Set of Processes But Keep the Oldest Process
|
||
|
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_Process Where Name = 'Notepad.exe'") If colItems.Count < 2 Then Wscript.Quit End If dtmTarget = Now For Each objItem in colItems dtmDateHolder = objItem.CreationDate dtmDateHolder = CDate(Mid(dtmDateHolder, 5, 2) & "/" & _ Mid(dtmDateHolder, 7, 2) & "/" & Left(dtmDateHolder, 4) _ & " " & Mid (dtmDateHolder, 9, 2) & ":" & _ Mid(dtmDateHolder, 11, 2) & ":" & Mid(dtmDateHolder, 13, 2)) If dtmDateHolder < dtmTarget Then intProcessID = objItem.ProcessID dtmTarget = dtmDateHolder End If Next Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_Process Where Name = 'Notepad.exe' " & _ "AND ProcessID <> " & intProcessID) For Each objItem in colItems objItem.Terminate Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
