Что нового

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

CheaterUA

Новичок
Сообщения
16
Репутация
0
Версия 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
 
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Как я понимаю тут только предупреждения быстро раздаются, а помочь желающих нет?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
OffTopic:
Желание помочь есть, а желание полностью сделать за тебя нет. В столе заказа свои правила
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
624
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Ну дык я вину признал, все согласно правил поправил и на том все застряло )
 

axlwor

Скриптер
Сообщения
657
Репутация
147
в строчке
Код:
ZPIT-F122944D04   Компьютер   Khristova Irina
можно выделить 3 подстроки
в New Connection есть 2 поля
Name of entry
Ip/Name
 
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Ну как я понял - данный скрипт должен работать, если список состоит из одной колонки, т.е. тогда выделять эти подстроки не нужно, но он не работает даже если оставить одну колонку.
 

axlwor

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

CheaterUA

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

axlwor

Скриптер
Сообщения
657
Репутация
147
Ra.gif

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

CheaterUA

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

axlwor

Скриптер
Сообщения
657
Репутация
147
ты вручную попробуй сделать последовательность действий
1. загрузить клиента
2. нажать ins
3. ты должен стоять на поле ip
 
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Все так и есть. При выполнении скрипта именно на этом моменте скрипт ставится на паузу и просто пустая строка висит - там где ИП.
 

axlwor

Скриптер
Сообщения
657
Репутация
147
в консоль AutoIt должны строчки идти
Код:
ConsoleWrite($saLine & @CRLF)
ControlSetText( "New Connection", "", "Edit2", $saLine )


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

CheaterUA

Новичок
Сообщения
16
Репутация
0
Никакого эффекта.
Вот видео для наглядности:
http://www.youtube.com/watch?v=0V-W6ssnx-0
 

axlwor

Скриптер
Сообщения
657
Репутация
147
тогда пробуем так
Код:
WinWait( "New Connection" );
	ClipPut($saLine)
	Send( "^v" )
	Sleep(300)
	Send( "{ENTER}" )
 
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Не помогло...
Ладно, вечером попробую на домашнем компе, может там заработает. Завтра отпишусь.
 
Автор
C

CheaterUA

Новичок
Сообщения
16
Репутация
0
Пробовал дома на Win 7 Ultimate - эффект тот же. Прямо мистика какая-то (
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Код:
WinActivate( "Radmin Viewer" )
Send( "{INSERT}" )
ClipPut($saLine)
WinWait('[CLASS:#32770]')
Send( "^v" )
Sleep(300)
Send( "{ENTER}" )
 
Верх