Получить список установленного софта через vbs

Этим скриптом ежедневно машины сдают свой программный конфиг на сервер:

em BEGIN

const HKLM = &amp;H80000002

on Error resume next

outCon=right(LCase(wScript.FullName),11)="cscript.exe"

outFile=""
out_all=0

FMT=1
' 0 - Text
' 1 - CSV
' 2 - HTM

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Set objReg = GetObject("winmgmts://./root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys

S=""
T=""
T=out(T,"INSTDATE",11,FMT&lt;&gt;3)
T=out(T,"VER",8,FMT&lt;&gt;3)
T=out(T,"NAME",0,FMT&lt;&gt;3)
outstr(T)

for each strSubkey in arrSubkeys
  T=""
  AppName=""
  InstDate=""
  verMajor=""
  verMinor=""
  ver=""
  Siz=""

  if objReg.GetStringValue(HKLM, strKey &amp; strSubkey, "DisplayName", AppName) &lt;&gt; 0 then
     objReg.GetStringValue HKLM, strKey &amp; strSubkey, "QuietDisplayName", AppName
  end if

  if len(AppName)&gt;0 then
     objReg.GetStringValue HKLM, strKey &amp; strSubkey, "InstallDate", InstDate
     objReg.GetDWORDValue HKLM, strKey &amp; strSubkey, "VersionMajor", verMajor
     objReg.GetDWORDValue HKLM, strKey &amp; strSubkey, "VersionMinor", verMinor
     objReg.GetDWORDValue HKLM, strKey &amp; strSubkey, "EstimatedSize", Siz

     ver=verMajor &amp; "." &amp; verMinor
     if ver="." then ver=""

     T=out(T,InstDate,11,FMT&lt;&gt;3)
     T=out(T,ver,10,FMT&lt;&gt;3)
     T=out(T,AppName,0,FMT&lt;&gt;3)
     outstr(T)
  end if
next
outEnd()

function out(Ret, T, N, Q)
  if IsNull(T) then T=""
  if Q then
     select case FMT
       case 0
         if N&gt;0 then
            if N&gt;len(T) then Ret=Ret &amp; T &amp; space(N-len(T))
            if N0 then Ret=Ret &amp; ","
         Ret=Ret &amp; qw(T)
       case 2
         if len(T)=0 then T=" "
         Ret=Ret &amp; "
" &amp; T &amp; "

" &amp; vbCrLf
     end select
  end if
  out=Ret
end function

sub outstr(text)
  if FMT=2 then
     text="
" &amp; vbCrLf &amp; text &amp; "  

"
     if len(S)=0 then
        text="" &amp; vbCrLf &amp; "

<table border="1" cellspacing=" &amp; qw(">" &amp; vbCrLf &amp; text
     end if
  end if

  if outCon then
     if len(outFile)=0 then
        wScript.echo text
     end if
  end if
  S=S &amp; text &amp; vbCrLf
end sub

sub outEnd
  T="</table>


" &amp; vbCrLf &amp; "" &amp; vbCrLf
  if FMT=2 then S=S &amp; T

  if not outCon then
     if len(outFile)=0 then WScript.echo(S)
  else
     if FMT=2 then
        if len(outFile)=0 then WScript.echo T
     end if
  end if

  if len(outFile)&gt;0 then
     set fso=CreateObject("Scripting.FileSystemObject")
     set file=fso.OpenTextFile(outFile, 2, true)
     file.write(S)
     file.close
  end if
end sub

function qw(T)
  qw=chr(34) &amp; T &amp; chr(34)
end function

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

em BEGIN

const HKLM = &H80000002

on Error resume next

outCon=right(LCase(wScript.FullName),11)="cscript.exe"

outFile=""

out_all=0

FMT=1

' 0 - Text

' 1 - CSV

' 2 - HTM

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Set objReg = GetObject("winmgmts://./root/default:StdRegProv")

objReg.EnumKey HKLM, strKey, arrSubkeys

S=""

T=""

T=out(T,"INSTDATE",11,FMT<>3)

T=out(T,"VER",8,FMT<>3)

T=out(T,"NAME",0,FMT<>3)

outstr(T)

for each strSubkey in arrSubkeys

T=""

AppName=""

InstDate=""

verMajor=""

verMinor=""

ver=""

Siz=""

if objReg.GetStringValue(HKLM, strKey & strSubkey, "DisplayName", AppName) <> 0 then

objReg.GetStringValue HKLM, strKey & strSubkey, "QuietDisplayName", AppName

end if

if len(AppName)>0 then

objReg.GetStringValue HKLM, strKey & strSubkey, "InstallDate", InstDate

objReg.GetDWORDValue HKLM, strKey & strSubkey, "VersionMajor", verMajor

objReg.GetDWORDValue HKLM, strKey & strSubkey, "VersionMinor", verMinor

objReg.GetDWORDValue HKLM, strKey & strSubkey, "EstimatedSize", Siz

ver=verMajor & "." & verMinor

if ver="." then ver=""

T=out(T,InstDate,11,FMT<>3)

T=out(T,ver,10,FMT<>3)

T=out(T,AppName,0,FMT<>3)

outstr(T)

end if

outEnd()

function out(Ret, T, N, Q)

if IsNull(T) then T=""

if Q then

select case FMT

case 0

if N>0 then

if N>len(T) then Ret=Ret & T & space(N-len(T))

if N0 then Ret=Ret & ","

Ret=Ret & qw(T)

case 2

if len(T)=0 then T=" "

Ret=Ret & "

" & T & "

" & vbCrLf

end select

end if

out=Ret

end function

sub outstr(text)

if FMT=2 then

text="

" & vbCrLf & text & "

if len(S)=0 then

text="" & vbCrLf & "

<table border="1" cellspacing=" & qw(">" & vbCrLf & text

end if

if outCon then

if len(outFile)=0 then

wScript.echo text

end if

S=S & text & vbCrLf

end sub

sub outEnd

T="</table>

" & vbCrLf & "" & vbCrLf

if FMT=2 then S=S & T

if not outCon then

if len(outFile)=0 then WScript.echo(S)

else

if FMT=2 then

if len(outFile)=0 then WScript.echo T

end if

if len(outFile)>0 then

set fso=CreateObject("Scripting.FileSystemObject")

set file=fso.OpenTextFile(outFile, 2, true)

file.write(S)

file.close

end if

end sub

function qw(T)

qw=chr(34) & T & chr(34)

end function

(источник – с форума sysadmins.ru)

Oh, MSBRO !

Сетевые заметки системного администратора

Получить список установленного софта через vbs