Wednesday, July 6, 2011

WSH Perlscript WMI Example using ExecNotificationQuery with __InstanceOperationEvent

You can download the scripting program for generating these scripts at:
http://www.planetmps.com/wmiscriptsENQ_O.html
<?xml version='1.0' encoding='iso-8859-1'?>
<package>
<job>
<script language="perlscript">
<![CDATA[
use Win32::OLE( 'in' );
my $locator = Win32::OLE->CreateObject("WBemScripting.SWbemLocator");
my $svc = $locator->ConnectServer();
my $objs = $svc->ExecNotificationQuery("Select * From __InstanceOperationEvent WITHIN 1 where targetInstance ISA 'Win32_Process'");
my $mystr = "";
foreach my $obj (in($objs)
{
    foreach my $prop (in($obj->Properties_)
    {
    }
last;
}
]]>
</script>
</job>
</package>

No comments:

Post a Comment