Выбор определенных строк из реестра

' Скрипт по сбору информации об установленном ПО
' информация берется из ветки реестра
' 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

Dim objWMI, objCollection, objItem, strGUID, strIP, i
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
For Each objItem In objCollection
    strGUID = strGUID & objItem.SettingID & vbNewLine
    For i = 0 To UBound(objItem.IPAddress)
        If objItem.IPAddress(i) <> "0.0.0.0" Then strIP = strIP & objItem.IPAddress(i) & vbNewLine
    Next
    strGUID = strGUID & strIP & "------" & vbNewLine
Next
Set objItem = Nothing: Set objCollection = Nothing: Set objWMI = Nothing
WScript.Echo strGUID
WScript.Quit 0

Dim objWsNet, objWSH, objA, strComputer, strIP
 
Set objWsNet = CreateObject("WScript.Network")
strComputer = objWsNet.ComputerName
 
set objWSH = CreateObject("WScript.Shell")
set objA = objWSH.Exec("cmd /c ""for /f ""tokens=2 delims=[]"" %i in ('ping -n 1 " & strComputer & "^| findstr \[.*\]') do @for /f ""delims=:"" %j in ('ipconfig^| findstr/n %i') do @for /f %k in ('set/a %j+1') do @for /f ""tokens=3 delims=:"" %l in ('ipconfig^| findstr/n ""^""^| findstr ""^%k:""') do @for /f ""tokens=*"" %m in (""%l"") do @echo %m""")
 
strIP = objA.StdOut.ReadAll()
 
Set objWsNet = Nothing
Set objWSH = Nothing
Set objA = Nothing
 
WScript.Echo(strIP)

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objCollection = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
For Each objItem In objCollection
    For i = 0 To UBound(objItem.IPAddress)
        If Len(objItem.IPAddress(i)) > 0 Then
            If objItem.IPAddress(i) <> "0.0.0.0" Then
                If InStr(objItem.IPAddress(i), ".") > 0 Then strIP = strIP & "_" & objItem.IPAddress(i)
            End If
        End If
    Next
Next
objTextFile = objFSO.OpenTextFile("c:\" & User & "_" & Computer & "_" & strIP & ".txt", 2, True)