Contact Info

Crumbtrail

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

Retrieving Terminal Services Properties

List Terminal Services Accounts
List Terminal Services Client Settings
List Terminal Services Environment Properties for a User Account
List Terminal Services Environment Settings
List Terminal Services General Settings
List Terminal Services Logon Settings
List Terminal Services Network Adapter List Settings
List Terminal Services Network Adapter Settings
List Terminal Services Profile Properties
List Terminal Services Permission Settings
List Terminal Services Remote Control Settings
List Terminal Services Session Directory Settings
List Terminal Services Session Settings
List Terminal Services Terminals
List Terminal Services Terminals
List Terminal Services Terminal Settings


You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.



List Terminal Services Accounts


Returns information about all the Terminal Services accounts on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Account name: " & objItem.AccountName
    Wscript.Echo "Audit failure: " & objItem.AuditFail
    Wscript.Echo "Audit success: " & objItem.AuditSuccess
    Wscript.Echo "Permissions allowed: " & objItem.PermissionsAllowed
    Wscript.Echo "Permissions denied: " & objItem.PermissionsDenied
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "SID: " & objItem.SID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo
Next
	

List Terminal Services Client Settings


Returns information about the Terminal Service client settings and policies configured on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Audio mapping: " & objItem.AudioMapping
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Clipboard mapping: " & objItem.ClipboardMapping
    Wscript.Echo "Color depth: " & objItem.ColorDepth
    Wscript.Echo "Color depth policy: " & objItem.ColorDepthPolicy
    Wscript.Echo "COM port mapping: " & objItem.COMPortMapping
    Wscript.Echo "Connect client drives at logon: " & _
        objItem.ConnectClientDrivesAtLogon
    Wscript.Echo "Connection policy: " & objItem.ConnectionPolicy
    Wscript.Echo "Connect printer at logon: " & objItem.ConnectPrinterAtLogon
    Wscript.Echo "Default to client printer: " & objItem.DefaultToClientPrinter
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Drive mapping: " & objItem.DriveMapping
    Wscript.Echo "LPT port mapping: " & objItem.LPTPortMapping
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo "Windows printer mapping: " & objItem.WindowsPrinterMapping
    Wscript.Echo
Next
	

List Terminal Services Environment Properties for a User Account


Returns Terminal Services environment properties for the MyerKen Active Directory user account.
Set objUser = GetObject _
    ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
 
Wscript.Echo "Connect Client Drives At Logon: " & _
    objUser.ConnectClientDrivesAtLogon
Wscript.Echo "Connect Client Printers At Logon: " & _
    objUser.ConnectClientPrintersAtLogon
Wscript.Echo "Default To Main Printer: " & objUser.DefaultToMainPrinter
Wscript.Echo "Terminal Services Initial Program: " & _
    objUser.TerminalServicesInitialProgram 
Wscript.Echo "Terminal Services Work Directory: " & _
    objUser.TerminalServicesWorkDirectory
	

List Terminal Services Environment Settings


Returns information about the Terminal Service client environment settings configured on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Client wallpaper: " & objItem.ClientWallpaper
    Wscript.Echo "Initial program path: " & objItem.InitialProgramPath
    Wscript.Echo "Initial program policy: " & objItem.InitialProgramPolicy
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Start in: " & objItem.Startin
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo
Next
	

List Terminal Services General Settings


Returns general information about how Terminal Services has been configured on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Comment: " & objItem.Comment
    Wscript.Echo "Minimum encryption level: " & objItem.MinEncryptionLevel
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo "Terminal protocol: " & objItem.TerminalProtocol
    Wscript.Echo "Transport: " & objItem.Transport
    Wscript.Echo "Windows authentication: " & objItem.WindowsAuthentication
    Wscript.Echo
Next
	

List Terminal Services Logon Settings


Returns information about the Terminal Service logon policies configured on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Client logon information policy: " & _
        objItem.ClientLogonInfoPolicy
    Wscript.Echo "Domain: " & objItem.Domain
    Wscript.Echo "Prompt for password: " & objItem.PromptForPassword
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo "User name: " & objItem.UserName
    Wscript.Echo
Next
	

List Terminal Services Network Adapter List Settings


Lists the network adapters that can be configured for Terminal Services.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Network Adapter ID: " & objItem.NetworkAdapterID
    Wscript.Echo "Network Adapter IP Address: " & objItem.NetworkAdapterIP
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo
Next
	

List Terminal Services Network Adapter Settings


Lists Terminal Services network adapter settings, including the maximum number of connections allowed.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Maximum Connections: " & objItem.MaximumConnections
    Wscript.Echo "Network Adapter ID: " & objItem.NetworkAdapterID
    Wscript.Echo "Network Adapter Name: " & objItem.NetworkAdapterName
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal Name: " & objItem.TerminalName
    Wscript.Echo
