none
Activar escritorio remoto con script RRS feed

Respuestas

  • Hola... al guien tiene a la mano un script o Batch para activar el escritorio remoto y dejar al admin local como unico usuario de este servicio ???

    thk


    NA
    Es un vbs:

    Const ENABLE_CONNECTIONS = 1
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")

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

    For Each objItem in colItems
        errResult = objItem.SetAllowTSConnections(ENABLE_CONNECTIONS)
    Next




    Untitled 1

    Jose Manuel Tella Llop news://jmtella.com

    domingo, 18 de octubre de 2009 12:00

Todas las respuestas