如何用VBS脚本收集远程计算机或本地计算机安装的软件

on error resume next  

const hkcu   = &h80000001
const hklm   = &h80000002
const strkeypath = "software\microsoft\windows\currentversion\uninstall\"
const str64keypath = "software\wow6432node\microsoft\windows\currentversion\uninstall\"
const forreading = 1
const forwriting = 2
const forappending = 8

'filepath  = "\\server-file\pcsoftlist\"
filepath  = createobject("scripting.filesystemobject").getfolder(".").path & "\"
set wshell   = createobject("wscript.shell")
set objfso   = createobject("scripting.filesystemobject")

'set collected computers name
set argus=wscript.arguments
if argus.count=0 then
 strcomputername = wshell.regread("hkey_local_machine\system\currentcontrolset\services\tcpip\parameters\hostname")
else
 strcomputername = argus(0)
end if

set textwritefile = objfso.opentextfile(filepath & ucase(strcomputername) &".txt",forwriting,true,true)

set objreg = getobject("winmgmts://" & strcomputername & "/root/default:stdregprov")

'get os version
intret = objreg.getstringvalue(hklm, "software\microsoft\windows nt\currentversion","productname",strosversion)
if intret = 0 then
 intret = objreg.getstringvalue(hklm, "software\microsoft\windows nt\currentversion","csdversion",strosservicepack)
 intret = objreg.getstringvalue(hklm, "software\wow6432node\microsoft\windows nt\currentversion","productname",str64bitosversion)
 if intret = 0 then
  strosversion = strosversion & " 64bit"
 end if
 intret = objreg.getstringvalue(hklm, "system\currentcontrolset\control\nls\language","installlanguage",oslanguagecode)
 if intret = 0 then
  select case oslanguagecode
  case "0804" '中文
   strosversion = strosversion & " chinese version"
  case "0411" '日文
   strosversion = strosversion & " japanese version"
  case "0409" '英文
   strosversion = strosversion & " english version"
  case else '未知语言
   strosversion = strosversion & " unknownlanguage version"
  end select
 end if
else
 strosversion = "os get failed"
 strosservicepack = "nofind"
end if
if instr(lcase(strosversion),"windows")>0 then
 textwritefile.writeline("""" & ucase(strcomputername) & """" & vbtab & """" & strosversion & """" & vbtab & """" & strosservicepack & """")
end if

'display user software.
objreg.enumkey hkcu, strkeypath,arrsubkeys
for each strsubkey in arrsubkeys
 intget = objreg.getdwordvalue(hkcu, strkeypath & strsubkey,"systemcomponent",intsystemcomponent)
 if isnull(intsystemcomponent) then
  intsystemcomponent = 0
 end if
 intret = objreg.getstringvalue(hkcu, strkeypath & strsubkey,"parentdisplayname",strname)
 if intsystemcomponent = 0 and intret > 0 then
  intret = objreg.getstringvalue(hkcu, strkeypath & strsubkey,"displayname",strname)
  if strname <> "" and intret = 0 and ignorepgm(strname) then
   strname = replace(replace(strname,vbcrlf,""),vbtab,"")
   intret = objreg.getstringvalue(hkcu, strkeypath & strsubkey,"displayversion",strversion)
   textwritefile.writeline("""" & ucase(strcomputername) & """" & vbtab & """" & strname & """" & vbtab & """" & strversion & """")
  end if
 end if
next

'display machine 32bit software.
objreg.enumkey hklm, strkeypath,arrsubkeys
for each strsubkey in arrsubkeys
 intget = objreg.getdwordvalue(hklm, strkeypath & strsubkey,"systemcomponent",intsystemcomponent)
 if isnull(intsystemcomponent) then
  intsystemcomponent = 0
 end if
 intret = objreg.getstringvalue(hklm, strkeypath & strsubkey,"parentdisplayname",strname)
 if intsystemcomponent = 0 and intret > 0 then
  intret = objreg.getstringvalue(hklm, strkeypath & strsubkey,"displayname",strname)
  if strname <> "" and intret = 0 and ignorepgm(strname) then '
   strname = replace(replace(strname,vbcrlf,""),vbtab,"")
   intret = objreg.getstringvalue(hklm, strkeypath & strsubkey,"displayversion",strversion)
   textwritefile.writeline("""" & ucase(strcomputername) & """" & vbtab & """" & strname & """" & vbtab & """" & strversion & """")
  end if
 end if
next

'display machine 64bit software.
objreg.enumkey hklm, str64keypath,arrsubkeys
for each strsubkey in arrsubkeys
 intget = objreg.getdwordvalue(hklm, str64keypath & strsubkey,"systemcomponent",intsystemcomponent)
 if isnull(intsystemcomponent) then
  intsystemcomponent = 0
 end if
 intret = objreg.getstringvalue(hklm, str64keypath & strsubkey,"parentdisplayname",strname)
 if intsystemcomponent = 0 and intret > 0 then
  intret = objreg.getstringvalue(hklm, str64keypath & strsubkey,"displayname",strname)
  if strname <> "" and intret = 0 and ignorepgm(strname) then
   strname = replace(replace(strname,vbcrlf,""),vbtab,"")
   intret = objreg.getstringvalue(hklm, str64keypath & strsubkey,"displayversion",strversion)
   textwritefile.writeline("""" & ucase(strcomputername) & """" & vbtab & """" & strname & """" & vbtab & """" & strversion & """")
  end if
 end if
next

textwritefile.close

function ignorepgm(strpgm)
 if instr(1,strpgm,"microsoft office ",1)<=0 then
  '不输出security update、.net framework、microsoft visual c++、nvidia、intel(r)的程序
  ignorepgm = instr(1,strpgm,"security update",1)<=0 _
   and instr(1,strpgm,".net framework",1)<=0 _
   and instr(1,strpgm,"microsoft visual c++",1)<=0 _
   and instr(1,strpgm,"nvidia",1)<=0 _
   and instr(1,strpgm,"intel(r)",1)<=0
 else
  '让个版本的office能正常输出
  ignorepgm = instr(1,strpgm,"microsoft office ",1)>0 _
     and (instr(1,strpgm," 2000 ",1)>0 _
      or instr(1,strpgm," 2003 ",1)>0 _
      or (instr(1,strpgm,"microsoft office access ",1)=1 and instr(1,strpgm," mui",1)<=0) _
      or strpgm="microsoft office professional plus 2007" _
      or strpgm="microsoft office professional plus 2010" _
      or strpgm="microsoft office professional plus 2016" _
      or strpgm="microsoft office standard 2007" _
      or strpgm="microsoft office standard 2010" _
      or strpgm="microsoft office standard 2016" _
      or strpgm="microsoft office standard 2019")

 end if
end function

'filepath  = "\\server-file\pcsoftlist\"
filepath  = createobject("scripting.filesystemobject").getfolder(".").path & "\"

 '不输出security update、.net framework、microsoft visual c++、nvidia、intel(r)的程序
  ignorepgm = instr(1,strpgm,"security update",1)<=0 _
   and instr(1,strpgm,".net framework",1)<=0 _
   and instr(1,strpgm,"microsoft visual c++",1)<=0 _
   and instr(1,strpgm,"nvidia",1)<=0 _
   and instr(1,strpgm,"intel(r)",1)<=0