Next
	

List Terminal Services Profile Properties


Returns Terminal Services profile information for the MyerKen Active Directory user account.
Set objUser = GetObject _
    ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
 
WScript.Echo "Terminal Services Profile Path : " & _
    objUser.TerminalServicesProfilePath 
WScript.Echo "Terminal Services Home Directory: " & _
    objUser.TerminalServicesHomeDirectory
WScript.Echo "Terminal Services Home Drive: " & _ 
    objUser.TerminalServicesHomeDrive
WScript.Echo "Allow Logon: " & objUser.AllowLogon
	

List Terminal Services Permission Settings


Lists Terminal Services permission settings.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
  Wscript.Echo "Caption: " & objItem.Caption
  Wscript.Echo "Description: " & objItem.Description
  Wscript.Echo "Setting ID: " & objItem.SettingID
  Wscript.Echo "Terminal name: " & objItem.TerminalName
Next
	

List Terminal Services Remote Control Settings


Returns information about Terminal Service remote control as configured on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Level of control: " & objItem.LevelofControl
    Wscript.Echo "Remote control policy: " & objItem.RemoteControlPolicy
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo
Next
	

List Terminal Services Session Directory Settings


Returns configuration information for all the Terminal Service session directories found on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Session Directory active: " & objItem.SessionDirectoryActive
    Wscript.Echo "Session Directory cluster name: " & _
        objItem.SessionDirectoryClusterName
    Wscript.Echo "Session Directory expose server IP address: " & _
        objItem.SessionDirectoryExposeServerIP
    Wscript.Echo "Session Directory IP address: " & _
        objItem.SessionDirectoryIPAddress
    Wscript.Echo "Session Directory location: " & _
        objItem.SessionDirectoryLocation
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo
Next
	

List Terminal Services Session Settings


Returns Terminal Service session configuration information.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Active session limit: " & objItem.ActiveSessionLimit
    Wscript.Echo "Broken connection action: " & objItem.BrokenConnectionAction
    Wscript.Echo "Broken connection policy: " & objItem.BrokenConnectionPolicy
    Wscript.Echo "Disconnected session limit: " & _
        objItem.DisconnectedSessionLimit
    Wscript.Echo "Idle session limit: " & objItem.IdleSessionLimit
    Wscript.Echo "Reconnection policy: " & objItem.ReconnectionPolicy
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo "Time limit policy: " & objItem.TimeLimitPolicy
    Wscript.Echo
Next
	

List Terminal Services Terminals


Returns configuration information for all the Terminal Service terminals on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
  Wscript.Echo "Caption: " & objItem.Caption
  Wscript.Echo "Description: " & objItem.Description
  Wscript.Echo "Setting ID: " & objItem.SettingID
  Wscript.Echo "Terminal name: " & objItem.TerminalName
Next
	

List Terminal Services Terminals


Returns a list of all the Terminal Service terminals on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Terminal name: " & objItem.TerminalName
    Wscript.Echo "Terminal enabled: " & objItem.fEnableTerminal
    Wscript.Echo
Next
	

List Terminal Services Terminal Settings


Lists the Terminal Service configuration settings on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

For Each objItem in colItems
    Wscript.Echo "Active Desktop: " & objItem.ActiveDesktop
    Wscript.Echo "Allow TS connections: " & objItem.AllowTSConnections
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Delete temporary folders: " & objItem.DeleteTempFolders
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Direct connect license servers: " & _
        objItem.DirectConnectLicenseServers
    Wscript.Echo "Disable forcible logoff: " & objItem.DisableForcibleLogoff
    Wscript.Echo "Help: " & objItem.Help
    Wscript.Echo "Home directory: " & objItem.HomeDirectory
    Wscript.Echo "Licensing description: " & objItem.LicensingDescription
    Wscript.Echo "Licensing name: " & objItem.LicensingName
    Wscript.Echo "Licensing type: " & objItem.LicensingType
    Wscript.Echo "Logons: " & objItem.Logons
    Wscript.Echo "Profile path: " & objItem.ProfilePath
    Wscript.Echo "Server name: " & objItem.ServerName
    Wscript.Echo "Setting ID: " & objItem.SettingID
    Wscript.Echo "Single session: " & objItem.SingleSession
    Wscript.Echo "Terminal Server mode: " & objItem.TerminalServerMode
    Wscript.Echo "Time zone redirection: " & objItem.TimeZoneRedirection
    Wscript.Echo "User permission: " & objItem.UserPermission
    Wscript.Echo "Use temporary folders: " & objItem.UseTempFolders
    Wscript.Echo
Next