AddDirectConnectLicenseServer方法的更改

在玩远程桌面服务（终端服务）时，少不了一个授权服务器，有了它，最终用户可以充分地去享受技术带来的价值，微软的口袋也会鼓起来一点点。可以说，玩远程桌面服务，不懂授权服务器，没得玩了。一般管理员玩授权服务器，无外乎以下几个任务：

1、安装授权服务器，这个过程还要顺便确定他的授权范围，给个截图看个明白；

 

2、激活授权服务器和安装授权许可，打开licmgr.exe，找到相应的授权服务器，选择激活服务器，给个截图，看个明白；

 

3、最后一步，作为可选的，在远程桌面会话主机服务器上，指定授权服务器，让客户端到指定的授权服务器获取许可，这个也简单，打开tsconfig.msc管理工具，给个截图，看个明白

以上三步，步骤弄清楚了，走一个过场，也能做得顺风顺水，与终端服务的改变并不大，但是最后一步，如果是通过脚本来做的话，终端服务与远程桌面就不一样了，终端服务当中，使用AddDirectConnectLicenseServer方法，而在远程桌面服务当中，使用的是AddLSToSpecifiedLicenseServerList方法，给两段展示代码吧，更明白些

 

终端服务脚本

strComputer = "."
Set objWMIService = GetObject( "winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2\TerminalServices")

Set colItems = objWMIService.ExecQuery _
    ( "Select * from Win32_TerminalServiceSetting")

For Each objItem in colItems
    errResult = objItem.AddDirectConnectLicenseServer( "atl-ts-01")
Next

 

远程桌面服务脚本

strComputer = "."
Set objWMIService = GetObject( "winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2\TerminalServices")

Set colItems = objWMIService.ExecQuery _
    ( "Select * from Win32_TerminalServiceSetting")

For Each objItem in colItems
    errResult = objItem.EmptySpecifiedLicenseServerList
    errResult = objItem.AddLSToSpecifiedLicenseServerList( "atl-ts-01")
Next

 

 

 

 

本文出自 “I AM A VM” 博客，转载请与作者联系！