批量删除Microsoft OFFICE 2003
请高手赐教，
机器是Windows XP 已经加入到域中
请问怎么电脑中安装Microsoft OFFICE 2003 的软件（office没有经过域分发）
找到一个脚本，但是不能用，请高手赐教，
'*************************************************************?? ?
'?Script:?Office?2003?Unistall?Script?(Office?2003?Pro?&?Std)? ?
'?Last?Modified?:?2010-08-03? ?
'?Version:?1.0? ?
'*************************************************************?? ?
?
Const?HKLM? =?&H80000002? ?
Const?strKeyPath?=?"Software\Microsoft\Windows\CurrentVersion\Uninstall"? ?
?
strComputer? =?"."? ?
Set?Wshell? =?CreateObject("Wscript.Shell")? ?
Set?objReg? =?GetObject("winmgmts://"?&?strComputer?&?"/root/default:StdRegProv")? ?
objReg.EnumKey?HKLM,?strKeyPath,arrSubKeys? ?
???? ?
For?Each?strSubKey?In?arrSubKeys? ?
????????intRet?=?objReg.GetStringValue(HKLM,?strKeyPath?&?strSubKey,"DisplayName",strValue)????????? ?
???????? ?
????????If?strValue?<>?""?And?intRet?=?0?And?inStr(1,strValue,"Office?Professional?Edition?2003",1)?>0?Then? ?
?????????? Wshell.Run("MsiExec.Exe?/x?{90110804-6000-11D3-8CFE-0150048383C9}?/qn?REBOOT=ReallySuppress")? ?
????????ElseIf?strValue?<>?""?And?intRet?=?0?And?inStr(1,strValue,"Office?Standard?Edition?2003",1)?>0?Then? ?
?? wshell.Run("MsiExec.Exe?/x?{90120804-6000-11D3-8CFE-0150048383C9}?/qn?REBOOT=ReallySuppress")? ?
????????End?If? ?
Next? ?
?
'The?end
[解决办法]
这个问题还是去
http://bbs.winos.cn/index.php
问吧。
[解决办法]
帮你移动一下吧，说不定有人能帮到你
