Below...
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On
Behalf Of Michael
Sent: Thursday, December 03, 2009 6:45 AM
To: perl-win32-users@listserv.ActiveState.com
Subject: RE: WIN32::OLE WMI
Hi Steven,
Well I tried your suggestion and I think that the Win32::OLE::Variant
module might be the solution, as I have found some other examples where WMI
[out] and variants are used.
http://www.infoqu.com/dev/perl-programming/using-perl-with-wmi-to-set-folder-level-permissions-16930-1/
I haven't followed your thread closely, but it seems like the relevant
bits from your first link are these:
my $objSecDescriptor = Win32::OLE::Variant- new (VT_DISPATCH|VT_BYREF);
my $retval =
$objDirectorySecSetting-GetSecurityDescriptor($objSecDescriptor);
..which seems to be filling the
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On
Behalf Of Michael Ellery
Sent: Friday, December 04, 2009 11:59 AM
To: Michael
Cc: perl-win32-users@listserv.ActiveState.com
Subject: Re:
Okay - Just to sum up the whole thing.
The original VBScript EOF;
Option Explicit
Dim objWMIService, objOV_NodeGroup, objGetRoot, objChildGroups, arrNodes,
objItem
Set objWMIService = GetObject(winmgmts:root\HewlettPackard\OpenView\data)
Set objOV_NodeGroup = objWMIService.Get(OV_NodeGroup)
Michael wrote:
Okay - Just to sum up the whole thing.
The original VBScript EOF;
Option Explicit
Dim objWMIService, objOV_NodeGroup, objGetRoot, objChildGroups, arrNodes,
objItem
Set objWMIService = GetObject(winmgmts:root\HewlettPackard\OpenView\data)
Set objOV_NodeGroup =