Habilitar el remote desktop?

Iniciado por Saok Dagon, 8 Abril 2007, 12:19 PM

0 Miembros y 1 Visitante están viendo este tema.

Saok Dagon

Hola

alomejor es una tonteria, pero no encuentro como habilitar el remote desktop desde VB, yo recuerdo hacerlo en batch pero en VB (100%) no encuentro la forma

saludos
www.colgados.net date una pasadita!

Todo el anime, manga, pelis, series...etc

Mad Antrax

Te dejo el código en formato VBS, si lo pegas dentro de una aplicación VB o un módulo también te funcionará. Esto son códigos WMI:

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


Saludos, si no entiendes algo dímelo!
No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.

Saok Dagon



gracias justo lo que buscaba, muy simple el codigo

saludos
www.colgados.net date una pasadita!

Todo el anime, manga, pelis, series...etc