Unattended or Silent install project pro 2007

Hey..

Ik moet een Unattended or Silent install maken van project pro 2007,
ik heb een vbs script maar ik krijg foutmeldingen en ik heb soort gelijke sripts opgezocht en gevonden maar ik zie de fout niet. kan iemand mij hier mee helpen of heeft iemand een andere oplossing of script?

Hier mijn script:

'**********************************
'get the directory where the script is started
'**********************************
Set fso = CreateObject("Scripting.FileSystemObject")
strScriptDir= fso.GetParentFolderName(WScript.ScriptFullName)

'*********************************
'!!!! IN TE VULLEN VARIABELEN !!!!
'*********************************
strAppName = "MS Project 2007" 'vul hier de naam van de applicatie in. Deze wordt getoond in popups en mail.

strCommandLine = "\\a03182\Project2007_Pro_eng\setup.exe /adminfile \\a03182\Project2007_Pro_eng\updates\InstallTY.MSP /config \\a03182\Project2007_Pro_eng\PrjPro.WW\config.xml"

PopupMsg = vbTRUE 'zet dit op vbTRUE of vbFALSE als je wel of geen start/stop popups wenst (verschijnen 60 sec.)

'*************************
'Declaratie van variabelen
'*************************
Dim strMessage 'Message die als mail zal gestuurd worden na afloop van de installatie
Dim strHelpdesk 'Message die gebruikt wordt in popups
Dim strScriptDir 'Directory waar dit script gestart wordt.

strHelpDesk = vbCRLF & "Raadpleeg de helpdesk (6543) indien je meer info wenst over dit bericht." & vbCRLF & vbCRLF & "Met vriendelijke groeten," & vbCRLF & "IT Helpdesk"
set WshShell = WScript.CreateObject("WScript.Shell")

'**********************************
'Display startmessage
'**********************************
If PopupMsg Then
BtnCode = WshShell.Popup(strAppName & " wordt nu geïnstalleerd. Uw pc kan hierdoor tijdelijk iets trager zijn. Je krijgt een bericht wanneer de installatie voltooid is." & strHelpdesk,60, "Installatie " & strAppName, 0 + 64)
End if

'**********************************
'Silent install van de applicatie
'**********************************

WshShell.Run strCommandLine,0,True

'**********************************
'Display Endmessage
'**********************************
If PopupMsg Then
BtnCode = WshShell.Popup(strAppName & " is succesvol geïnstalleerd. Zie mail voor meer info." & strHelpdesk,60, "Installatie " & strAppName, 0 + 64)
End if

'**********************************
'Send information e-mail (mailbody.txt moet bestaan in strScriptDir)
'**********************************
if FileExists(strScriptDir & "\MailBody.txt") then
strMailBody = ReadEntireFile(strScriptDir & "\MailBody.txt")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "ITHelpdesk@concentra.be"
objEmail.To = WshNetwork.UserName & "@concentra.be"
objEmail.Subject = "Installatie " & strAppName & " op computer " & WshNetwork.Computername
objEmail.Textbody = strMailBody
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.rug.adroot"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End if

wscript.quit

'**********************************
Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = retstring & theFile.ReadLine & vbCRLF
Loop
theFile.Close
ReadEntireFile = retstring
End Function
'**********************************
Function FileExists(FileSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
FileExists = TRUE
Else
FileExists = FALSE
End If
End Function
'**********************************

Hopelijk weet iemand hier meer van =)

Groeten en alvast bedankt,

Tom