Last active 6 months ago

gistfile1.txt Raw
1# Source: https://techcommunity.microsoft.com/t5/exchange/upload-s-mime-user-certificate-with-outlook-to-the-gal/m-p/3781147
2#
3# i do not know if this code works, never tried.
4# i just wanted to keep it, just in case or to try it one day.
5# Even if it does not work, it might be a good starting point.
6# ~scusi
7###############################################################################
8#Set UserCertificate in EXO
9###############################################################################
10Connect-ExchangeOnline
11$cert = New-Object System.Security.Cryptography.X509Certificates.X509Certificate2("D:\temp\a.bohren@icewolf.ch_swisssign.cer")
12$certArray = New-Object System.Collections.ArrayList
13$certArray.Insert(0,$cert.GetRawCertData())
14Set-Mailbox -Identity email address removed for privacy reasons -UserCertificate $certArray
15
16$MBX = Get-RemoteMailbox -Identity email address removed for privacy reasons
17$Cert = New-Object System.Security.Cryptography.X509Certificates.X509Certificate2($mbx.UserCertificate)
18$Cert | fL
19
20###############################################################################
21#AD
22###############################################################################
23$ADUser = Get-ADUser -Identity "a.bohren" -Properties userCertificate
24$ADUser.userCertificate
25$Cert = New-Object System.Security.Cryptography.X509Certificates.X509Certificate2($ADUser.userCertificate)
26$Cert | fL
27Set-ADUser -Identity "a.bohren" -Clear "userCertificate"
28
29$cert = New-Object System.Security.Cryptography.X509Certificates.X509Certificate2("D:\temp\a.bohren@icewolf.ch_swisssign.cer")
30Set-ADUser -Identity "a.bohren" -add @{"userCertificate"=$Cert.Rawdata}