annotate _test/wmi.pl @ 49:16ada169ca75
migrating to the Eclipse IDE
| author |
wizard@linux-odin.local |
| date |
Fri, 26 Feb 2010 10:49:21 +0300 |
| parents |
da5bc24b3d3c |
| children |
0f3e369553bd |
| rev |
line source |
|
49
|
1 #!/usr/bin/perl -w
|
|
|
2 use strict;
|
|
|
3
|
|
|
4 use Win32::OLE;
|
|
|
5
|
|
|
6 my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2");
|
|
|
7
|
|
|
8 my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting");
|
|
|
9
|
|
|
10 print $_->Element,"\t",$_->Setting,"\n" foreach in $colServices;
|
|
|
11
|
|
|
12
|
