Mercurial > pub > Impl
comparison _test/wmi.pl @ 59:0f3e369553bd
Rewritten property implementation (probably become slower but more flexible)
Configuration infrastructure in progress (in the aspect of the lazy activation)
Initial concept for the code generator
author | wizard |
---|---|
date | Tue, 09 Mar 2010 02:50:45 +0300 |
parents | 16ada169ca75 |
children |
comparison
equal
deleted
inserted
replaced
58:a35b60b16a99 | 59:0f3e369553bd |
---|---|
1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -w |
2 use strict; | 2 use strict; |
3 | 3 |
4 use Win32::OLE; | 4 |
5 eval "use Win32::OLE; 1;" if $^ =~ /win/; | |
5 | 6 |
6 my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2"); | 7 my $wmi = Win32::OLE->GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2"); |
7 | 8 |
8 my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting"); | 9 my $colServices = $wmi->ExecQuery("select * from Win32_NetworkAdapterSetting"); |
9 | 10 |