git.oblomov.eu Git - wine/blob - dlls/wbemprox/tests/query.c

   1 /*
   2  * Copyright 2012 Hans Leidekker for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #define COBJMACROS
  20
  21 #include <stdio.h>
  22 #include "windows.h"
  23 #include "ocidl.h"
  24 #include "initguid.h"
  25 #include "objidl.h"
  26 #include "wbemcli.h"
  27 #include "wine/test.h"
  28
  29 static const WCHAR wqlW[] = {'w','q','l',0};
  30
  31 static HRESULT exec_query( IWbemServices *services, const WCHAR *str, IEnumWbemClassObject **result )
  32 {
  33     static const WCHAR captionW[] = {'C','a','p','t','i','o','n',0};
  34     static const WCHAR descriptionW[] = {'D','e','s','c','r','i','p','t','i','o','n',0};
  35     HRESULT hr;
  36     IWbemClassObject *obj;
  37     BSTR wql = SysAllocString( wqlW ), query = SysAllocString( str );
  38     LONG flags = WBEM_FLAG_RETURN_IMMEDIATELY | WBEM_FLAG_FORWARD_ONLY;
  39     ULONG count;
  40
  41     hr = IWbemServices_ExecQuery( services, wql, query, flags, NULL, result );
  42     if (hr == S_OK)
  43     {
  44         trace("%s\n", wine_dbgstr_w(str));
  45         for (;;)
  46         {
  47             VARIANT var;
  48
  49             IEnumWbemClassObject_Next( *result, WBEM_INFINITE, 1, &obj, &count );
  50             if (!count) break;
  51
  52             if (IWbemClassObject_Get( obj, captionW, 0, &var, NULL, NULL ) == WBEM_S_NO_ERROR)
  53             {
  54                 trace("caption: %s\n", wine_dbgstr_w(V_BSTR(&var)));
  55                 VariantClear( &var );
  56             }
  57             if (IWbemClassObject_Get( obj, descriptionW, 0, &var, NULL, NULL ) == WBEM_S_NO_ERROR)
  58             {
  59                 trace("description: %s\n", wine_dbgstr_w(V_BSTR(&var)));
  60                 VariantClear( &var );
  61             }
  62             IWbemClassObject_Release( obj );
  63         }
  64     }
  65     SysFreeString( wql );
  66     SysFreeString( query );
  67     return hr;
  68 }
  69
  70 static void test_select( IWbemServices *services )
  71 {
  72     static const WCHAR emptyW[] = {0};
  73     static const WCHAR sqlW[] = {'S','Q','L',0};
  74     static const WCHAR query1[] =
  75         {'S','E','L','E','C','T',' ','H','O','T','F','I','X','I','D',' ','F','R','O','M',' ',
  76          'W','i','n','3','2','_','Q','u','i','c','k','F','i','x','E','n','g','i','n','e','e','r','i','n','g',0};
  77     static const WCHAR query2[] =
  78         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','W','i','n','3','2','_','B','I','O','S',0};
  79     static const WCHAR query3[] =
  80         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','W','i','n','3','2','_',
  81          'L','o','g','i','c','a','l','D','i','s','k',' ','W','H','E','R','E',' ',
  82          '\"','N','T','F','S','\"',' ','=',' ','F','i','l','e','S','y','s','t','e','m',0};
  83     static const WCHAR query4[] =
  84         {'S','E','L','E','C','T',' ','a',' ','F','R','O','M',' ','b',0};
  85     static const WCHAR query5[] =
  86         {'S','E','L','E','C','T',' ','a',' ','F','R','O','M',' ','W','i','n','3','2','_','B','i','o','s',0};
  87     static const WCHAR query6[] =
  88         {'S','E','L','E','C','T',' ','D','e','s','c','r','i','p','t','i','o','n',' ','F','R','O','M',' ',
  89          'W','i','n','3','2','_','B','i','o','s',0};
  90     static const WCHAR query7[] =
  91         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','W','i','n','3','2','_',
  92          'P','r','o','c','e','s','s',' ','W','H','E','R','E',' ','C','a','p','t','i','o','n',' ',
  93          'L','I','K','E',' ','\'','%','%','R','E','G','E','D','I','T','%','\'',0};
  94     static const WCHAR query8[] =
  95         {'S','E','L','E','C','T',' ','*',' ','F','R','O','M',' ','W','i','n','3','2','_',
  96          'D','i','s','k','D','r','i','v','e',' ','W','H','E','R','E',' ','D','e','v','i','c','e','I','D','=',
  97          '\"','\\','\\','\\','\\','.','\\','\\','P','H','Y','S','I','C','A','L','D','R','I','V','E','0','\"',0};
  98     static const WCHAR *test[] = { query1, query2, query3, query4, query5, query6, query7, query8 };
  99     HRESULT hr;
 100     IEnumWbemClassObject *result;
 101     BSTR wql = SysAllocString( wqlW );
 102     BSTR sql = SysAllocString( sqlW );
 103     BSTR query = SysAllocString( query1 );
 104     UINT i;
 105
 106     hr = IWbemServices_ExecQuery( services, NULL, NULL, 0, NULL, &result );
 107     ok( hr == WBEM_E_INVALID_PARAMETER, "query failed %08x\n", hr );
 108
 109     hr = IWbemServices_ExecQuery( services, NULL, query, 0, NULL, &result );
 110     ok( hr == WBEM_E_INVALID_PARAMETER, "query failed %08x\n", hr );
 111
 112     hr = IWbemServices_ExecQuery( services, wql, NULL, 0, NULL, &result );
 113     ok( hr == WBEM_E_INVALID_PARAMETER, "query failed %08x\n", hr );
 114
 115     hr = IWbemServices_ExecQuery( services, sql, query, 0, NULL, &result );
 116     ok( hr == WBEM_E_INVALID_QUERY_TYPE, "query failed %08x\n", hr );
 117
 118     hr = IWbemServices_ExecQuery( services, sql, NULL, 0, NULL, &result );
 119     ok( hr == WBEM_E_INVALID_PARAMETER, "query failed %08x\n", hr );
 120
 121     SysFreeString( query );
 122     query = SysAllocString( emptyW );
 123     hr = IWbemServices_ExecQuery( services, wql, query, 0, NULL, &result );
 124     ok( hr == WBEM_E_INVALID_PARAMETER, "query failed %08x\n", hr );
 125
 126     for (i = 0; i < sizeof(test)/sizeof(test[0]); i++)
 127     {
 128         hr = exec_query( services, test[i], &result );
 129         ok( hr == S_OK, "query %u failed: %08x\n", i, hr );
 130         if (result) IEnumWbemClassObject_Release( result );
 131     }
 132
 133     SysFreeString( wql );
 134     SysFreeString( sql );
 135     SysFreeString( query );
 136 }
 137
 138 static void test_Win32_Service( IWbemServices *services )
 139 {
 140     static const WCHAR returnvalueW[] = {'R','e','t','u','r','n','V','a','l','u','e',0};
 141     static const WCHAR pauseserviceW[] = {'P','a','u','s','e','S','e','r','v','i','c','e',0};
 142     static const WCHAR resumeserviceW[] = {'R','e','s','u','m','e','S','e','r','v','i','c','e',0};
 143     static const WCHAR startserviceW[] = {'S','t','a','r','t','S','e','r','v','i','c','e',0};
 144     static const WCHAR stopserviceW[] = {'S','t','o','p','S','e','r','v','i','c','e',0};
 145     static const WCHAR stateW[] = {'S','t','a','t','e',0};
 146     static const WCHAR stoppedW[] = {'S','t','o','p','p','e','d',0};
 147     static const WCHAR serviceW[] = {'W','i','n','3','2','_','S','e','r','v','i','c','e','.',
 148         'N','a','m','e','=','"','S','p','o','o','l','e','r','"',0};
 149     BSTR class = SysAllocString( serviceW ), method;
 150     IWbemClassObject *service, *out;
 151     VARIANT state, retval;
 152     CIMTYPE type;
 153     HRESULT hr;
 154
 155     hr = IWbemServices_GetObject( services, class, 0, NULL, &service, NULL );
 156     if (hr != S_OK)
 157     {
 158         win_skip( "Win32_Service not available\n" );
 159         return;
 160     }
 161     type = 0xdeadbeef;
 162     VariantInit( &state );
 163     hr = IWbemClassObject_Get( service, stateW, 0, &state, &type, NULL );
 164     ok( hr == S_OK, "failed to get service state %08x\n", hr );
 165     ok( V_VT( &state ) == VT_BSTR, "unexpected variant type 0x%x\n", V_VT( &state ) );
 166     ok( type == CIM_STRING, "unexpected type 0x%x\n", type );
 167
 168     if (!lstrcmpW( V_BSTR( &state ), stoppedW ))
 169     {
 170         out = NULL;
 171         method = SysAllocString( startserviceW );
 172         hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, NULL, &out, NULL );
 173         ok( hr == S_OK, "failed to execute method %08x\n", hr );
 174         SysFreeString( method );
 175
 176         VariantInit( &retval );
 177         hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, NULL, NULL );
 178         ok( hr == S_OK, "failed to get return value %08x\n", hr );
 179         ok( !V_I4( &retval ), "unexpected error %u\n", V_UI4( &retval ) );
 180         IWbemClassObject_Release( out );
 181     }
 182     out = NULL;
 183     method = SysAllocString( pauseserviceW );
 184     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, NULL, &out, NULL );
 185     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 186     SysFreeString( method );
 187
 188     VariantInit( &retval );
 189     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, NULL, NULL );
 190     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 191     ok( V_I4( &retval ), "unexpected success\n" );
 192     IWbemClassObject_Release( out );
 193
 194     out = NULL;
 195     method = SysAllocString( resumeserviceW );
 196     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, NULL, &out, NULL );
 197     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 198     SysFreeString( method );
 199
 200     VariantInit( &retval );
 201     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, NULL, NULL );
 202     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 203     ok( V_I4( &retval ), "unexpected success\n" );
 204     IWbemClassObject_Release( out );
 205
 206     if (!lstrcmpW( V_BSTR( &state ), stoppedW ))
 207     {
 208         out = NULL;
 209         method = SysAllocString( stopserviceW );
 210         hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, NULL, &out, NULL );
 211         ok( hr == S_OK, "failed to execute method %08x\n", hr );
 212         SysFreeString( method );
 213
 214         VariantInit( &retval );
 215         hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, NULL, NULL );
 216         ok( hr == S_OK, "failed to get return value %08x\n", hr );
 217         ok( !V_I4( &retval ), "unexpected error %u\n", V_UI4( &retval ) );
 218         IWbemClassObject_Release( out );
 219     }
 220     VariantClear( &state );
 221     IWbemClassObject_Release( service );
 222     SysFreeString( class );
 223 }
 224
 225 static void test_Win32_Process( IWbemServices *services )
 226 {
 227     static const WCHAR returnvalueW[] = {'R','e','t','u','r','n','V','a','l','u','e',0};
 228     static const WCHAR getownerW[] = {'G','e','t','O','w','n','e','r',0};
 229     static const WCHAR userW[] = {'U','s','e','r',0};
 230     static const WCHAR domainW[] = {'D','o','m','a','i','n',0};
 231     static const WCHAR processW[] = {'W','i','n','3','2','_','P','r','o','c','e','s','s',0};
 232     static const WCHAR fmtW[] = {'W','i','n','3','2','_','P','r','o','c','e','s','s','.',
 233         'H','a','n','d','l','e','=','"','%','u','"',0};
 234     BSTR class, method;
 235     IWbemClassObject *process, *out;
 236     VARIANT user, domain, retval;
 237     CIMTYPE type;
 238     HRESULT hr;
 239
 240     class = SysAllocString( processW );
 241     hr = IWbemServices_GetObject( services, class, 0, NULL, &process, NULL );
 242     SysFreeString( class );
 243     if (hr != S_OK)
 244     {
 245         win_skip( "Win32_Process not available\n" );
 246         return;
 247     }
 248     hr = IWbemClassObject_GetMethod( process, getownerW, 0, NULL, NULL );
 249     ok( hr == S_OK, "failed to get GetOwner method %08x\n", hr );
 250
 251     out = NULL;
 252     method = SysAllocString( getownerW );
 253     class = SysAllocStringLen( NULL, sizeof(fmtW)/sizeof(fmtW[0]) + 10 );
 254     wsprintfW( class, fmtW, GetCurrentProcessId() );
 255     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, NULL, &out, NULL );
 256     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 257     SysFreeString( method );
 258     SysFreeString( class );
 259
 260     type = 0xdeadbeef;
 261     VariantInit( &retval );
 262     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, &type, NULL );
 263     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 264     ok( V_VT( &retval ) == VT_I4, "unexpected variant type 0x%x\n", V_VT( &retval ) );
 265     ok( !V_I4( &retval ), "unexpected error %u\n", V_I4( &retval ) );
 266     ok( type == CIM_UINT32, "unexpected type 0x%x\n", type );
 267
 268     type = 0xdeadbeef;
 269     VariantInit( &user );
 270     hr = IWbemClassObject_Get( out, userW, 0, &user, &type, NULL );
 271     ok( hr == S_OK, "failed to get user %08x\n", hr );
 272     ok( V_VT( &user ) == VT_BSTR, "unexpected variant type 0x%x\n", V_VT( &user ) );
 273     ok( type == CIM_STRING, "unexpected type 0x%x\n", type );
 274     trace("%s\n", wine_dbgstr_w(V_BSTR(&user)));
 275
 276     type = 0xdeadbeef;
 277     VariantInit( &domain );
 278     hr = IWbemClassObject_Get( out, domainW, 0, &domain, &type, NULL );
 279     ok( hr == S_OK, "failed to get domain %08x\n", hr );
 280     ok( V_VT( &domain ) == VT_BSTR, "unexpected variant type 0x%x\n", V_VT( &domain ) );
 281     ok( type == CIM_STRING, "unexpected type 0x%x\n", type );
 282     trace("%s\n", wine_dbgstr_w(V_BSTR(&domain)));
 283
 284     VariantClear( &user );
 285     VariantClear( &domain );
 286     IWbemClassObject_Release( out );
 287 }
 288
 289 static void test_StdRegProv( IWbemServices *services )
 290 {
 291     static const WCHAR enumkeyW[] = {'E','n','u','m','K','e','y',0};
 292     static const WCHAR enumvaluesW[] = {'E','n','u','m','V','a','l','u','e','s',0};
 293     static const WCHAR getstringvalueW[] = {'G','e','t','S','t','r','i','n','g','V','a','l','u','e',0};
 294     static const WCHAR stdregprovW[] = {'S','t','d','R','e','g','P','r','o','v',0};
 295     static const WCHAR defkeyW[] = {'h','D','e','f','K','e','y',0};
 296     static const WCHAR subkeynameW[] = {'s','S','u','b','K','e','y','N','a','m','e',0};
 297     static const WCHAR returnvalueW[] = {'R','e','t','u','r','n','V','a','l','u','e',0};
 298     static const WCHAR namesW[] = {'s','N','a','m','e','s',0};
 299     static const WCHAR typesW[] = {'T','y','p','e','s',0};
 300     static const WCHAR valueW[] = {'s','V','a','l','u','e',0};
 301     static const WCHAR valuenameW[] = {'s','V','a','l','u','e','N','a','m','e',0};
 302     static const WCHAR programfilesW[] = {'P','r','o','g','r','a','m','F','i','l','e','s','D','i','r',0};
 303     static const WCHAR windowsW[] =
 304         {'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\',
 305          'W','i','n','d','o','w','s','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n',0};
 306     BSTR class = SysAllocString( stdregprovW ), method;
 307     IWbemClassObject *reg, *sig_in, *in, *out;
 308     VARIANT defkey, subkey, retval, names, types, value, valuename;
 309     CIMTYPE type;
 310     HRESULT hr;
 311
 312     hr = IWbemServices_GetObject( services, class, 0, NULL, &reg, NULL );
 313     if (hr != S_OK)
 314     {
 315         win_skip( "StdRegProv not available\n" );
 316         return;
 317     }
 318     hr = IWbemClassObject_GetMethod( reg, enumkeyW, 0, &sig_in, NULL );
 319     ok( hr == S_OK, "failed to get EnumKey method %08x\n", hr );
 320
 321     hr = IWbemClassObject_SpawnInstance( sig_in, 0, &in );
 322     ok( hr == S_OK, "failed to spawn instance %08x\n", hr );
 323
 324     V_VT( &defkey ) = VT_I4;
 325     V_I4( &defkey ) = 0x80000002;
 326     hr = IWbemClassObject_Put( in, defkeyW, 0, &defkey, 0 );
 327     ok( hr == S_OK, "failed to set root %08x\n", hr );
 328
 329     V_VT( &subkey ) = VT_BSTR;
 330     V_BSTR( &subkey ) = SysAllocString( windowsW );
 331     hr = IWbemClassObject_Put( in, subkeynameW, 0, &subkey, 0 );
 332     ok( hr == S_OK, "failed to set subkey %08x\n", hr );
 333
 334     out = NULL;
 335     method = SysAllocString( enumkeyW );
 336     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, in, &out, NULL );
 337     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 338     SysFreeString( method );
 339
 340     type = 0xdeadbeef;
 341     VariantInit( &retval );
 342     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, &type, NULL );
 343     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 344     ok( V_VT( &retval ) == VT_I4, "unexpected variant type 0x%x\n", V_VT( &retval ) );
 345     ok( !V_I4( &retval ), "unexpected error %u\n", V_UI4( &retval ) );
 346     ok( type == CIM_UINT32, "unexpected type 0x%x\n", type );
 347
 348     type = 0xdeadbeef;
 349     VariantInit( &names );
 350     hr = IWbemClassObject_Get( out, namesW, 0, &names, &type, NULL );
 351     ok( hr == S_OK, "failed to get names %08x\n", hr );
 352     ok( V_VT( &names ) == (VT_BSTR|VT_ARRAY), "unexpected variant type 0x%x\n", V_VT( &names ) );
 353     ok( type == (CIM_STRING|CIM_FLAG_ARRAY), "unexpected type 0x%x\n", type );
 354
 355     VariantClear( &names );
 356     VariantClear( &subkey );
 357     IWbemClassObject_Release( in );
 358     IWbemClassObject_Release( out );
 359     IWbemClassObject_Release( sig_in );
 360
 361     hr = IWbemClassObject_GetMethod( reg, enumvaluesW, 0, &sig_in, NULL );
 362     ok( hr == S_OK, "failed to get EnumValues method %08x\n", hr );
 363
 364     hr = IWbemClassObject_SpawnInstance( sig_in, 0, &in );
 365     ok( hr == S_OK, "failed to spawn instance %08x\n", hr );
 366
 367     V_VT( &defkey ) = VT_I4;
 368     V_I4( &defkey ) = 0x80000002;
 369     hr = IWbemClassObject_Put( in, defkeyW, 0, &defkey, 0 );
 370     ok( hr == S_OK, "failed to set root %08x\n", hr );
 371
 372     V_VT( &subkey ) = VT_BSTR;
 373     V_BSTR( &subkey ) = SysAllocString( windowsW );
 374     hr = IWbemClassObject_Put( in, subkeynameW, 0, &subkey, 0 );
 375     ok( hr == S_OK, "failed to set subkey %08x\n", hr );
 376
 377     out = NULL;
 378     method = SysAllocString( enumvaluesW );
 379     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, in, &out, NULL );
 380     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 381     SysFreeString( method );
 382
 383     type = 0xdeadbeef;
 384     VariantInit( &retval );
 385     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, &type, NULL );
 386     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 387     ok( V_VT( &retval ) == VT_I4, "unexpected variant type 0x%x\n", V_VT( &retval ) );
 388     ok( !V_I4( &retval ), "unexpected error %u\n", V_I4( &retval ) );
 389     ok( type == CIM_UINT32, "unexpected type 0x%x\n", type );
 390
 391     type = 0xdeadbeef;
 392     VariantInit( &names );
 393     hr = IWbemClassObject_Get( out, namesW, 0, &names, &type, NULL );
 394     ok( hr == S_OK, "failed to get names %08x\n", hr );
 395     ok( V_VT( &names ) == (VT_BSTR|VT_ARRAY), "unexpected variant type 0x%x\n", V_VT( &names ) );
 396     ok( type == (CIM_STRING|CIM_FLAG_ARRAY), "unexpected type 0x%x\n", type );
 397
 398     type = 0xdeadbeef;
 399     VariantInit( &types );
 400     hr = IWbemClassObject_Get( out, typesW, 0, &types, &type, NULL );
 401     ok( hr == S_OK, "failed to get names %08x\n", hr );
 402     ok( V_VT( &types ) == (VT_I4|VT_ARRAY), "unexpected variant type 0x%x\n", V_VT( &types ) );
 403     ok( type == (CIM_SINT32|CIM_FLAG_ARRAY), "unexpected type 0x%x\n", type );
 404
 405     VariantClear( &types );
 406     VariantClear( &names );
 407     VariantClear( &subkey );
 408     IWbemClassObject_Release( in );
 409     IWbemClassObject_Release( out );
 410     IWbemClassObject_Release( sig_in );
 411
 412     hr = IWbemClassObject_GetMethod( reg, getstringvalueW, 0, &sig_in, NULL );
 413     ok( hr == S_OK, "failed to get GetStringValue method %08x\n", hr );
 414
 415     hr = IWbemClassObject_SpawnInstance( sig_in, 0, &in );
 416     ok( hr == S_OK, "failed to spawn instance %08x\n", hr );
 417
 418     V_VT( &defkey ) = VT_I4;
 419     V_I4( &defkey ) = 0x80000002;
 420     hr = IWbemClassObject_Put( in, defkeyW, 0, &defkey, 0 );
 421     ok( hr == S_OK, "failed to set root %08x\n", hr );
 422
 423     V_VT( &subkey ) = VT_BSTR;
 424     V_BSTR( &subkey ) = SysAllocString( windowsW );
 425     hr = IWbemClassObject_Put( in, subkeynameW, 0, &subkey, 0 );
 426     ok( hr == S_OK, "failed to set subkey %08x\n", hr );
 427
 428     V_VT( &valuename ) = VT_BSTR;
 429     V_BSTR( &valuename ) = SysAllocString( programfilesW );
 430     hr = IWbemClassObject_Put( in, valuenameW, 0, &valuename, 0 );
 431     ok( hr == S_OK, "failed to set value name %08x\n", hr );
 432
 433     out = NULL;
 434     method = SysAllocString( getstringvalueW );
 435     hr = IWbemServices_ExecMethod( services, class, method, 0, NULL, in, &out, NULL );
 436     ok( hr == S_OK, "failed to execute method %08x\n", hr );
 437     SysFreeString( method );
 438
 439     type = 0xdeadbeef;
 440     VariantInit( &retval );
 441     hr = IWbemClassObject_Get( out, returnvalueW, 0, &retval, &type, NULL );
 442     ok( hr == S_OK, "failed to get return value %08x\n", hr );
 443     ok( V_VT( &retval ) == VT_I4, "unexpected variant type 0x%x\n", V_VT( &retval ) );
 444     ok( !V_I4( &retval ), "unexpected error %u\n", V_I4( &retval ) );
 445     ok( type == CIM_UINT32, "unexpected type 0x%x\n", type );
 446
 447     type = 0xdeadbeef;
 448     VariantInit( &value );
 449     hr = IWbemClassObject_Get( out, valueW, 0, &value, &type, NULL );
 450     ok( hr == S_OK, "failed to get value %08x\n", hr );
 451     ok( V_VT( &value ) == VT_BSTR, "unexpected variant type 0x%x\n", V_VT( &value ) );
 452     ok( type == CIM_STRING, "unexpected type 0x%x\n", type );
 453
 454     VariantClear( &value );
 455     VariantClear( &valuename );
 456     VariantClear( &subkey );
 457     IWbemClassObject_Release( in );
 458     IWbemClassObject_Release( out );
 459     IWbemClassObject_Release( sig_in );
 460
 461     IWbemClassObject_Release( reg );
 462     SysFreeString( class );
 463 }
 464
 465 START_TEST(query)
 466 {
 467     static const WCHAR cimv2W[] = {'R','O','O','T','\\','C','I','M','V','2',0};
 468     BSTR path = SysAllocString( cimv2W );
 469     IWbemLocator *locator;
 470     IWbemServices *services;
 471     HRESULT hr;
 472
 473     CoInitialize( NULL );
 474     CoInitializeSecurity( NULL, -1, NULL, NULL, RPC_C_AUTHN_LEVEL_DEFAULT,
 475                           RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE, NULL );
 476     hr = CoCreateInstance( &CLSID_WbemLocator, NULL, CLSCTX_INPROC_SERVER, &IID_IWbemLocator,
 477                            (void **)&locator );
 478     if (hr != S_OK)
 479     {
 480         win_skip("can't create instance of WbemLocator\n");
 481         return;
 482     }
 483     hr = IWbemLocator_ConnectServer( locator, path, NULL, NULL, NULL, 0, NULL, NULL, &services );
 484     ok( hr == S_OK, "failed to get IWbemServices interface %08x\n", hr );
 485
 486     hr = CoSetProxyBlanket( (IUnknown *)services, RPC_C_AUTHN_WINNT, RPC_C_AUTHZ_NONE, NULL,
 487                             RPC_C_AUTHN_LEVEL_CALL, RPC_C_IMP_LEVEL_IMPERSONATE, NULL, EOAC_NONE );
 488     ok( hr == S_OK, "failed to set proxy blanket %08x\n", hr );
 489
 490     test_select( services );
 491     test_Win32_Process( services );
 492     test_Win32_Service( services );
 493     test_StdRegProv( services );
 494
 495     SysFreeString( path );
 496     IWbemServices_Release( services );
 497     IWbemLocator_Release( locator );
 498     CoUninitialize();
 499 }