Add a Terminal Services Direct Connect License Server 
' Add a Terminal Services Direct Connect License Server
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.AddDirectConnectLicenseServer("atl-ts-01")
Next
VbsEdit contains all these sample scripts!
 
Download  
Home  
Scripts
 
Copyright © 2001-2025 adersοft