Хочу скриптом удалить их личного хранилища пользователя просроченные сертификаты.
Без использования powershell.

Подскажите как сделать.

Перебрал уже разные объекты коллекций сертификатов - все не поддерживают метод удаления ...


' Текущее время и граница поиска
Today = Date

' Открываем хранилище (пример: текущее пользовательское хранилище «MY»)
Set Store = CreateObject("CAPICOM.Store")
Store.Open

Set Certificates = Store.Certificates
Set CertExpired    = CreateObject("Scripting.Dictionary")

' Перебираем все сертификаты в хранилище
For Each Cert In Certificates

    ' Проверяем, не истёк ли сертификат
    If Cert.ValidToDate < Today Then

        ' Сертификат истек - нужно удалить

    WScript.Echo Cert.SubjectName & "  " & Cert.ValidToDate
    
    certExpired.Add Cert, Cert.ValidToDate


    End If
Next


' Перебираем все сертификаты в коллекции на удаление
'For Each Cert In CertExpired

    Certificates.Remove(Cert)

'Next



' Закрываем хранилище
Set Store = Nothing



На строке "Certificates.Remove(Cert)" - ошибка: объект не поддерживает указанный метод

(0) Оно? https://learn.microsoft.com/ru-ru/windows/win32/seccrypto/store-remove

(1) Так оно и есть - не работает же

(2) токены на ИИ закончились ?