把旧机器改造成瘦客户机

对于玩终端服务的玩家，瘦客户机这个名称应该比较熟，或者说，并不陌生。

一套键鼠，一个显示器，一个网线，里面一个tiny的系统，系统中最重要的当然是终端服务的客户端软件，连接服务器上的程序，就可以了。这种瘦客户机成本低，耗电低，是值得考虑的东西。

推荐了这么久，说了这么多，大家可能想知道有谁都在用。举个例吧，大家都熟的，10086移动客服号，我们这里不是说大家如何去骚扰移动客服，只是说，10086就是用的瘦客户机。

说了瘦客户机这么多的好处，举了个NB的成功案例，大家可能激动了，是不是也要搞一套来玩下。说实话，要玩下，是可以，真正要用到公司，那公司刚买的机器怎么办，那些买了一年的机器怎么办？扔了，不现实，便宜卖了，你当老板是傻瓜啊。所以说，虚拟化是一个循序渐进的过程，是一个等待的过程，同时是一个不可逆转的过程。

这个渐进的过程当中，或许就包括我们今天的一个主题，将旧的机器改造成瘦客户机。有些机器老了，有些应用跑不动了，我们把它改造一下，配合使用终端服务，它又可以续几年的命了。

怎么改造，有现成的方法，用第三方的软件，这里给一个http://thinlaunch.com/的软件，你把这个软件在旧机器上装好了，开机登录后只运行mstsc程序就行了，不过这个付费的，我们可以玩玩，长长见识。

另外一个方法，就是利用组策略和脚本来做。我们先来描述一下做成以后的情况：

当用户在客户端登录时，会打开一个IE程序，IE程序默认主页是TS WEB ACCESS网页，我们登录后，就会在网页上出现我们发现的程序，客户端直接使用就行了。在这个过程当中，用户把IE关了，系统会自动打开一个新的IE程序。要做到这一点，我们分几步走一走：

1、核心的功能，就是关了IE再开，这个我们通过一个脚本来完成，脚本的原理介绍下，启动脚本，打开IE，监视IE进程，关了，就在启动，没关，就歇着，最后，让脚本华丽的登场

On Error Resume Next

Set WshShell = WScript.CreateObject ("WScript.Shell")

'Get the username and profile directory

MUser = WshShell.ExpandEnvironmentStrings ("%USERNAME%")

'Run the app

Itrue = True

Do until Itrue = false

wshShell.Run "iexplore.exe"

' Connect to wmi

set objWMIService = GetObject("winmgmts:root\cimv2")

Do

    found = false

' List the processes

strQuery = "Select * from win32_process where name='iexplore.exe'"

set colProcesses = objWMIService.ExecQuery(strQuery)

for each proc in colProcesses

     ' Get the reference class linking processes to sessions to get the session object path

     strQuery = "References of {win32_process.handle='" & proc.handle & "'} where ResultClass=Win32_SessionProcess"

     set colSessionReferences = objWMIService.ExecQuery(strQuery)

     for each oSessionReference in colSessionReferences

            'Get associators of the session object that are user accounts (linked by win32_loggedonuser)

            strQuery = "Associators of {" & oSessionReference.antecedent & "} where AssocClass=win32_LoggedOnUser"

            set colUsers = objWMIService.ExecQuery(strQuery,,48)

                for each user in colUsers

                 if user.name = MUser then found = true

                 Itrue = True

            next

     next

next

Loop While found = true

Loop

2、利用组策略去把用户桌面的东西都干掉，包括桌面图标啊，控制面板啊，什么的，这一个，熟悉组策略的玩家，算是轻车熟路了，不熟悉的，也没关系，微软给了一篇文档，照抄照做，保你没事，给文档的链接

http://support.microsoft.com/kb/278295

http://www.microsoft.com/downloads/details.aspx?familyid=7f272fff-9a6e-40c7-b64e-7920e6ae6a0d

完成以上的操作，再去客户端登录看一下，就可以达成心愿，心愿达成了，老机器还可以伴我们风雨同路很多年了。