Mercurial > pub > Impl
view _test/wmi.pl @ 246:2746a8e5a6c4
Fixed regressions in DOM due previous refactorings
Fixed ObjectToDOM transformation to handle a schema with mixed node types
author | sergey |
---|---|
date | Tue, 30 Oct 2012 01:17:31 +0400 |
parents | 0f3e369553bd |
children |
line wrap: on
line source
#!/usr/bin/perl -w use strict; eval "use Win32::OLE; 1;" if $^ =~ /win/; my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2"); my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting"); print $_->Element,"\t",$_->Setting,"\n" foreach in $colServices;