Вам бонус- начислено 1 монета за дневную активность. Сейчас у вас 1 монета

Windows: создаем список установленных программ через VBScript (vbs)

Практика



Задача: создать некий текстовый файл с отчетом, в который через VBS (VisualBasic Script) можно будет выгрузить список установленного на данный компьютер программного обеспечения (правда, только того, которое видно через "Установка и удаление").

Например, данный файл можно закидывать куда-то на сервак и какой-то сторонней системой анализировать на различия, при нахождении которых дергать сисадмина - вон, там набор софта изменился!

Метод не мой, я его где-то вычитал в свое время. Вот сам скрипт, который можно сохранить как VBS файл и запускать.

strHost = "."
 
Const HKLM = &H80000002
Set objReg = GetObject("winmgmts://" & strHost & _
"/root/default:StdRegProv")
Const strBaseKey = _
"Software\Microsoft\Windows\CurrentVersion\Uninstall\" 
objReg.EnumKey HKLM,strBaseKey,arrSubKeys
       
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_
"DisplayName",strValue)
If intRet <> 0 Then 
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_
"QuietDisplayName",strValue)
End If
If (strValue <> "") and (intRet = 0) Then
set fs = CreateObject("Scripting.FileSystemObject")
logfile = "C:\SomeFolder\InstalledSoft.txt"
set handle = fs.OpenTextFile(logfile,8,true)
 
softwareName = strValue
handle.WriteLine softwareName
handle.close
End If
Next

Отчет будет создан в файле C:\SomeFolder\InstalledSoft.txt. Убедитесь, что пользователь, из-под которого запускается скрипт, имеет достаточные права на запись в эту папку.
создано: 2017-05-10
обновлено: 2021-03-13
133207



Рейтиг 9 of 10. count vote: 2
Вы довольны ?:


Найди готовое или заработай

С нашими удобными сервисами без комиссии*

Как это работает? | Узнать цену?

Найти исполнителя
$0 / весь год.
  • У вас есть задание, но нет времени его делать
  • Вы хотите найти профессионала для выплнения задания
  • Возможно примерение функции гаранта на сделку
  • Приорететная поддержка
  • идеально подходит для студентов, у которых нет времени для решения заданий
Готовое решение
$0 / весь год.
  • Вы можите продать(исполнителем) или купить(заказчиком) готовое решение
  • Вам предоставят готовое решение
  • Будет предоставлено в минимальные сроки т.к. задание уже готовое
  • Вы получите базовую гарантию 8 дней
  • Вы можете заработать на материалах
  • подходит как для студентов так и для преподавателей
Я исполнитель
$0 / весь год.
  • Вы профессионал своего дела
  • У вас есть опыт и желание зарабатывать
  • Вы хотите помочь в решении задач или написании работ
  • Возможно примерение функции гаранта на сделку
  • подходит для опытных студентов так и для преподавателей



Комментарии


Оставить комментарий
Если у вас есть какое-либо предложение, идея, благодарность или комментарий, не стесняйтесь писать. Мы очень ценим отзывы и рады услышать ваше мнение.
To reply

Операционные системы и системное программировние

Термины: Операционные системы и системное программировние