Terminal Server Configuring Terminal Server Properties Modify Terminal Service Remote Control Settings , WMI
' Modify Terminal Service Remote Control Settings
Const ENABLE_NO_INPUT_NO_NOTIFY = 4 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_TSRemoteControlSetting Where " & _ "TerminalName = 'Accounting'")
For Each objItem in colItems errResult = objItem.RemoteControl(ENABLE_NO_INPUT_NO_NOTIFY) Next
|
VbsEdit includes all these samples!
Download version 3.4.1
Released Tuesday, January 06, 2009 -
The evaluation version never expires
Home
Buy Now
HtaEdit
Support
Video
What's new ?
Awards
|