VB获取windows2008 R2 Remoteapp 发布的应用列表

            <span>Dim</span>
            <span> oWMI, WQL, Instances, Instance
    
    </span>
            <span>‘</span>
            <span>Get base WMI object, "." means computer name (local)</span>
            <span>Set</span> oWMI = <span>GetObject</span>(<span>"</span><span>WINMGMTS:.ROOTCIMV2TerminalServices</span><span>"</span><span>)
    
    </span><span>‘</span><span>Create a WMI query text </span>
    WQL = <span>"</span><span>Select * from Win32_TSPublishedApplication</span><span>"</span><span>‘</span><span>Get instances of Win32_TSPublishedApplication </span><span>Set</span> Instances =<span> oWMI.ExecQuery(WQL)
                        
    </span><span>‘</span><span>Enumerate instances  </span><span>For</span><span>Each</span> Instance <span>In</span><span> Instances 
      </span><span>‘</span><span>Do something with the instance</span>
      Wscript.Echo Instance.Alias <span>‘</span><span>or other property name</span><span>      Wscript.Echo Instance.Caption
      Wscript.Echo Instance.CommandLineSetting
      Wscript.Echo Instance.Description
      </span><span>‘</span><span>Wscript.Echo Instance.IconContents</span><span>      Wscript.Echo Instance.IconPath
      Wscript.Echo Instance.InstallDate
      Wscript.Echo Instance.Name
      Wscript.Echo Instance.Path
      Wscript.Echo Instance.PathExists
      Wscript.Echo Instance.RDPFileContents
      Wscript.Echo Instance.RequiredCommandLine    
      Wscript.Echo Instance.SecurityDescriptor
      Wscript.Echo Instance.ShowInPortal
      </span><span>‘</span><span>Wscript.Echo Instance.status</span><span>      Wscript.Echo Instance.VPath

    </span><span>Next</span><span>‘</span><span>Instance</span>