You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
285 B
15 lines
285 B
|
|
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");
|
|
|
|
|