Dim params As List
params.Initialize
params.AddAll(Array("certonly", "--agree-tos", "--register-unsafely-without-email", "--noninteractive", "--webroot", "-w"))
params.AddAll(Array(WWWFolder, "-d", Main.Domain))
params.AddAll(Array("--work-dir", CertBotWorkingFolder))
params.AddAll(Array("--logs-dir", File.Combine(CertBotWorkingFolder, "logs")))
params.AddAll(Array("--config-dir", File.Combine(CertBotWorkingFolder, "config")))
'uncomment to force renewal:
' params.Add("--force-renewal") : Log("forcing renewal")
Dim shl As Shell
shl.Initialize("shl", CertBotExe, params)