Software Deployment

I have made a msi package which is supposed to run a vbs script. I get error 1720
The script starts but fails after the first dialog box.

The script works fine if i run it manually

Option Explicit
Dim WshShell, Button
Dim UserMessage
Dim TimeOut 'The time for the message box to be displayed in seconds (0=indefinit)
Dim Title 'The title for the message box
Dim MsgTxt 'The message text in the message box
Dim ButtonType 'The type of button to display in the message box (0=OK, 1=OK&Cancel, 2=Abort&Retry&Ignore, 3=Yes&No&Cancel, 4=Yes&No, 5=Retry&Cancel)
Dim IconType 'The type of icon to display in the message box (16="Stop Mark", 32="Question Mark", 48="Exclamation Mark", 64="Information Mark")

Set WshShell = CreateObject("WScript.Shell")

' Calling Function
FuncRebootMsg

' This Function will display the reboot option
'---------------------------------------------------------------------------------
Function FuncRebootMsg()

Title = "Reboot Notification for AT&T v6.8"
MsgTxt = "To get the new AT&T GlobalNetworkclient 6.8 on your computer the computer needs to restart!!" & vbCrLf & _
"The new client will be installed after the reboot." & vbcrlf & vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"Press YES to reboot now ( SAVE your work before pressing YES! )"& vbcrlf & _
"Press NO to continue working - continue with v5.2 and reboot later." & vbcrlf & vbcrlf
TimeOut = 900
ButtonType = 4
IconType = 32

'Display message with the settings above . Timeout 1000 sec.
Button = WSHShell.Popup (MsgTxt,TimeOut,Title,ButtonType+IconType)

'To check which button was clicked, the following Select Case statement could be used (don't forget to Dim the variable UserMessage too)
'The possible values are: 1=OK, 2=Cancel, 3=Abort, 4=Retry, 5=Ignore, 6=Yes, 7=No, -1=No button

Select Case Button
Case -1
Wscript.sleep 5000
FuncRebootMsg
'UserMessage = "You did not click any button / New message in 5000mSec"
Exit Function
Case 7
Wscript.sleep 3600000
'UserMessage = "NO - Button clicked / Timout 3600000 mSec! "
FuncRebootMsg
Exit Function
Case 1
'UserMessage = "OK - Button clicked"
'SubReboot
Case 6
UserMessage = "Did you save your work?"
SubReboot
End Select

'WshShell.Popup UserMessage, , "Reboot option", 16
End Function

' This sub section will reboot the computer
'---------------------------------------------------------------------------------
Sub SubReboot()

Dim strComputer
Dim objWMIService
Dim colOperatingSystems
Dim objOperatingSystem
WshShell.Popup UserMessage, , "Reboot option", 16
Wscript.sleep 2000
WshShell.Run "msiexec /x {0F51C453-45F5-4D4F-B86B-3D8604865EC0} /qn"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Reboot()
Next
End Sub