Public LiveUri Jako Sznurek = "http://***********/Powershell?serializationLevel=Full"
Okręt podwodny InitWsMan ()
Ciemnawy AdminPassSecure = Nowy SecureString
Dla AdminPass c Przypalać W AdminPass
AdminPassSecure.AppendChar (c)
Następnie
Ćmić cred = Nowy PSCredential (AdminUser, AdminPassSecure)
WS = Nowy WSManConnectionInfo (Nowy Uri (LiveUri), "http://schemas.microsoft.com/powershell/Microsoft.Exchange", cred)
WS.AuthenticationMechanism = AuthenticationMechanism.Default
RS = RunspaceFactory.CreateRunspace (WS)
PS = PowerShell.Create
ServicePointManager.ServerCertificateValidationCallback = Nowy Security.RemoteCertificateValidationCallback (AddressOf SSlOk)
Końcówka Okręt podwodny
Okręt podwodny EnableMailbox (ByVal Username Jako Sznurek, ByVal [Pseudonim] Sznurek)
Ciemnawy cmd = Nowy PSCommand
cmd.AddCommand ("Umożliwiać-Skrzynka pocztowa")
cmd.AddParameter ("Tożsamość", Username)
cmd.AddParameter ("Pseudonim", [Pseudonim])
PS.Commands = cmd
PS.Runspace = RS
Próba
RS.Open ()
Ćmić i = PS.Invoke
RS.Close ()
Łapać ex Jako Remoting.PSRemotingTransportException
Kończyć Próba
Kończyć Okręt podwodny
|