29 lines
854 B
Perl
29 lines
854 B
Perl
#!perl -w
|
|
#***************************************************************************
|
|
# Copyright (c) 1997-1999 Microsoft Corporation
|
|
#
|
|
# This sample illustrates how to retrieve registry data from WMI. Note that the accompanying MOF
|
|
# (registry.mof) must be compiled and loaded for this sample to run correctly.
|
|
#
|
|
#***************************************************************************
|
|
|
|
use strict;
|
|
use Win32::OLE;
|
|
|
|
close(STDERR);
|
|
|
|
my ($transport, $transportSet);
|
|
eval {$transportSet = Win32::OLE->GetObject("winmgmts:root/registryScriptExample")->
|
|
InstancesOf ("RegTrans") };
|
|
unless ($@)
|
|
{
|
|
foreach $transport (in $transportSet)
|
|
{
|
|
printf "\nTransport %s has name [%s] and Enabled=%d\n", $transport->{TransportsGUID}, $transport->{Name}, $transport->{Enabled};
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print Win32::OLE->LastError, "\n";
|
|
}
|