Scripts to manage Terminal Services

Adding a Terminal Services Account
Adding a Terminal Services Direct Connect License Server

---

Adding a Terminal Services Account

Adds a new Terminal Service account for fabrikam\bob, giving this account guest access rights.

Const GUEST_ACCESS = 0
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_TSPermissionsSetting")
For Each objItem in colItems
    errResult = objItem.AddAccount("fabrikam\bob", GUEST_ACCESS)
Next

Adding a Terminal Services Direct Connect License Server

Adds the computer atl-ts-01 as a direct connect license server to a computer running Terminal Services.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_TerminalServiceSetting")
For Each objItem in colItems
    errResult = objItem.AddDirectConnectLicenseServer("atl-ts-01")
Next