目标
用VBS脚本收集域中远程计算机或本地计算机安装的软件,Windows版本。并将收集的结果保存到计算机名为文件名的文本文件中。文本文件可以保存到网络路径中或当前VBS文件所在目录。同时支持32位和64位系统。
并过滤到一些补丁包、Office组件、NVIDIA、Intel®的驱动等。
制作VBS脚本
保存下面的VBS程序代码到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
假设保存的文件名为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)】允许
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
- PUCK《天蓝色的彼岸》[FLAC/分轨][74.02MB]
- Edward Chan《Blueprint of Memories》[320K/MP3][48.3MB]
- 张敬轩.2007-MY1STCOLLECTION【环球】2CD【WAV+CUE】
- 著名歌手绝美音色经典老歌《超级音效王》DTS-WAV
- 流行靓声-群星《情网HQ》DTS[WAV]
- 群星《经典情歌对唱迟来的爱HQ》DTS[WAV]
- 群星2024《传承(太平洋影音四十五周年纪念专辑)4CD》[FLAC]
- 太平洋唱片中国轻音乐1-10全集[竹锦+影视篇+民歌篇+创作篇等]10CD[APE分轨+CUE]
- 群星《2024第一季度百度排行100首》[FLAC/分轨][2.3G]
- 证声音乐图书馆《聆听·心流·爵士 Flow Jazz》[320K/MP3][77.28MB]
- 证声音乐图书馆《聆听·心流·爵士 Flow Jazz》[FLAC/分轨][132.74MB]
- dnf手游为什么不上线了
- dnf手游韩服怎么重新转职
- 雷婷《婷婷醉歌》发烧版K2HD[正版CD低速原抓WAV+CUE]
- 西卿.1997-西北风(布袋戏精选)【金瓜石】【WAV+CUE】