В процедуре WSH() создайте программные объекты WScript.Network и WScript.Shell и просмотрите свойства и методы этих объектов;

3.Добавьте в процедуру WSH() код, который бы:

· принимал в текстовые переменные и печатал в документе Word значения свойств ComputerName, UserName и UserDomain объекта WScript.Network;

Примечание.

Код для вывода текстовой переменной в Word может выглядеть так:

ThisDocument.Activate

Selection.TypeText моя_текстовая_переменная

· вызывал метод Run() объекта WScript.Shell и передавал ему единственный текстовый параметр со значением " calc";

· использовал свойство Environment объекта WScript.Shell для создания коллекции текстовых переменных с информацией о переменных окружения;

· печатал в документе Word все значения текстовых переменных в из этой коллекции.

Примечание.

Для переменных, которые вы будете использовать для создаваемой коллекции и ее элементов, следует использовать тип Variant.

Решение:

Итоговый код процедуры WSH() может быть таким:

Public Sub WSH()

Dim oNetwork As WshNetwork

Dim oShell As WshShell

Dim sComputer As String

Dim sDomain As String

Dim sUser As String

Dim oColl As Variant

Dim sEnv As Variant

'Создаем объекты

Set oNetwork = CreateObject("WScript.Network")

Set oShell = CreateObject("Wscript.Shell")

'Получаем и печатаем значения свойств объекта Wscript. Network

sComputer = oNetwork.ComputerName

sDomain = oNetwork.UserDomain

sUser = oNetwork.UserName

ThisDocument.Activate

Selection.TypeText sComputer & vbCrLf & sDomain & vbCrLf & sUser & vbCrLf & vbCrLf

'Вызываем метод Run объекта Wscript.Shell

oShell Run "Calc"

'Получаем коллекцию переменных окружения

Set oColl = oShell.Environment

'И выводим каждый элемент этой коллекции

For Each sEnv In oColl

Selection.TypeText sEnv & vbCrLf

Next

'Правило хорошего тона — удаляем созданные объекты из памяти

Set oNetwork = Nothing

Set oShell = Nothing

End Sub

Не нашли, что искали? Воспользуйтесь поиском: