Запись свойств сертификатов IE в файл

;
; Просмотр сертификатов в хранилище
;
DialogShow()  ; ...

Func DialogShow()
    ; Вызов диалога...
    Local $sTitle="Сертификаты"

    ;Закроем окно если оно открыто
    If WinGetState($sTitle)<>0 then WinClose($sTitle)
    Run( "rundll32 inetcpl.cpl, LaunchSiteCertDialog") ; показать сертификаты
	
	
    ;ждем появления окна и, если оно неактивно, активируем его
    WinWait($sTitle,"")
    If Not WinActive($sTitle, "") Then WinActivate($sTitle, "")
    WinWaitActive($sTitle, "")

    ; Ждем внесения изменений и закрытия окна...
    ;Do  ; 
    ;Until WinGetState($sTitle)<>0

EndFunc