[分享] 删除软件

[ 5467 查看 / 5 回复 ]

返回列表

洛洛

组别管理员
生日1985-2-26
帖子3564
积分19665
服务点券8945.94 点
性别
注册时间 2007-01-25

2008-01-22 09:17 显示全部 1^#

字体大小: t T

描述卸载使用 Windows Installer 安装的假定软件程序。 脚本代码

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
("Select * from Win32_Product Where Name = 'Personnel database'")
For Each objSoftware in colSoftware
objSoftware.Uninstall()
Next

复制代码

欢迎大家和我联系 MCSE2003\MCSA2003\MCP\MTO\MVP QQ群:http://www.mcse.org.cn/showtopic-5035.html bbs:http://www.mcse.org.cn msn:lingluo18#hotmail.com mail:lingluo18#gmail.com

TOP

返回列表

上一主题 | 下一主题