option explicit

dim Shell, res, pv

set Shell = CreateObject("WScript.Shell")

res = msgbox("OFF2000/2002/2003 Assistent deaktivieren?", vbyesnocancel)

if res = vbcancel then wscript.quit
if res = vbyes then pv = &h26 else pv = &h15

Shell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\Common\Assistant\AsstState", pv, "REG_DWORD"

msgbox "OK"