var oSignedData = CreateObject("CAdESCOM.CadesSignedData");
    try {
        oSignedData.VerifyCades(sSignedMessage, CADESCOM_CADES_BES);
    } catch (err) {
        alert("Failed to verify signature. Error: " + GetErrorMessage(err));
        return false;
    }
 
    var oSigner = oSignedData.Signers.Item(1);
    var SigningTime = new Date(oSigner.SigningTime);
    alert(SigningTime);
    return true;

Function Verification(vStr as Variant)
	Dim oSigneData as Object
	Dim oSigner as Object

	Set oSigneData = CreateObject("CAdESCOM.CadesSignedData")
	oSigneData.VerifyCades(vStr, CADESCOM_CADES_BES)
	Set oSigner = oSigneData.Signers.Item(1)
	Print oSigner.SigningTime
End Function

Function Verification(vStr as Variant)
    Dim oSigneData as Object
    Dim oSigner as Object
 
    Set oSigneData = CreateObject("CAdESCOM.CadesSignedData")
    oSigneData.VerifyCades(vStr, CADESCOM_CADES_BES)
    Set oSigner = oSigneData.Signers.Item(1)
    Print oSigner.SigningTime
End Function