I'm trying to set up a simple WMI script. This runs on my workstation, but not a 2000 Server running Perl 5.8.2. If someone could check my code, I would apprciate it.
M-
use strict;
use Win32::OLE('in');
use Win32 ();
use Win32::OLE('in');
use Win32 ();
my $Class = "Win32_UTCTime";
my $Machine = Win32::NodeName();
my $Machine = Win32::NodeName();
my $objWMI = Win32::OLE->GetObject( "WinMgmts:{ImpersonateLevel=impersonate, AuthenticationLevel=connect} !//$Machine/root/cim2" ) ||
die "WMI connection failed.\n";
foreach my $objItem ( in ( $objWMI->InstanceOf( $Class) ) ) {
print "Day: $objItem->{Day}\n";
print "DayOfWeek: $objItem->{DayOfWeek}\n";
print "Hour: $objItem->{Hour}\n";
print "Milliseconds: $objItem->{Milliseconds}\n";
print "Minute: $objItem->{Minute}\n";
print "Month: $objItem->{Month}\n";
print "Quarter: $objItem->{Quarter}\n";
print "Second: $objItem->{Second}\n";
print "WeekInMonth: $objItem->{WeekInMonth}\n";
print "Year: $objItem->{Year}\n";
print "\n";
}
die "WMI connection failed.\n";
foreach my $objItem ( in ( $objWMI->InstanceOf( $Class) ) ) {
print "Day: $objItem->{Day}\n";
print "DayOfWeek: $objItem->{DayOfWeek}\n";
print "Hour: $objItem->{Hour}\n";
print "Milliseconds: $objItem->{Milliseconds}\n";
print "Minute: $objItem->{Minute}\n";
print "Month: $objItem->{Month}\n";
print "Quarter: $objItem->{Quarter}\n";
print "Second: $objItem->{Second}\n";
print "WeekInMonth: $objItem->{WeekInMonth}\n";
print "Year: $objItem->{Year}\n";
print "\n";
}
__END__
Discover Yahoo!
Use Yahoo! to plan a weekend, have fun online & more. Check it out!
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
