Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Certyfikaty Windows

Raffix · Exceloholic **Pomógł:** 5 razy Posty: 185

Witam.
Zmagam się z problemem certyfikatów Windzie, może ktoś na forum byłby w stanie pomóc ze skryptem w VBS. Otóż za chiny nie mogę napisać metody sprawdzenia po nazwie czy dany certyfikat jest zainstalowany na win 7. Chodzi mi o certyfikaty Windows dostępne w przystawce certmgr.msc. W Google niestety nie mogę znaleźć jak odwołać się do obiektu tego magazynu na komputerze lokalnym.... :-(

Ze skryptem instalacji certyfikatu sobie poradziłem

Kod:

Set objWshShell = CreateObject("WScript.Shell")
certloc = "MicrosoftRootCertificateAuthority2011.cer"

iRetval = objwshShell.Run (certloc & " /add root" , 0, true)

ale chciałym przed dodaniem sprawdzić czy go tam jeszcze nie ma...

Marecki · Wysłany: 30-10-2016, 17:13

Co prawda nie jestem obeznany w tym temacie, ale z tego co wiem i przetestowałem to moim zdaniem nie ma sensu sprawdzanie czy dany certyfikat jest już zainstalowany w systemie.
Spróbuj zainstalować kilkukrotnie ten sam certyfikat, a zauważysz że one się nie dublują, przynajmniej nie widać tego w certmgr.msc.
Po drugie to nie wydaje mi się, by taki certyfikat można było odnaleźć po nazwie pliku.
Trzeba szukać po jego właściwościach typu:

Kod:

Subject
Issuer
FriendlyName
Thumbprint
itp

Po trzecie to co widać w certmgr.msc to nie wszystko - chyba.
Sprawdź to w ten sposób:
Uruchom konsolę CMD i w pisz do niej komendę:

Kod:

powershell -Command Get-ChildItem -Recurse Cert:

Zobacz ile jest w systemie podpisów , które należało by sprawdzić i jak długo to trwa - czy jest sens ?
Oczywiście po wylistowaniu wszystkich, z CMD możemy je pobrać do tablicy i po kolei sprawdzać po w/w właściwościach.
To samo możemy uzyskać z PowerShell-a, ale nie wiem jak do niego się dobrać z poziomu VBA.
Oczywiście to są tylko takie moje spostrzeżenia po krótkim zapoznaniu się z problemem, zawsze mogę się mylić.
Może ktoś inny ma w tej materii jakieś doświadczenie i się wypowie, i ewentualnie mnie poprawi.