VBScript - Cryptographic Service Providers - utility methods

hi,

I have the following requirements from VBscript code which is executed from I.E. I'm new to VBscript and any help on these would be appreciated (code samples, examples etc.).

1. Finding the default Cryptograhic service provider for I.E.

I found the following API for doing this but I'm not sure how to execute this from VBscript? (not yet allowed to post links using my account)

CryptGetDefaultProvider (Compact 2013)

2. Differentiating between browser based and hardware based token

I found the following APIs for this:

CCryptProv::GetImpType

For this one I'm not sure how to create an object of the class - CCryptProv ?

ICspInformation::IsSmartCard

I was able to use this API (and others like isHardwareDeviceProperty, isSoftwareDeviceProperty) but these APIs were not returning any value

-Ashish