ok try this instead...
p.s. i'm not a scripter, so there might be errors.
Dim Retval
Retval=0
' *** Install Application. ***
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
' open normal and don't wait
WSHShell.Run "
WindowsXP-KB936929-SP3-x86-ENU.exe /quiet /norestart /log:%temp%\SP3_Install.log", 1, false
Set WSHShell = Nothing
' *** show us what RETVAL is, unrem to see what retval = ***
' MsgBox "The actual return code was " &retval
' *** unrem to set to 3010 for testing ***
'retval = 3010
If retval = 3010 Then
MsgBox "The return code was 3010, resetting to 0"
else
MsgBox "The actual return code was " &retval
WScript.Quit(Retval)
End If
' *** set the return value to 0 anyway. ***
Retval=0
MsgBox "The return code was reset to " &retval
WScript.Quit(Retval)
Step by Step ConfigMgr 2007
Guides | Step by Step ConfigMgr 2012
Guides | Microsoft MVP - Configmgr