VBS Список софта на локальном компьютере

Этот VB скрипт, поможет вам получить список софта на локальном компьютере. . Обязательно запускайте данный скрипт с правами локального администратора. Запускается он очень просто, скопируйте сам скрипт в файле с расширением vbs, например script.vbs и запустите из командной строки 

START /WAIT CScript <path>\<filename>.vbs //NoLogo

Как пример:

START /WAIT CScript C:\script.vps //NoLogo

Список будет сохранен на диске C: в файле Report.txt

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:\Report.txt" 
set handle = fs.OpenTextFile(logfile,8,true) 
 
softwareName = strValue 
handle.WriteLine softwareName 
handle.close 
End If 
Next 

 

Случайные Статьи

Loading…


Количество просмотров :2369

Оставьте коментарий