--- /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;
+
+

--- 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 @@
 </preference-set>
   <string id="lastInvocation">default</string>
 </preference-set>
+<preference-set idref="66c7d414-175f-45b6-92fe-dbda51c64843/_test/wmi.pl">
+<preference-set id="Invocations">
+<preference-set id="default">
+  <string id="cookieparams"></string>
+  <string id="cwd"></string>
+  <long id="debugger.io-port">9011</long>
+  <string id="documentRoot"></string>
+  <string id="executable-params"></string>
+  <string relative="path" id="filename">_test/wmi.pl</string>
+  <string id="getparams"></string>
+  <string id="language">Perl</string>
+  <string id="mpostparams"></string>
+  <string id="params"></string>
+  <string id="postparams"></string>
+  <string id="posttype">application/x-www-form-urlencoded</string>
+  <string id="request-method">GET</string>
+  <boolean id="show-dialog">1</boolean>
+  <boolean id="sim-cgi">0</boolean>
+  <boolean id="use-console">0</boolean>
+  <string id="userCGIEnvironment"></string>
+  <string id="userEnvironment"></string>
+  <string id="warnings">enabled</string>
+</preference-set>
+</preference-set>
+  <string id="lastInvocation">default</string>
+</preference-set>
 <preference-set idref="7e7fa5c6-0123-4570-8540-b1366b09b7dd">
 <preference-set id="Invocations">
 <preference-set id="default">