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

    Dim oWMI, WQL, Instances, Instance

    ‘Get base WMI object, "." means computer name (local)
    Set oWMI = GetObject("WINMGMTS:\\.\ROOT\CIMV2\TerminalServices")

    ‘Create a WMI query text
    WQL = "Select * from Win32_TSPublishedApplication"

    ‘Get instances of Win32_TSPublishedApplication
    Set Instances = oWMI.ExecQuery(WQL)

    ‘Enumerate instances
    For Each Instance In Instances
      ‘Do something with the instance
      Wscript.Echo Instance.Alias ‘or other property name
      Wscript.Echo Instance.Caption
      Wscript.Echo Instance.CommandLineSetting
      Wscript.Echo Instance.Description
      ‘Wscript.Echo Instance.IconContents
      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
      ‘Wscript.Echo Instance.status
      Wscript.Echo Instance.VPath

    Next ‘Instance

参考一下几个链接:
https://social.technet.microsoft.com/Forums/windowsserver/en-US/47439755-8d2d-4fbb-9d13-924f3a0296bc/how-to-get-remoteapp-program-list-in-win2008-r2?forum=winservergen

http://wutils.com/wmi/root/cimv2/terminalservices/win32_tspublishedapplication/vbscript-samples.html

http://wutils.com/wmi/root/cimv2/terminalservices/win32_tspublishedapplication/

时间: 2024-10-17 09:06:04

VB获取windows2008 R2 Remoteapp 发布的应用列表的相关文章

windows server 2088 r2 下发布网站excel有时候无法下载文档

最近将公司网站服务器更新了系统,从win2003 到 win2008 r2 (64bit),一切正常,但是使用网站的过程中发现了一个比较奇怪的问题,就是,有时候网站的excel文档无法下载,但是我什么都不做只需要登录下服务器,就又能下载,刚开始没有注意,后来发现经常有反馈说文档无法下载,我就开始调查这个问题 我发现了一个规律,就是我每次远程登录之后,服务器上的登录信息就会被消除,而我登录之后,我这边再次断开连接之后,服务器的登录信息被消除后,网站就无法下载文档.也就是说,如果服务器当前没有登录账

windows2008 R2 X64搭建域控制器

windows2008 R2 X64搭建域控制器 配置环境 Windows 版本:Windows Server 2008 R2 Enterprise Service Pack 1 系统类型: 64 位操作系统 配置DNS服务器 这一步不是必须的,在安装 Active Directory 域服务时可以同时装上 DNS 服务器. 鉴于服务器配置容易出现一些未知小错误,还是提前安装上比较省心^_^! (1)  打开桌面左下角服务器管理器: (2)  选择左侧树形菜单" 角色" 节点,右键&q

Windows2008 R2下,应用程序池 'XXXXXXXX' 被自动禁用,原因是为此应用程序池提供服务的进程中出现一系列错误。

转:http://www.cnblogs.com/freeton/archive/2012/08/28/2660585.html http://www.hack001.com/post/151 Windows2008 R2下,应用程序池 'XXXXXXXX' 被自动禁用,原因是为此应用程序池提供服务的进程中出现一系列错误.

安装windows2008 R2,系统盘如何能使用超过2T空间

背景:服务器安装windows2008 R2系统,发现系统只能使用2T空间,大于2T部分不可用. 服务器信息:华为RH2485 v2/  600G*6 验证问题:1.安装linux系统,系统盘会不会只能使用2T空间 2.安装windows2008R2系统怎样才能让系统盘能使用超过2T的空间 实验环境:一台DELL R710/ 1T*6 ,做raid后分为两块逻辑盘sda和sdb(windows下为磁盘0和磁盘1). 实验结论:1.linux能使用2T空间:2.将boot mode改为UEFI后能

windows2008 R2 虚拟机 hyper-v

windows2008 R2 虚拟机 hyper-v 这里只讲一下hyper-v里一个特殊的部分:-----虚拟机的子母盘虚拟机提供的宿主机服务器CPU能力=((CPU数量?每 CPU内核数)-1)? 85%虚拟机提供的宿主机服务器内存=宿主机服务器总内存(GB)-2 GB虚拟机提供的宿主机服务器磁盘I/O能力=宿主机I/O每秒基准? .85虚拟机提供的宿主机网络I/O能力=宿主机I/O每秒基准平均字节? .85宿主机可支撑的虚拟机数量=宿主机服务器可提供资源/虚拟机分配资源 创建差异磁盘的虚拟

Python获取所有的本机IPv4地址列表

所需psutil版本 :>=3.0  之前的版本不包含net_if_addrs函数 ## 获取所有的本机IPv4地址列表 import psutil from socket import AddressFamily local_addrs = [] for name , info in psutil.net_if_addrs().items():     #print ("xxx   ",name)     for addr in info:         ## 只放入IPv4

内存管理[5]通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表

本例在建立一个新的堆前后分别通过 GetProcessHeaps 函数获取了当前进程的堆句柄列表, 没想到一个最简单的程序也有 5 个堆. 效果图: unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;    

C#获取当前堆栈的各调用方法列表

在使用.NET编写的代码在debug时很容易进行排查和定位问题,一旦项目上线并出现问题的话那么只能依靠系统日志来进行问题排查和定位,但当项目复杂时,即各种方法间相互调用将导致要获取具体的出错方法或调用者将是一件不那么容易的事(因为没有PDB文件) 还好.NET提供了一系列系统组件来帮助我们获取项目堆栈信息用于定位和排查,以下代码将返回出错堆栈调用的各上一级方法,直到最终的调用者方法 /********************************************************

golang 获取指定目录下的子文件列表

获取指定目录下的子文件列表 package main import "fmt" import "io/ioutil" func main() { dir_list, e := ioutil.ReadDir("C:/Documents and Settings/xxx/Desktop/Copy of change-sub") if e != nil { fmt.Println("read dir error") return }