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 может показывать нулевой размер файла, файл вывода формируется правильно.

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