Задача: создать некий текстовый файл с отчетом, в который через 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. Убедитесь, что пользователь, из-под которого запускается скрипт, имеет достаточные права на запись в эту папку.
Комментарии
Оставить комментарий
Операционные системы и системное программировние
Термины: Операционные системы и системное программировние