Re: WIN32::OLE WMI Out params

Michael wrote: > Okay - Just to sum up the whole thing. > > The original VBScript < > Option Explicit > > Dim objWMIService, objOV_NodeGroup, objGetRoot, objChildGroups, arrNodes, > objItem > > Set objWMIService = GetObject("winmgmts:root\HewlettPackard\OpenView\data") > > Set objOV_NodeGroup

RE: WIN32::OLE WMI Out params

Okay - Just to sum up the whole thing. The original VBScript LastError() != 0) { print "Error calling GetObject: " . Win32::OLE->LastError() . "\n"; exit 0; } my $objOV_NodeGroup =

RE: WIN32::OLE WMI Out params

> -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: WIN32::OLE WMI Out params

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 $obj

RE: WIN32::OLE WMI Out params

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/ http://

RE: WIN32::OLE WMI Out params

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::OL