So I added the following script to be run after letsencrypts runs.
Code: Select all
Option Explicit Private const g_sAdminPassword = "superpwd" Dim oApp Set oApp = CreateObject("hMailServer.Application") ' Give this script permission to access all ' hMailServer settings. Call oApp.Authenticate("Administrator", g_sAdminPassword) Call oApp.Stop Wait(5) Call oApp.Start Function Wait(sec) Dim t t = Timer Do While ((Timer - t) < sec) Xor (Timer < t) Loop End Function
Anyone has any idea why this scripts has suddenly stopped working and if there's a better way to restart hMailServer to reload the letsencrypt certificates?Call oApp.Stop