' Скрипт по сбору информации об установленном ПО
' информация берется из ветки реестра
' HLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
' файлы пишуться на сетевой ресурс обзываясь по имени пользователя
' и имени компьютера : пользователь_компьютер

Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Const ForWriting = 2
Const ForAppending = 2
Set WSN = WScript.CreateObject("WScript.Network")
Computer = WSN.ComputerName
User = WSN.UserName

' указываем что oReg будет лезть в реестр
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

' Указываем куда именно в реестре мы полезем
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

' указываем что мы еще и файлы создавать будем
Set objFSO = CreateObject("Scripting.FileSystemObject")
' и куда их ложить будем тоже, вместо sw_ можно указать сетевой путь
Set objTextFile = objFSO.OpenTextFile("\\192.168.1.3\WMI_script\" & User & "_" & Computer & ".txt", _
ForWriting, True)

' Перебор неких subkey в массиве arrSubKeys,
' на самом деле шаримся по подразделам Uninstall'a
For Each subkey In arrSubKeys

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & subkey
'Ищем в подразделах строковой параметр "DisplayName"
strValueName = "DisplayName"
'Выдираем из реестра его значение - strValue
oReg.GetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath, _
strValueName,StrValue
'Проверяем чему равно значение "DisplayName"
'если тупо пусто, то просто тупо присваиваем i=1
'а если не пусто пишем в файл значение strValue
If strValue <> Empty Then
objTextFile.Write strValue
objTextFile.Writeline
Else i=1
end if

Next