批量删除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
问吧。
------解决方案--------------------
帮你移动一下吧，说不定有人能帮到你