vbs 获取计算机安装的软件,vbs获取软件列表

功能：获取本地安装列表，并以“计算机名+IP”命名输出txt文件

on error resume Next

Const HKLM = &H80000002

Const HKCU = &H80000001

Const strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

Const strKeyPathwin ="SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"

Const ForReading = 1

Const ForAppending = 8

'定义输出路径

Const FilePath ="Y:\123\"

Set Wshell = CreateObject("Wscript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemobject")

Dim WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

strComputer = WshNetwork.ComputerName

if (objFSO.FileExits(FilePath & WshNetwork.ComputerName & "(" & GetIP() & ")" & ".txt")) then

Set MyFile