# HG changeset patch
# User Sergey
# Date 1254318232 -14400
# Node ID 716b287d479586b064602114e595e1ba8cc69147
# Parent da5bc24b3d3c7e8622e5a8843507f6b3a3db2a26# Parent fafe56cfcd69edf6d9b6cc35c5b074b280e98dc6
merge
diff -r fafe56cfcd69 -r 716b287d4795 _test/wmi.pl
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/wmi.pl Wed Sep 30 17:43:52 2009 +0400
@@ -0,0 +1,12 @@
+#!/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;
+
+
diff -r fafe56cfcd69 -r 716b287d4795 impl.kpf
--- a/impl.kpf Wed Sep 30 10:25:41 2009 +0400
+++ b/impl.kpf Wed Sep 30 17:43:52 2009 +0400
@@ -508,6 +508,32 @@
default
+
+
+
+
+
+ 9011
+
+
+ _test/wmi.pl
+
+ Perl
+
+
+
+ application/x-www-form-urlencoded
+ GET
+ 1
+ 0
+ 0
+
+
+ enabled
+
+
+ default
+