vbs采集电脑PC全部安装应用软件信息

退休的coder

已于 2024-06-05 11:05:19 修改

阅读量250

点赞数 3

文章标签：开发语言

于 2024-06-05 11:03:16 首次发布

本文链接：https://blog.csdn.net/qq_34931675/article/details/139466691

版权

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\Microsoft\Windows NT\CurrentVersion”,“InstallDate”,InstallDate)
intRet = objReg.GetStringValue(HKLM, “SOFTWARE\Wow6432Node\Microsoft\Windows