View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Stuart[_21_] Stuart[_21_] is offline
external usenet poster
 
Posts: 154
Default Automating prodution of test Certificates

Early days. I have:

Option Explicit
Sub TestShell()
Dim ShellPath As String, Cmd As String
'need to consider SavePath As String

'MakeCert must be in the ShellPath dir
'the original command line:
Cmd = "makecert -r -pe -n ""CN=Qwerty" & """ -b 01/01/2005 -e
01/01/2099 -eku 1.3.6.1.5.5.7.3.3 -ss myCertificates"""
ShellPath = "F:\Digital Certificates\Certificate Tools\"
Shell ShellPath & Cmd
'how will I know this succeeded?
'Dos would return a 'successful' message
End Sub

Regards.