Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Networking » Terminal Services

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