Mercurial > pub > Impl
annotate _test/wmi.pl @ 104:196bf443b5e1
DOM::Schema RC0 inflators support, validation and some other things,
Minor and major fixes almost for everything.
A 'Source' property of the ValidationErrors generated from a NodeSet or a NodeList is subject to change in the future.
| author | wizard |
|---|---|
| date | Tue, 11 May 2010 02:42:59 +0400 |
| parents | 0f3e369553bd |
| children |
| rev | line source |
|---|---|
| 49 | 1 #!/usr/bin/perl -w |
| 2 use strict; | |
| 3 | |
|
59
0f3e369553bd
Rewritten property implementation (probably become slower but more flexible)
wizard
parents:
49
diff
changeset
|
4 |
|
0f3e369553bd
Rewritten property implementation (probably become slower but more flexible)
wizard
parents:
49
diff
changeset
|
5 eval "use Win32::OLE; 1;" if $^ =~ /win/; |
| 49 | 6 |
| 7 my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2"); | |
| 8 | |
| 9 my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting"); | |
| 10 | |
| 11 print $_->Element,"\t",$_->Setting,"\n" foreach in $colServices; | |
| 12 | |
| 13 |