Теперь остается лишь оформить полученные данные должным образом (то есть добавить информацию об имени пользователя, имени компьютера и времени выполнения сценария) и сохранить в файле.

Для получения информации об имени пользователя и названии машины воспользуемся следующими двумя значениями параметров реестра:

Листинг 4. Ветки, содержащие информацию об имени пользователя и имени компьютера

pcName = "SYSTEMCurrentControlSetControlComputerNameActiveComputerName"

pcNameValueName = "ComputerName"

userPath = "SoftwareMicrosoftWindows NTCurrentVersionWinlogon"

userValueName = "DefaultUserName"

В результате работы описанных выше процедур мы получаем текстовый файл, в заголовке которого будут имя пользователя, название, дата и время создания.

Приведем полный текст сценария для сбора информации об установленных на компьютере приложениях:

Листинг 5. Полный текст сценария

' Объявляем константу HKEY_LOCAL_MACHINE

Const HKLM = &H80000002

Const REG_SZ = 1 '

Const ForReading = 1

Const ForWriting = 2

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objDictionary2 = CreateObject("Scripting.Dictionary")

Dim objNetwork, objShell, CheckDrive

Dim strDriveLetter, strRemotePath, intDrive, bforce

' Данные для сетевого диска

strDriveLetter = UCase("x:" ) ' Имя диска

strRemotePath = "\10.0.1.5 mp" ' Сетевой путь

bforce = true

Set objShell = CreateObject("WScript.Shell")

Set objNetwork = CreateObject("WScript.Network")