How can I detect if a Windows 2003\/2008 server is configured for Remote Administration or running the Terminal Server role\/service?<\/p>\n
You can check the mode of the Windows Server 2003\/2008 server using the TS WMI Provider’s Win32_TerminalServiceSetting LicensingType property:<\/p>\n
0 = Personal Terminal Server \u2013 For Windows XP only<\/p>\n
1 = Remote Desktop for Administration<\/p>\n
2 = Per Device. Valid for application servers (true Terminal Servers)<\/p>\n
4 = Per User. Valid for application servers (true Terminal Servers)<\/p>\n
5 = Not configured yet. Valid for application servers (true Terminal Servers)<\/p>\n
Alternatively, but not recommended moving forward,\u00a0on a Windows 2003 server you can check the contents of the following registry DWORD value:<\/p>\n
HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\TSAppCompat<\/p>\n
0 = Remote Administration<\/p>\n
1 = Application Server mode<\/p>\n
Note that this key only will let you see what mode the server is in. To determine the Licensing Type, you would also need to query the following regitry DWORD value:<\/p>\n
HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\Licensing Core\\PolicyAcOn<\/p>\n
2 = Per Device configuration<\/p>\n
4 = Per User configuration<\/p>\n
To demontrate this I have\u00a0created two functions:<\/p>\n
\r\nOption Explicit\r\n\r\nDim strOS\r\n\r\nstrOS = GetOSFamily()\r\n\r\nIf isTerminalServer(strOS) Then\r\n wscript.echo "This is a Terminal Server"\r\nElse\r\n wscript.echo "This is not a Terminal Server"\r\nEnd If\r\n\r\nIf ucase(strOS) = "W2K3" Then\r\n If isTerminalServerAlternate Then\r\n wscript.echo "This is a Terminal Server"\r\n Else\r\n wscript.echo "This is not a Terminal Server"\r\n End If\r\nEnd If\r\n\r\nWScript.Quit(0)\r\n\r\nFunction GetOSFamily()\r\n Dim strComputer, oWMIService, colOSInfo, oOSProperty, strCaption, strOSFamily\r\n strComputer = "."\r\n Set oWMIService = GetObject("winmgmts:\\\\" & strComputer & "\\root\\cimv2")\r\n Set colOSInfo = oWMIService.ExecQuery("Select * from Win32_OperatingSystem")\r\n For Each oOSProperty in colOSInfo\r\n strCaption = oOSProperty.Caption\r\n Next\r\n If InStr(1,strCaption, "2008", vbTextCompare) Then strOSFamily = "W2K8"\r\n If InStr(1,strCaption, "2003", vbTextCompare) Then strOSFamily = "W2K3"\r\n GetOSFamily = strOSFamily\r\n Set oWMIService = Nothing\r\n Set colOSInfo = Nothing\r\nEnd Function\r\n\r\nFunction isTerminalServer(strOS)\r\n Dim strComputer, strNameSpace, objWMIService, colItems, objItem \r\n strComputer = "."\r\n If ucase(strOS) = "W2K3" Then\r\n strNameSpace = "\\root\\cimv2"\r\n Else\r\n strNameSpace = "\\root\\cimv2\\TerminalServices"\r\n End If\r\n Set objWMIService = GetObject("winmgmts:" _ \r\n & "{impersonationLevel=impersonate}!\\\\" & strComputer & strNameSpace) \r\n Set colItems = objWMIService.ExecQuery _ \r\n ("Select * from Win32_TerminalServiceSetting") \r\n For Each objItem in colItems \r\n Select Case objItem.LicensingType \r\n Case "1" ' Remote Administration\r\n isTerminalServer = False\r\n Case "2" ' Per Device\r\n isTerminalServer = True\r\n Case "4" ' Per User\r\n isTerminalServer = True\r\n Case "5" ' Not configured yet\r\n isTerminalServer = True\r\n Case Else\r\n isTerminalServer = False \r\n End Select\r\n Next \r\n Set objWMIService = Nothing \r\n Set colItems = Nothing \r\nEnd Function\r\n\r\nFunction isTerminalServerAlternate\r\n Dim objShell, strValue, strValueData\r\n strValue = "HKLM\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\TSAppCompat"\r\n Set objShell = CreateObject("WScript.Shell")\r\n strValueData = objShell.RegRead(strValue)\r\n If strValueData = "1" Then\r\n isTerminalServerAlternate = True\r\n Else\r\n isTerminalServerAlternate = False\r\n End If\r\n Set objShell = Nothing\r\nEnd Function\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"How can I detect if a Windows 2003\/2008 server is configured for Remote Administration or running the Terminal Server role\/service?<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[5],"tags":[110,109],"class_list":["post-226","post","type-post","status-publish","format-standard","hentry","category-scripting","tag-detect-terminal-server-role","tag-wmi"],"aioseo_notices":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/226","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/comments?post=226"}],"version-history":[{"count":7,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/226\/revisions"}],"predecessor-version":[{"id":228,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/posts\/226\/revisions\/228"}],"wp:attachment":[{"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/media?parent=226"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/categories?post=226"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jhouseconsulting.com\/jhouseconsulting\/wp-json\/wp\/v2\/tags?post=226"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}