# Recently,I experienced Notes crash problems several times.?
# It wasted me a lot of time to terminate Notes completely and then restart it,
# so I wrote this Perl script to save myself. Also hope it's helpful to you when you read these comments :-)
#
https://gist.github.com/di3du/5508299
# author: think.hy@gmail.com
# date: 5/3/2013
#! perl
?
use
warnings
;
use
strict
;
?
use
Win32::
OLE
qw(in)
;
use
Process
;
?
sub
matching_processes
{
my
(
$pattern
)
=
@_
;
?
my
$objWMI
=
OLE
->
GetObject
(
'winmgmts://./root/cimv2'
);
my
$procs
=
$objWMI
->
InstancesOf
(
'Win32_Process'
);
?
my
@hits
;
foreach
my
$p
(
in
$procs
)
{
push
@hits
=>
[
$p
->
Name
,
$p
->
ProcessID
]
if
$p
->
Name
=~
/$pattern/
;
}
?
wantarray
?
@hits
:
@hits
;
}
?
my
$notesStyle
=
qr/(notes.exe)|(nlnotes.exe)|(ntaskldr.exe)|(nminder.exe)|(nsd.exe)/
i
;
?
foreach
(
matching_processes
$notesStyle
)
{
my
$name
=
$_
->
[
0
];
my
$pid
=
$_
->
[
1
];
?
print
"Name: $nametPID: $pid n"
;
#Win32::Process::KillProcess($pid,0);
system
(
"TASKKILL /F /T /PID $pid"
);
}
