option explicit

dim Shell, res, pv
Set Shell = CreateObject("WScript.Shell")
res = msgbox("OFF2002/2003 Taskpane immer aktivieren?", vbyesnocancel)
If res = vbcancel then wscript.quit
if res = vbyes then pv = 1 else pv = 0
Shell.RegWrite "HKCU\Software\Policies\Microsoft\Office\10.0\Common\General\DoNotDismissFileNewTaskPane", pv, "REG_DWORD"
Shell.RegWrite "HKCU\Software\Policies\Microsoft\Office\11.0\Common\General\DoNotDismissFileNewTaskPane", pv, "REG_DWORD"
MsgBox "OK"