个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-27 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章如何用VBS脚本收集远程计算机或本地计算机安装的软件由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

目标

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

制作VBS脚本

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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
126
127
128
129
130
131
132
133
134
135
136
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:\ 。

修改结果文件保存路径。

请修改下列代码 。

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

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

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

请修改下列代码 。

?
1
2
3
4
5
6
'不输出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脚本收集远程计算机或本地计算机安装的软件的文章就介绍到这了,更多相关VBS脚本收集计算机安装的软内容请搜索我以前的文章或继续浏览下面的相关文章希望大家以后多多支持我！ 。

原文链接：https://blog.csdn.net/wwchtsy/article/details/113950742 。

最后此篇关于如何用VBS脚本收集远程计算机或本地计算机安装的软件的文章就讲到这里了,如果你想了解更多关于如何用VBS脚本收集远程计算机或本地计算机安装的软件的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

24 4 0
文章推荐： Python实现的爬取百度文库功能示例
文章推荐： C语言实现骑士飞行棋小游戏
文章推荐： 对Python3 序列解包详解
文章推荐： C语言实现骑士飞行棋
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com