vbs采集电脑上安装的软件信息

公司的IT工程师某一天找我聊天,说有没有一个程序能够统计电脑上安装的软件,公司采用的是域控,然后把这个软件放在域控的组策略里面,设置一番,只要登录域控的时候自动运行一遍,然后把采集的信息写入共享目录,这样就不用一台一台的统计了。

当时一想就直接用C#写了一个控制台程序。代码如下:

static void Main(string[] args)
{
string path = @"\\192.168.10.251\\hard_info\\";
StringBuilder proinfo = new StringBuilder();
string uninstallKey = @"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall";
using (RegistryKey rk = Registry.LocalMachine.OpenSubKey(uninstallKey))
{
foreach (string skName in rk.GetSubKeyNames())
{
using (RegistryKey sk = rk.OpenSubKey(skName))
{
try
{
var displayName = sk.GetValue("DisplayName");
if (displayName != null)
{
proinfo.AppendLine(displayName.ToString());
}
}
catch
{
}
}
}
}
File.WriteAllText(path + Dns.GetHostName() + ".txt", proinfo.ToString());
Environment.Exit(0);
}

运行以后,是能统计出来,但是少了很多软件,只有一部分,网上查询一番,发现要区分64位操作系统和32位系统,还要区分是LocalMachine还是CurrentUser

针对x86系统

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

针对x64系统

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

HKEY_CURRENT_USER\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall

根据以上,改进以后代码如下:

static void Main(string[] args)
{
string path = @"\\192.168.10.251\\hard_info\\";
StringBuilder proinfo = new StringBuilder();
proinfo = ShowAllSoftwaresName();
File.WriteAllText(path + Dns.GetHostName() + ".txt", proinfo.ToString());
Environment.Exit(0);
}
public static StringBuilder DisplayInstalledApps(RegistryKey key)
{
StringBuilder result = new StringBuilder();
string displayName;
if (key != null)
{
foreach (String keyName in key.GetSubKeyNames())
{
RegistryKey subkey = key.OpenSubKey(keyName);
displayName = subkey.GetValue("DisplayName") as string;
if (!string.IsNullOrEmpty(displayName))
{
result.AppendLine(displayName);
}
}
}
return result;
}
public static StringBuilder ShowAllSoftwaresName()
{
StringBuilder proinfo = new StringBuilder();
RegistryKey key;
// search in: CurrentUser
key = Registry.CurrentUser.OpenSubKey(@"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall");
proinfo.Append(DisplayInstalledApps(key));
// search in: LocalMachine_32
key = Registry.LocalMachine.OpenSubKey(@"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall");
proinfo.Append(DisplayInstalledApps(key));
// search in: CurrentUser_64
key = Registry.CurrentUser.OpenSubKey(@"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall");
proinfo.Append(DisplayInstalledApps(key));
// search in: LocalMachine_64
key = Registry.LocalMachine.OpenSubKey(@"SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall");
proinfo.Append(DisplayInstalledApps(key));
return proinfo;
}

运行以后,全部采集了电脑安装的软件。

发给IT工程师后,反馈:有部分电脑运行不了。。。xp系统不支持。。。系统默认没安装framework

最后和IT工程师商议后,可以使用VBS,以前也写过VBS,网上找找资料就写了一个,完美解决了。

vbs获取软件列表

蓝奏云地址:https://www.lanzous.com/i5furgd 解压密码:1024fuli.com

参考资料:

VBScript:检查目标计算机软件列表

PowerShell快速高效地获取安装的软件列表

Uninstall Registry Key

正文到此结束
本文目录