annotate _test/wmi.pl @ 57:bf59ee1cd506
Web application main class functionality
| author |
wizard |
| date |
Fri, 05 Mar 2010 13:59:29 +0300 |
| parents |
16ada169ca75 |
| 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
|
