Mercurial > pub > Impl
view _test/wmi.pl @ 31:d59526f6310e
Small fixes to Test framework (correct handlinf of the compilation errors in the test units)
Imported and refactored SQL DB schema from the old project
author | Sergey |
---|---|
date | Mon, 09 Nov 2009 01:39:16 +0300 |
parents | da5bc24b3d3c |
children | 16ada169ca75 |
line wrap: on
line source
#!/usr/bin/perl -w use strict; use Win32::OLE; 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;