Public LiveUri als Schnur = „http://***********/Powershell?serializationLevel=Full“
VorInitWsMan ()
Schwaches AdminPassSecure = neues SecureString
Für jedes c als Putzfrau in AdminPass
AdminPassSecure.AppendChar (c)
Zunächst
Verdunkeln cred = neues PSCredential (AdminUser, AdminPassSecure)
WS = neues WSManConnectionInfo (neues Uri (LiveUri), „http://schemas.microsoft.com/powershell/Microsoft.Exchange“, cred)
WS.AuthenticationMechanism = AuthenticationMechanism.Default
RS = RunspaceFactory.CreateRunspace (WS)
PS = PowerShell.Create
ServicePointManager.ServerCertificateValidationCallback = neues Security.RemoteCertificateValidationCallback (AddressOf SSlOk)
Enden-Unterseeboot
VorEnableMailbox (ByVal username als Schnur, ByVal [alias] als Schnur)
Schwaches cmd = neues PSCommand
cmd.AddCommand („Ermöglichen-Briefkasten“)
cmd.AddParameter („Identität“, username)
cmd.AddParameter („alias“, [alias])
PS.Commands = cmd
PS.Runspace = RS
Versuch
RS.Open ()
Verdunkeln i = PS.Invoke
RS.Close ()
Ex als Remoting.PSRemotingTransportException sich verfangen
Versuch beenden
Unterseeboot beenden
|