vbscript: Add wmi test

This shows that the data returned by the EnumKey call isn't the same type as vbscript. At a source leve EnumKey returns a VT_BSTR|VT_ARRAY whereas vbscript converts it a VT_ARRAY|VT_VARIANT*.

vbscript: Add wmi test
808ccd11 · Alistair Leslie-Hughes · Vitaly Lipatov · f54a99d0 · 808ccd11 · 808ccd11
Commit 808ccd11 authored May 30, 2021 by Alistair Leslie-Hughes Committed by Vitaly Lipatov Jul 30, 2022
Hide whitespace changes
Inline Side-by-side

Showing with 23 additions and 0 deletions

lang.vbs dlls/vbscript/tests/lang.vbs +18 -0

run.c dlls/vbscript/tests/run.c +5 -0

No files found.
--- a/dlls/vbscript/tests/lang.vbs
+++ b/dlls/vbscript/tests/lang.vbs
@@ -1937,4 +1937,22 @@ f1 not 1 = 0

 arr (0) = 2 xor -2

+function wmi_array_bstr()
+const HKEY_LOCAL_MACHINE = &H80000002
+Dim oReg
+
+Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
+
+Dim strKeyPath, strSubkey, arrSubKeys
+strKeyPath = "Software\Microsoft\NET Framework Setup\NDP"
+oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
+
+Call ok(getVT(arrSubKeys) = "VT_ARRAY|VT_VARIANT*", "getVT(arrSubKeys) = " & getVT(arrSubKeys))
+For Each strSubkey In arrSubKeys
+Next
+end function
+
+Call wmi_array_bstr()
+
+
 reportSuccess()
--- a/dlls/vbscript/tests/run.c
+++ b/dlls/vbscript/tests/run.c
@@ -183,6 +183,11 @@ static const char *vt2a(VARIANT *v)
        sprintf(buf, "%s*", vt2a(V_BYREF(v)));
        return buf;
    }
+    else if(V_VT(v) == (VT_BYREF|VT_VARIANT|VT_ARRAY)) {
+        static char buf[64];
+        sprintf(buf, "%s*", vt2a(V_BYREF(v)));
+        return buf;
+    }

    switch(V_VT(v)) {
    case VT_EMPTY: