脚本:列出windows上已安装的应用程序(使用中发现部分没有vender的应用程序列不出来)
2013-01-24 14:56
357 查看
Set wshShell = Wscript.CreateObject( "Wscript.Shell" )
strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("software_list_" & strServer & ".txt", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product")
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.name & "," & _
objSoftware.Vendor & "," & _
objSoftware.Version
Next
objTextFile.Close
strServer=wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("software_list_" & strServer & ".txt", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product")
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.name & "," & _
objSoftware.Vendor & "," & _
objSoftware.Version
Next
objTextFile.Close
相关文章推荐
- 使用instsrv.exe和srvany.exe将应用程序安装成windows后台服务
- 使用AudioTrack来播放pcm数据,发现播放出来的声音是吱吱的那种杂音。这是怎么回事呢? 没有出现录的声音
- MOSS 2007装好后不能使用"上载多个文档"功能及报"没有安装与windows sharepoint services 兼容的数据表组件"错误
- 使用PyInstaller2将Python脚本转化为可执行文件(上-安装部分)
- 使用Jenkins的任务自动跑脚本后发现,服务没有起来
- [4月30日的脚本] 在Windows 8中使用脚本安装.NET Framework 3.5 (PowerShell)
- 使用shell脚本一键安装zabbix并配置客户端的自动发现选项
- Windows环境下Python使用pip安装部分包出现错误的解决方案
- 小易邀请你玩一个数字游戏,小易给你一系列的整数。你们俩使用这些整数玩游戏。每次小易会任意说一个数字出来,然后你需要从这一系列数字中选取一部分出来让它们的和等于小易所说的数字。 例如: 如果{2,1,2,7}是你有的一系列数,小易说的数字是11.你可以得到方案2+2+7 = 11.如果顽皮的小易想坑你,他说的数字是6,那么你没有办法拼凑出和为6 现在小易给你n个数,让你找出无法从n个数中选取部分求和
- macbook pro 在没有光驱的情况下使用usb 的u盘来安装windows
- pc系统安全问题让你防不胜防--安装系统屏保时,偶然发现没有安装的ie工具栏软件"baidu_jpwb"(Just Under"/WINDOWS")!
- C#使用定时任务框架Windows.TaskSchedule.exe安装控制台应用程序创建的Windows服务
- C:\Windows\system32\MSVCR100.dll 没有被指定在 Windows 上运行,或者它包含错误。请尝试使用原始安装媒体重新安装程序,或联系您的系统管理员或软件供应商以获取支持。【解决办法】
- 4--win2003 添加删除windows组件 没有 应用程序服务器,无法安装iis6
- [转]使用PyInstaller2将Python脚本转化为可执行文件(上-安装部分)
- centos7精简安装后使用发现没有killall命令
- 如何在Windows环境下安装OpenCV,并且在Microsoft Visual Studio 2010中使用OpenCV编写应用程序
- 使用CACTI时出现问题rrd没有,最后发现要安装LWP::UserAgent
- Windows系统中可能含有的控制面板文件(并不完全,某些系统可能没有安装部分控制面板工具)
- (Windows)使用纯净版本的系统碟安装系统后没有网卡驱动怎么办?