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