把旧机器改造成瘦客户机

对于玩终端服务的玩家,瘦客户机这个名称应该比较熟,或者说,并不陌生。
一套键鼠,一个显示器,一个网线,里面一个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:rootcimv2"
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、利用组策略去把用户桌面的东西都干掉,包括桌面图标啊,控制面板啊,什么的,这一个,熟悉组策略的玩家,算是轻车熟路了,不熟悉的,也没关系,微软给了一篇文档,照抄照做,保你没事,给文档的链接
 
 
完成以上的操作,再去客户端登录看一下,就可以达成心愿,心愿达成了,老机器还可以伴我们风雨同路很多年了
原文地址:https://www.cnblogs.com/h2zZhou/p/6702277.html