Список КриптоПровайдеров на VBScript

Здравствуйте!

Мне нужно получить на VBScript список крипто-провайдеров, установленных в системе.

В CryptoApi есть функция: СryptEnumProviders
и пример ее использования в С/С++
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/seccrypto/security/cryptenumproviders.asp
и еще здесь:
http://www.rsdn.ru/article/crypto/usingcryptoapi.xml


DWORD dwIndex=0;
DWORD dwType;
DWORD cbName;
LPTSTR pszName;

while (CryptEnumProviders(dwIndex, NULL, 0, &dwType, NULL, &cbName))
{
if (!cbName)
break;

if (!(pszName = (LPTSTR)LocalAlloc(LMEM_ZEROINIT, cbName)))
return;

if (!CryptEnumProviders(dwIndex++, NULL, 0, &dwType, pszName, &cbName))
{
Error("CryptEnumProviders");
return;
}

std::cout<<"--------------------------------"<<std::endl;
std::cout<<"Provider name: "<<pszName<<std::endl;
std::cout<<"Provider type: "<<dwType<<std::endl;

LocalFree(pszName);
}


Очень прошу мне помочь или подсказать, как реализовать этот же код на VBScript.
Средствами CAPICOM сделать это мне не представляется возможным - не нахожу соответствующего объекта.