var userId = client.RegisterUser();
                client.RenameUser(userId);
                var certId = client.IssueCertificate(userId);
                client.RevokeCertificate(certId);

public static string IssueCertificate(this RegAuthLegacyContractClient client, string userId)
{
 ...
 var requestString = "<здесь Base64 данные запроса на сертификат>";
 //var rawRequest = Helper.MakeRawRequest(request.RawData);
 var rawRequest = Helper.MakeRawRequest(BitConverter.ToString(Convert.FromBase64String(requestString)));
 var certRequestId = client.SubmitAndAcceptCertRequest(userId, rawRequest, null, null, false);
 ...
}

Dim rawRequest
rawRequest = "<здесь Base64 данные подписанного запроса на сертификат, значение rawRequest из кода выше>"

WScript.Echo objClient.SubmitAndAcceptCertRequest(userId, rawRequest, comment, authName, False)
WScript.Echo "Запрос подан и одобрен"

adminCertName = "nik2"
wsdlURL = "https://ra3/ra/RegAuthLegacyService.svc?singleWsdl"
Dim adminCertNameWithStore: adminCertNameWithStore = "CURRENT_USER\My\" & adminCertName

Dim objSrvXMLHTTP: Set objSrvXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objSrvXMLHTTP.setOption SXH_OPTION_SELECT_CLIENT_SSL_CERT, adminCertNameWithStore
objSrvXMLHTTP.open "GET", wsdlURL
objSrvXMLHTTP.send
Dim wsdl: wsdl = objSrvXMLHTTP.responseText

Dim objClient: Set objClient = CreateObject("MSSOAP.SoapClient30")
objClient.mssoapinit wsdl, "RegAuthLegacyService", "RegAuthLegacyServiceEndpoint"
objClient.ConnectorProperty("SSLClientCertificateName") = adminCertNameWithStore

...
      <client>
        <!-- В атрибут address скопируйте адрес сервиса -->
        <endpoint address="https://ra3/RA/RegAuthLegacyService.svc"
                  binding="basicHttpBinding"
                  contract="ServiceReference1.RegAuthLegacyContract" />
      </client>
...

      <behaviors>
        <endpointBehaviors>
          <behavior>
            <clientCredentials>
              <!-- В атрибут findValue перепечатайте отпечаток сертификата без пробелов -->
              <clientCertificate x509FindType="FindByThumbprint" findValue="7d6124c3b1002461b5ce5927ce8847386607d507" />
            </clientCredentials>
          </behavior>
        </endpointBehaviors>
      </behaviors>

            var privateKey = new CX509PrivateKey()
            {
            // Очевидно, что перечисление X509ProviderType не было рассчитано на ГОСТ-провайдеры.
            // Однако, принимая во внимание, что в .NET перечисление является, по сути, 
            // оберткой над целочисленным типом, мы можем на свой страх и риск писать так:
                ProviderType = (X509ProviderType)PROV_GOST_2001_DH
            };
            var request = new CX509CertificateRequestPkcs10();
            request.InitializeFromPrivateKey(X509CertificateEnrollmentContext.ContextUser, privateKey, "User");
            request.Encode();

            var privateKey = new CX509PrivateKey()
            {
            // Очевидно, что перечисление X509ProviderType не было рассчитано на ГОСТ-провайдеры.
            // Однако, принимая во внимание, что в .NET перечисление является, по сути, 
            // оберткой над целочисленным типом, мы можем на свой страх и риск писать так:
                ProviderType = (X509ProviderType)PROV_GOST_2001_DH
            };
            var request = new CX509CertificateRequestPkcs10();
            request.InitializeFromPrivateKey(X509CertificateEnrollmentContext.ContextUser, privateKey, string.Empty);

            var objObjectId = new CObjectId();
            objObjectId.InitializeFromValue("1.2.643.2.2.46.0.8");

            var objTemplateExt = new CX509ExtensionTemplate();
            objTemplateExt.InitializeEncode(objObjectId, 1, 0);

            request.X509Extensions.Add((CX509Extension)objTemplateExt);
            request.Encode();