Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Вопрос по VBScript / 5 сообщений из 5, страница 1 из 1
19.11.2009, 11:59
    #36319302
zark
zark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по VBScript
Мне нужно запустить телнет выполнить определенные действия, а потом закрыть телнет. С "закрыть" никак не получается. Может кто-то подскажет как это делать?

запускаю так:
Код: plaintext
1.
2.
3.
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run "telnet.exe 192.168.0.1"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2009, 12:32
    #36319430
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по VBScript
zarkопределенные действияИх много? Что мешает последним действием сделать quit?

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2009, 12:39
    #36319466
zark
zark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по VBScript
Antonariy,

последнее действие делает reboot и поэтому окно телнета остается висеть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2009, 12:45
    #36319488
zark
zark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по VBScript
Пробовал еще так:
Код: plaintext
1.
2.
Set WshShell = WScript.CreateObject("WScript.Shell")
Set theTelnet = WshShell.Exec("telnet")

Но окно телнета появляется всего на мгновение, т.е сразу же само закрывается. В чем тукт может быть проблема? Если, например, запускать notepad то работает нормально
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2009, 13:42
    #36319714
zark
zark
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по VBScript
Может быть кому-то будет интересно. Вот так получается:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

set colProcessList = objWMIService.ExecQuery ("SELECT * FROM Win32_Process WHERE Name LIKE '%telnet%'")
For Each objProcess In colProcessList
objProcess.Terminate()
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Вопрос по VBScript / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 492ms
Закрыть
start [/forum/topic.php?fid=22&tablet=1&tid=1453946]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 196ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 2ms
others: 225ms
total:  492ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]