Delete a Terminal Service Direct Connect License Server

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

VBScript Code


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

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

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