Загрузка записной книжки в Remote Administrator

[CheaterUA]

Версия AutoIt: 3.3.6.1

Описание:
Помочь разобраться с готовым скриптом.

Примечания:
Есть задача: загрузить экспортированный из Active Directory список компов в Radmin версии 3.
На сайте Радмина скачал готовый скрипт. Запускаю скрипт - выскакивает диалоговое окошко для выбора файлв со списком. Выбираю файл - и далее ничего не происходит. Сам кодил последний раз очень давно, поэтому тяжело самому разобраться.
Вот сам скрипт:

; get file name
$saFile = FileOpenDialog( "Select file with computer names", @WorkingDir & "\", "All (*.*)", 1 )
If @error Then
    MsgBox( 0, "Error","No file selected" )
    Exit
EndIf

; open file with list of computer names
$oFile = FileOpen( $saFile, 0 )

; Check if file opened for reading OK
If $oFile = -1 Then
    MsgBox( 0, "Error", "Unable to open specified file" )
    Exit
EndIf

; Read in lines of text until the EOF is reached
While 1
    $saLine = FileReadLine( $oFile )
    If @error = -1 Then
		ExitLoop
	EndIf

	; Activate Radmin Viewer window
	WinActivate( "Radmin Viewer" )

    ; send 'Insert' key ( 'Add new connection' ) to Radmin Viewer
	Send( "{INSERT}" )
	
	; wait for the 'New Connection' window
	WinWait( "New Connection" );
	
	; add computer name / IP address
	ControlSetText( "New Connection", "", "Edit2", $saLine )
	
	; send 'Enter' key to add computer
	Send( "{ENTER}" )
Wend

; close file
FileClose( $ofile )

Насколько понимаю проблема в строке ControlSetText( "New Connection", "", "Edit2", $saLine )
Но что в ней не так, не знаю. Может подскажете?

Вот кусок текстового файла из АД:

ZPIT-11613D07	Компьютер	Резерв ИТ	 	 
ZPIT-F122944D04	Компьютер	Khristova Irina	 	 
ZPIT-F122944D05	Компьютер	Kulach Konstantin	 	 
ZPIT-F122944D08	Компьютер	Smirnov Dmitriy

 

[madmasles]

{CodeWarn}

 

[CheaterUA]

Как я понимаю тут только предупреждения быстро раздаются, а помочь желающих нет?

 

[axlwor]

OffTopic:
Желание помочь есть, а желание полностью сделать за тебя нет. В столе заказа свои правила

 

[kaster]

CheaterUA [?]

Как я понимаю тут только предупреждения быстро раздаются

ты так говоришь, как будто это плохо ;)

 

[CheaterUA]

Ну дык я вину признал, все согласно правил поправил и на том все застряло )

 

[axlwor]

в строчке

ZPIT-F122944D04   Компьютер   Khristova Irina

можно выделить 3 подстроки
в New Connection есть 2 поля
Name of entry
Ip/Name

 

[CheaterUA]

Ну как я понял - данный скрипт должен работать, если список состоит из одной колонки, т.е. тогда выделять эти подстроки не нужно, но он не работает даже если оставить одну колонку.

 

[axlwor]

стоп.
я загружаю radmin client. запускаю скрипт. у меня появляются 4 новых записи в radmin.
поэтому вопрос.
Что ты хочешь? Что у тебя не работает?

 

[CheaterUA]

Хочу чтобы у меня тоже появились эти хотя-бы 4 записи.
Отсюда вопрос - какая версия радмин клиента и Ось?
Спасибо.

 

[axlwor]

винду с radmin 3 нашел только древнюю 2000

 

[CheaterUA]

У меня Win7 Pro Rus (Лицензия). Радмин 3.4 (Лицензия). и не работает. Поднял вируталку с ХР (лицензия) тот же Радмин 3.4 и тоже не работает. Поэтому и решил, что дело в скрипте.
Но если у Вас работает, буду наверное систему ковырять.
Спасибо за наводку. Тему наверное можно закрыть.

 

[axlwor]

ты вручную попробуй сделать последовательность действий
1. загрузить клиента
2. нажать ins
3. ты должен стоять на поле ip

 

[CheaterUA]

Все так и есть. При выполнении скрипта именно на этом моменте скрипт ставится на паузу и просто пустая строка висит - там где ИП.

 

[axlwor]

в консоль AutoIt должны строчки идти

ConsoleWrite($saLine & @CRLF)
ControlSetText( "New Connection", "", "Edit2", $saLine )

а дальше можно попробовать через буфер обмена вставлять :-[

 

[CheaterUA]

Никакого эффекта.
Вот видео для наглядности:
http://www.youtube.com/watch?v=0V-W6ssnx-0

 

[axlwor]

тогда пробуем так

WinWait( "New Connection" );
	ClipPut($saLine)
	Send( "^v" )
	Sleep(300)
	Send( "{ENTER}" )

 

[CheaterUA]

Не помогло...
Ладно, вечером попробую на домашнем компе, может там заработает. Завтра отпишусь.

 

[CheaterUA]

Пробовал дома на Win 7 Ultimate - эффект тот же. Прямо мистика какая-то (

 

[axlwor]

WinActivate( "Radmin Viewer" )
Send( "{INSERT}" )
ClipPut($saLine)
WinWait('[CLASS:#32770]')
Send( "^v" )
Sleep(300)
Send( "{ENTER}" )