Rückgabewert gesucht bei RDP Anmeldungen

Angst

Moin liebe Autoiter,

ich suche eine Möglichkeit einen Rückgabewert für eine -RDP- Anmeldung.zu bekommen. ich habe 2 Scripte für die Anmeldung, diese gehen wunderbar.

Spoiler anzeigen

[autoit]

Dim $ipadresse = "127.0.0.1"
Dim $Benutzername = "Administrator"
Dim $Password = "spectrum01#" ; PW # kann nicht gesendet werden

[/autoit] [autoit][/autoit] [autoit]

RDPWEMAG()

[/autoit] [autoit][/autoit] [autoit]

Func RDPWEMAG()

[/autoit] [autoit][/autoit] [autoit]

Sleep(2000)
Opt("WinTitleMatchMode", 4)
Run("mstsc.exe /v:" & $ipadresse & " /f")
Sleep(3000)
WinWait("127.0.0.1 - Remotedesktop")
Sleep(3000)
send("!b"&$Benutzername&"!k"&$Password)
Sleep(1500)
Send ("{ENTER}")

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

und hier eines in einer GUI:

Spoiler anzeigen

[autoit]

[/autoit]

[autoit]

[/autoit]

[autoit]

[autoit]#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>

[/autoit]

[autoit]

[/autoit]

[autoit]

[autoit]$host = "127.0.0.1" ;<<<<<<< enter here the host name or ip address
;Remote Desktop ActiveX Control Interfaces -> http://msdn.microsoft.com/en-us/library/…2(v=VS.85).aspx
$hGUI = GUICreate("RDP Embedded Sessions", 952, 675, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$oRDP = ObjCreate("MsTscAx.MsTscAx.2") ;http://msdn.microsoft.com/en-us/library/…4(v=VS.85).aspx
$oRDP_Ctrl = GUICtrlCreateObj($oRDP, 64, 44, 800, 600)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE)
$oRDP.DesktopWidth = 800
$oRDP.DesktopHeight = 600
$oRDP.Fullscreen = False
$oRDP.ColorDepth = 16
$oRDP.AdvancedSettings3.SmartSizing = True
$oRDP.Server = $host
$oRDP.UserName = "Administraggtor" ;<<<<<<< enter here the user name
$oRDP.Domain = ""
$oRDP.AdvancedSettings2.ClearTextPassword = "test"
$oRDP.ConnectingText = "Connecting to " & $host
$oRDP.DisconnectedText = "Disconnected from " & $host
$oRDP.StartConnected = True
$oRDP.Connect()

[/autoit]

[autoit]

[/autoit]

[autoit]

[/autoit]

[autoit]

[autoit]GUISetState(@SW_SHOW, $hGUI)
;~ ConsoleWrite($oRDP.GetErrorDescription() & @CRLF)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$oRDP.Disconnect()
Exit
EndSwitch
WEnd

[/autoit]

es wird eine eine Möglichkeit gesucht einen Rückgabewert aus einer der Beiden RDP anmeldungen zu bekommen. Sprich 0 = geht nicht 1 = RDP anmeldung geht.

Hat vielleicht jemand "DIE" Idee?

lg Angst

Shadowigor

Du könntest beispielsweise mit ControlGetText() versuchen aus einem Label herauszulesen ob es funktioniert hat oder nicht. Die ID des Labels solltest du mit der AU3Info.exe herausfinden können. Vielleicht verhält sich auch der Fenstertitel anders wenn es funktioniert.

Gruss Shadowigor

Angst

Hmmm soweit ich das sehe geht das nicht da es ja auch keine Installation ist (wo sich das Label ändert)
ich hab von der info.exe den Ausszug mal rangehängt, die Instanz bleibt immer die selbe egal ob angemeldet oder nicht..

lg Angst

**autoBert**

Hallo Angst,

Unter der Voraussetzung, dass sich mstsc.exe nach erfolgter Anmeldung beendet funtioniert dieses Sript:

Spoiler anzeigen

[autoit]

Dim $ipadresse = "127.0.0.1"
Dim $Benutzername = "Administrator"
Dim $Password = "spectrum01#" ; PW # kann nicht gesendet werden
Opt("WinTitleMatchMode", 4)

[/autoit] [autoit][/autoit] [autoit]

AdlibRegister('_Login', 2000)
MsgBox(0, "Login", RunWait("mstsc.exe /v:" & $ipadresse & " /f"))

[/autoit] [autoit][/autoit] [autoit]

Func _Login()
WinWaitActive("127.0.0.1 - Remotedesktop")
AdlibUnRegister('_Login')
Send("!b" & $Benutzername & "!k" & $Password)
Sleep(1500)
Send("{ENTER}")
EndFunc

[/autoit]

Sollte mstsc.exe allerdings geöffnet bleiben bis der Benutzer sich abmeldet klappt es natürlich nicht.

mfg autoBert

Angst

Hallo autoBert,

das ist auf jedenfall nicht schlecht und genau das was ich suche.
Es wird weiter gebaut...!

lg Angst