0

UserAssignment.net を使用してコンテナーにアクセスできません。アプリケーション コンテナにアクセスできますが、それ以上はできません。どんなアイデアでも大歓迎です。私が使用しているコードは次のとおりです。

Private Function runScript2(userName As String, applicationName As String) As String
    Dim rs As Runspace = RunspaceFactory.CreateRunspace
    rs.Open()

    Dim ps As PowerShell = PowerShell.Create
    ps.Runspace = rs
    Dim sb2 As New StringBuilder
    sb2.AppendLine("Import-Module -Name C:\RemoteDesktopServices\RemoteDesktopServices.psd1")
    sb2.AppendLine("Get-ChildItem -Path RDS:\") 'this works
    sb2.AppendLine("Get-ChildItem -Path RDS:\RemoteApp\RemoteAppPrograms\WordPad\")  'this works
    sb2.AppendLine("Get-ChildItem -Path RDS:\RemoteApp\RemoteAppPrograms\WordPad\UserAssignment") 'this does not work, no error
    sb2.AppendLine("Get-ChildItem -Path C:\MyScripts")
    ps.AddScript(sb2.ToString)

    Dim output As Collection(Of PSObject) = ps.Invoke
    Dim sb As New StringBuilder
    For Each obj As PSObject In output
        If TypeOf (obj.BaseObject) Is DirectoryInfo Then
            Dim fle As DirectoryInfo = CType(obj.BaseObject, DirectoryInfo)
            sb.AppendLine(fle.FullName)
        ElseIf TypeOf (obj.BaseObject) Is FileInfo Then
            Dim fle As FileInfo = CType(obj.BaseObject, FileInfo)
            sb.AppendLine(fle.FullName)
        Else
            sb.AppendLine(obj.BaseObject.ToString)
        End If
    Next
    Return sb.ToString

End Function
4

1 に答える 1

0

失敗することはありません。単にUserAssignments がまだないため、何も返されません。ユーザーを追加するとすぐに、それが返されます。Computer Managementコンソールから手動でユーザーを追加することで確認できます

于 2012-04-18T10:36:02.493 に答える