Запустить командную строку в VBS и выполнить команду

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
1
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 10.07.2003 (Чт) 7:07

Запустить командную строку в VBS и выполнить команду

Сообщение 1 » 17.10.2005 (Пн) 15:05

Я хочу через VBScript запустить командную строку и программно в ней выполнить такую команду как:

Код: Выделить всё
ping www.google.ru


Код: Выделить всё
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe ping www.google.ru", 1, True


Такой вариант не прокатывает.

Andrey Fedorov
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
 
Сообщения: 3287
Зарегистрирован: 21.05.2004 (Пт) 9:28
Откуда: Москва

Сообщение Andrey Fedorov » 17.10.2005 (Пн) 15:12

сmd.exe убери
Фиг Вам! - Сказал Чебурашка, обгладывая Крокодила Гену...

CodeName33
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 297
Зарегистрирован: 01.09.2004 (Ср) 13:25
Откуда: SPb

Сообщение CodeName33 » 17.10.2005 (Пн) 15:13

Можно временный bat или cmd файл с командой "ping www.google.ru" создать и запустить, или через AllocConsole делать...
Программисты не глючат - глючат компиляторы...

1
Новичок
Новичок
 
Сообщения: 36
Зарегистрирован: 10.07.2003 (Чт) 7:07

Сообщение 1 » 17.10.2005 (Пн) 15:29

Ясно. Всем спасибо.

Arata
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 18.10.2015 (Вс) 19:21

Re: Запустить командную строку в VBS и выполнить команду

Сообщение Arata » 18.10.2015 (Вс) 19:25

И ещё для того, чтобы команда cmd выполнилась из VBS необходимо добавить ключ "/C" после "cmd", т.е. скрипт должен выглядеть вот так:
Код: Выделить всё
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c ping www.google.ru", 1, True

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 20.10.2015 (Вт) 20:15

Arata, а чем такой вариант не угодил?
Код: Выделить всё
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "ping www.google.ru", 1, True


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 0

    TopList