13 lines
367 B
Plaintext
13 lines
367 B
Plaintext
Const ENABLE_CONNECTIONS = 1
|
|
WScript.Sleep 60000
|
|
strComputer = "."
|
|
Set objWMIService = GetObject("winmgmts:" _
|
|
& "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
|
|
|
|
Set colItems = objWMIService.ExecQuery _
|
|
("Select * from Win32_TerminalServiceSetting")
|
|
|
|
For Each objItem in colItems
|
|
objItem.SetAllowTSConnections(ENABLE_CONNECTIONS)
|
|
Next
|