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

本篇内容主要讲解“怎么用VBS脚本收集远程计算机或本地计算机安装的软件”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“怎么用VBS脚本收集远程计算机或本地计算机安装的软件”吧!

目标

用VBS脚本收集域中远程计算机或本地计算机安装的软件，windows版本。并将收集的结果保存到计算机名为文件名的文本文件中。文本文件可以保存到网络路径中或当前VBS文件所在目录。同时支持32位和64位系统。
并过滤到一些补丁包、Office组件、NVIDIA、Intel®的驱动等。

制作VBS脚本

保存下面的VBS程序代码到vbs文件中

On Error Resume Next  Const HKCU   = &h80000001Const HKLM   = &H80000002Const strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"Const str64KeyPath = "SOFTWARE\Wow6432node\Microsoft\Windows\CurrentVersion\Uninstall\"Const ForReading = 1Const ForWriting = 2Const 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 Nameset argus=wscript.argumentsif argus.count=0 then strComputerName = Wshell.RegRead("HKEY_LOCAL_MacHINE\SYSTEM\CurrentControlSet\Services\tcpip\Parameters\Hostname")else strComputerName = argus(0)end ifSet textWriteFile = objFSO.OpenTextFile(FilePath & ucase(strComputerName) &".txt",ForWriting,True,True)Set objReg = GetObject("winmgmts://" & strComputerName & "/root/default:StdRegProv")'Get OS VersionintRet = 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 ifElse strOSVersion = "OS Get Failed" strOSServicePack = "NoFind"End Ifif InStr(LCase(strOSVersion),"windows")>0 then textWriteFile.WriteLine("""" & ucase(strComputerName) & """" & vbTab & """" & strOSVersion & """" & vbTab & """" & strOSServicePack & """")end if'Display User Software.objReg.EnumKey HKCU, strKeyPath,arrSubKeysFor 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 IfNext'Display Machine 32bit Software.objReg.EnumKey HKLM, strKeyPath,arrSubKeysFor 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 IfNext'Display Machine 64bit Software.objReg.EnumKey HKLM, str64KeyPath,arrSubKeysFor 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 IfNexttextWriteFile.Closefunction 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 Ifend function

假设保存的文件名为InstalledSoftList.vbs。保存在D:\

修改结果文件保存路径。

请修改下列代码

'FilePath  = "\\Server-File\PCSoftList\"FilePath  = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path & "\"

当前默认是保存到InstalledSoftList.vbs文件所在目录。可以不修改。

修改过滤条件（设置不想显示的程序名）

请修改下列代码

 '不输出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

默认不显示Security Update、.NET Framework、Microsoft Visual C++、NVIDIA、Intel®的程序
测试前可以不修改

测试

测试方法1

收集当前计算机安装的软件

直接双击InstalledSoftList.vbs

假设计算机名为PC-Name01，会在D:\或指定目录下生成一个名为PC-Name01.txt的文件。

测试方法2

收集远程计算机上安装的软件。
在CMD窗口中运行下列命令。（假设计算机名为PC-Name02）

cscript d:\InstalledSoftList.vbs PC-Name02

会在D:\或指定目录下生成一个名为PC-Name02.txt的文件。

测试方法2的注意事项

如果运行后得到的PC-Name02.txt文件为空文件。请确认下列两项内容。

• 远程计算机必须于运行脚本的计算机是同一个域的成员计算机

• 远程计算机的防火墙为关闭状态，或设置了【入站规则】【Windows Management Instrumentation(WMI)】允许

到此，相信大家对“怎么用VBS脚本收集远程计算机或本地计算机安装的软件”有了更深的了解，不妨来实际操作一番吧！这里是编程网网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！