On Fri, 04 Dec 2009 17:10:26 -0800, Michael Ellery
mi...@s2technologies.com wrote:
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 =
On Sat, 05 Dec 2009 05:58:48 -0800, Michael Ellery
mi...@s2technologies.com wrote:
Michael wrote:
On Fri, 04 Dec 2009 17:10:26 -0800, Michael Ellery
mi...@s2technologies.com wrote:
Michael wrote:
Okay - Just to sum up the whole thing.
The original VBScript EOF;
Option Explicit
Dim
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
: 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 Out params
When troubleshooting OLE issues
...@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 Out params
When troubleshooting OLE issues, it is best to have the
following code
after each OLE command...
If (Win32::OLE
: 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
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 =
Hi,
I'm a novice regarding Perl, and need some help converting a VBScript to a
PerlScript.
The following VBScript returns some data from HP OpenView. The
GetChildNodeGroups method returns the number of ChildGroups,
and the [out] parameter NodeGroups returns an array which contains a list
of
Michael wrote:
Hi,
I'm a novice regarding Perl, and need some help converting a VBScript
to a PerlScript.
The following VBScript returns some data from HP OpenView. The
GetChildNodeGroups method returns the number of ChildGroups,
and the [out] parameter NodeGroups returns an array
Michael wrote:
Hi,
I'm a novice regarding Perl, and need some help converting a VBScript
to a PerlScript.
The following VBScript returns some data from HP OpenView. The
GetChildNodeGroups method returns the number of ChildGroups,
and the [out] parameter NodeGroups returns
@listserv.ActiveState.com
Subject: RE: WIN32::OLE WMI Out params
Michael wrote:
Hi,
I'm a novice regarding Perl, and need some help converting a
VBScript to a PerlScript.
The following VBScript returns some data from HP OpenView. The
GetChildNodeGroups method returns the number
When troubleshooting OLE issues, it is best to have the following code
after each OLE command...
If (Win32::OLE- LastError() != 0) {
print error calling blah: . Win32::OLE- LastError() . \n;
exit 0;
}
...Or something similar, so you can see what OLE had issues with (if
anything).
13 matches
Mail list logo