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.
|