From 82cf08c78ec0dcc90d8adad220e517a3abbebdbc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stanis=C5=82aw=20Pitucha?= <stanislaw.pitucha@hp.com>
Date: Tue, 19 Jan 2016 17:04:49 +1100
Subject: [PATCH] Add a script for generating CMC requests on Windows

Change-Id: I18192ca90a83a6e5f05fe783961c7de9db9b6d77
---
 tools/cmc_wrap.vbs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100755 tools/cmc_wrap.vbs

diff --git a/tools/cmc_wrap.vbs b/tools/cmc_wrap.vbs
new file mode 100755
index 0000000..dbc1cd3
--- /dev/null
+++ b/tools/cmc_wrap.vbs
@@ -0,0 +1,26 @@
+' Generate the CMC request with a hardcoded CN from the current user context
+
+Const ContextUser = 1
+const XCN_CERT_X500_NAME_STR = 3
+
+Set fso = CreateObject ("Scripting.FileSystemObject")
+
+Set req = CreateObject("X509Enrollment.CX509CertificateRequestCmc")
+
+Set xreq = CreateObject("X509Enrollment.CX509CertificateRequestPkcs10")
+xreq.Initialize ContextUser
+
+xreq.Subject = CreateObject( "X509Enrollment.CX500DistinguishedName" )
+xreq.Subject.Encode "CN=anchor-test.example.com", XCN_CERT_X500_NAME_STR
+
+req.InitializeFromInnerRequest xreq
+
+req.Encode
+
+outFile="cmc.req"
+Set objFile = fso.CreateTextFile(outFile,True)
+objFile.WriteLine "-----BEGIN CERTIFICATE REQUEST-----"
+objFile.WriteLine req.RawData
+objFile.WriteLine "-----END CERTIFICATE REQUEST-----"
+objFile.Close
+