500 行以上の vb スクリプトがあります。一部の AD 属性を設定するために HR によって使用されています。ここで、Exchange Powershell 管理ツールの Set-UserPhoto コマンドレットを使用する必要があります。PowerShell ですべてのスクリプトを書き直したくありません。スクリプトの起動時に Exchange Powershell を呼び出したいのですが、読み込みが非常に遅くなります。そして、スクリプト呼び出し中に Set-UserPhoto.
Set objShell = CreateObject("Wscript.Shell")
Sub window_onload
command = "powershell.exe –ExecutionPolicy Bypass -command ""$session = New-PSSession -configurationname Microsoft.Exchange -connectionuri http://mail/powershell; Import-PSSession $session -CommandName set-userphoto"""
objShell.run command,1,true
End Sub
.
.
Sub Save_button
command2 = "powershell.exe –ExecutionPolicy Bypass -command ""Set-UserPhoto -Identity User -PictureData ([System.IO.File]::ReadAllBytes('D:\pictures\user.jpg')) -Confirm:$false"""
objShell.run command2,1,true
End Sub
[保存] ボタンを押すと、Set-UserPhoto コマンドレットが認識されません。最初のコマンドからスクリプトの最後まで最初のpowershellセッションを維持する方法は?