радмин но это работа только с внешними айпи которые редко попадаются

радмин разве умеет к стандартному урс подключаться?

что вобще не рально такое написать ?(

Попробуй такую шнягу....
Option Explicit
On Error Resume Next
Dim objReg, objWMIService, objItem, colItems
Dim strComputer, strKeyPath, strValueName, strValue
Const HKEY_LOCAL_MACHINE = &H80000002

If WScript.Arguments.Count <> 1 Then
strComputer ="."
InputBox("Enter machine name you want to " &_"enable Remote Desktop", "Machine Name?", "")
If strComputer = "" Then
Call cleanUP
End If
Else
strComputer = WScript.Arguments(0)
End If

Set objReg=GetObject("winmgmts:{impersonationLevel=imp ersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
If Err.Number <> 0 Then
Wscript.Echo Err.Number & " The remote machine (" & strComputer & ")" &_
" is unavailable or access denied."
Err.Clear
Call cleanUP
End If

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "CurrentVersion"
objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e

If strValue >= 5.1 Then
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
strValueName = "fDenyTSConnections"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e
If strValue = 0 Then
Wscript.Echo "Remote Desktop is already enabled on: " & strComputer
Call cleanUP
Else
strValue = 0
objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e
Wscript.Echo "Remote Desktop was enabled on: " & strComputer
Call cleanUP
End If
Else
Wscript.Echo "The remote machine (" & strComputer & ")" &_
"is not Windows XP or Windows 2003"
Call cleanUP
End If


Sub cleanUP
Set strComputer = Nothing
Set strKeyPath = Nothing
Set strValueName = Nothing
Set strValue = Nothing
Set stdOut = Nothing
Set objReg = Nothing
WScript.Quit
End Sub

aqqa, а тебе вот не кажется, что твой код на VB, а автору надо на дельфях?
Мне это тоже интересно. Неужели никто не пробывал "взломать" RDP-протокол? Поидее можно было бы сделать сетевого червя, который распространялся бы по нему и записывал/отправлял логи куда-нибудь. Для радмина такая вещь есть.

Вот как раз ковыряюсь...
статейка что и как: http://www.delphisources.ru/pages/faq/base/ts_client.html
стабильно рабочий mstscax.dll: http://dump.ru/file/2839944 , более поздние версии глючат (

Спасибо тебе, буду тоже разбираться Ну ты конечно прям такой дерзкий, но всеже остынь немного. Мне комменты не нужны, и раскрашивать я ничего не собираюсь.

Ты прям предо мной америку открыл....
Раз тебе интересно сиди разбирайся!
Вам, епт, готовый код подавай с полными коментариями на русском языке,а вы потом на форме название поменяеете и как всегда в ублюдские цвета раскрасите......программисты бля! Хакеры нах!

Ищи реализацию RDP на Delphi