Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование для администраторов
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

7. Работа с окнами и приложениями

Запуск внешних приложений из VBScript, объект WshShell, методы Run() и Exec(): самостоятельная работа

Упражнение 1. Работа с консольными приложениями

Напишите скрипт ipconfig_run.vbs, который бы:

1) запускал утилиту ipconfig

2) записывал бы то, что возвращает эта утилита, в файл C:\ipconfig_output.txt.

Ответ к упражнению 1. Работа с консольными приложениями

Эту задачу можно решать разными способами. Первый способ – использовать возможности объекта WshScriptExec (его свойство StdOut, которое позволяет получить доступ к символам, передаваемым выполняемым приложением в стандартную консоль вывода):

Dim oShell, oExec, sOutput

Dim fso, oFile

Set oShell = CreateObject("WScript.Shell")

Set oExec = oShell.Exec("ipconfig.exe")

sOutput = ""

Do While Not oExec.StdOut.AtEndOfStream

sOutput = sOutPut & oExec.StdOut.Read(1)

Loop

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile = fso.CreateTextFile("C:\ipconfig_output.txt", True)

oFile.WriteLine sOutput

oFile.Close

Второй способ – просто воспользоваться перенаправлением ввода консольного приложения:

Option Explicit

Dim oWsh

Dim sResult

Set oWsh = CreateObject("Wscript.Shell")

sResult = oWsh.Run("cmd /c ipconfig > c:\ipconfig_output.txt")

Несмотря на то, что Windows Explorer может показывать нулевой размер файла, файл вывода формируется правильно.

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 

 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru