Можно ли каким-то образом использовать функцию CryptoAPI.CryptEncodeObject() из кода ниже на VBScript?


string szOID_ENROLLMENT_NAME_VALUE_PAIR = "1.3.6.1.4.1.311.13.2.1";
var cpRaExpirationDate = new CryptoAPI.CRYPT_ENROLLMENT_NAME_VALUE_PAIR
{
name = "CpRaExpirationDate",
value = certificate.Certificate.NotAfter.ToString("yyyyMMddHHmmssK")
};

int blobSizeCpRaExpirationDate = 0;
byte[] blobCpRaExpirationDate = null;

if (!CryptoAPI.CryptEncodeObject(X509_ASN_ENCODING | PKCS_7_ASN_ENCODING, szOID_ENROLLMENT_NAME_VALUE_PAIR, ref cpRaExpirationDate, null, ref blobSizeCpRaExpirationDate))
{
int error = Marshal.GetLastWin32Error();
throw new Win32Exception(error);
}

// Get encoded data
blobCpRaExpirationDate = new byte[blobSizeCpRaExpirationDate];

if (!CryptoAPI.CryptEncodeObject(X509_ASN_ENCODING | PKCS_7_ASN_ENCODING, szOID_ENROLLMENT_NAME_VALUE_PAIR, ref cpRaExpirationDate, blobCpRaExpirationDate, ref blobSizeCpRaExpirationDate))
{
int error = Marshal.GetLastWin32Error();
throw new Win32Exception(error);
}

objectId = new CObjectId();
objectId.InitializeFromValue(szOID_ENROLLMENT_NAME_VALUE_PAIR);


CX509Attribute a2 = new CX509Attribute();
a2.Initialize(objectId, EncodingType.XCN_CRYPT_STRING_BINARY, Encoding.Unicode.GetString(blobCpRaExpirationDate));


CX509Attributes attribs = new CX509Attributes();
attribs.Add(a2);

CCryptAttribute atty = new CCryptAttribute();
atty.InitializeFromValues(attribs);
objRequest.CryptAttributes.Add(atty);