16 lines
285 B
Plaintext
16 lines
285 B
Plaintext
|
|
use Win32::OLE;
|
|
use Win32::OLE::Enum;
|
|
$services = Win32::OLE->GetObject('winmgmts:');
|
|
|
|
$services->{Security_}->{ImpersonationLevel} = 3;
|
|
|
|
$cls = $services->Get("Win32_process");
|
|
|
|
$str = $cls->{Path_}->{Path};
|
|
#print "class: $str\n";
|
|
|
|
$WScript->Echo("class: $str\n");
|
|
|
|
|