# HG changeset patch
# User Sergey
# Date 1254318092 -14400
# Node ID da5bc24b3d3c7e8622e5a8843507f6b3a3db2a26
# Parent 267460284fb38d7e1f28d9ed44b9db6eb0cd26d3
wmi tests
diff -r 267460284fb3 -r da5bc24b3d3c _test/wmi.pl
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/wmi.pl Wed Sep 30 17:41:32 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 267460284fb3 -r da5bc24b3d3c impl.kpf
--- a/impl.kpf Tue Sep 22 17:17:38 2009 +0400
+++ b/impl.kpf Wed Sep 30 17:41:32 2009 +0400
@@ -482,6 +482,32 @@
default
+
+
+
+
+
+ 9011
+
+
+ _test/wmi.pl
+
+ Perl
+
+
+
+ application/x-www-form-urlencoded
+ GET
+ 1
+ 0
+ 0
+
+
+ enabled
+
+
+ default
+