Saludos Marcelo,
Con mucho gusto mira. Debes de ir a Site Database/Site Management/Nombre del Sitio/Site Settings/Client Agents/Remote Tools Client Agent Properties.
Aqui encontraras. Los siguientes Tabs.
General, Security, Notifications, Remote Assistance, Remote Desktop.
Verifica que la seccion de Security Tengas deifina un grupo de usuarios. Que a su ves va a tener Permisos locales en Remote Desktop User Group. Tienes que configurar una policitca en tu AD que añada este grupo local o crear un paquete en SMS que sea para añadir este gropo de usuarios a las maquinas locales. Puedes usar este link para un script similiar para tu empresa.
http://articles.techrepublic.com.com/5100-22_11-5362111.html. Tambien debes te verificar que Remote Desktop Connection Este Habilitado en las Estaciones Windows Vista
'==========================================================================
'Script_Name : Enable_RDP_Remotely.vbs
'Description : This script enables the Remote desktop functionality remotely
' The script perform registry changes. In order to apply those changes
' a reboot is required......
'Date : 19/11/2005
'Version: 0.1
'Written by : Claudio Manes (aka Griffon)
'Remarks and Limitations : Works for WinXP and Windows 2003 Servers. Win2000 has not been tested Yet
' A Reboot is required
'==========================================================================
'Error Handling, Declare Constants and Variable...
'--------------------------------------------------
On Error Resume Next
Const HKEY_LOCAL_MACHINE = &H80000002
dim vbYesNo
dim vbQuestion
vbYesNo = 4
vbQuestion = 48
'Create inputbox in order to collect the computer Name
'------------------------------------------------------
StrComputer=InputBox("Enter Name of the Remote Computer...","Connect to Remote Computer")
'Connect to the Remote Registry using WMI space...We assume that you have administrative rights
'-----------------------------------------------------------------------------------------------
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
'Error handling...if not able to connect to the remote machine...you will be notified
'-------------------------------------------------------------------------------------
If Err.Number <> 0 Then
MsgBox "Error. Computer not accessible...Possible reasons" & vbcrlf & vbcrlf &_
"1.the computer name is incorrect" & vbcrlf & _
"2.the computer is not running... " & vbcrlf & _
"3.the currently logged-on user has no admin rights"& vbcrlf & vbcrlf &_
"End of Script",64,"An Error occured"
WScript.Quit()
End If
'to enable remote desktop,
'registry key HKLM\System\CurrentControlSet\Control\Terminal Server\fsDenyTSConnections
'should be set to 0
strKeyPath = "System\CurrentControlSet\Control\Terminal Server"
strValueName = "fDenyTSConnections"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
'Ask the User if he wants to reboot the machine right now or do it later....
'---------------------------------------------------------------------------
retry= msgbox ("A Reboot is required in order to apply the changes" & vbcrlf & _
"Do you want to reboot the remote computer Now ?",52,"Reboot the Remote Machine")
Select Case retry
Case vbYes
'WMI Code used to reboot the remote computer
Set oWMI = GetObject("winMgmts:\\"& strComputer)
Set colComputers = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each refComputer In colComputers
If refComputer.Reboot() <> 0 Then
WScript.Echo "Reboot failed"
Else
WScript.Echo "Computer rebooted"
WScript.echo " Action completed sucessfully "
End If
Next
Case vbNo
WScript.Echo("Changes will not be applied for the moment")
End Select
Aqui te dejo un Script para que lo puedas utilizar.
Santos Martinez, MCSE, MCDBA, MCTS, MCITP
http://www.mvplatino.ms/blogs/smartinezpr
