I've got a problem with an external vbs. During the installation i get an error message:
"A script required for this install to complete could not be run ...."
My vbs gets executed at InstallExecuteSequence -> InstallInitialize with "Deferred with no impersonation" rights
What is wrong?
Code: Select all
Function SetPropertiesForGMPortalInstaller()
Dim LangID
Dim PrimaryID
LangID = Session.Property("UserLanguageID")
PrimaryID = LangID And &H3FF
Select case PrimaryID
' Deutch
Case 7
Session.Property("SPRNR") = 255
Session.Property("CPGNR") = 437
' English
Case 9
Session.Property("SPRNR") = 250
Session.Property("CPGNR") = 437
' Español
Case 10
Session.Property("SPRNR") = 251
Session.Property("CPGNR") = 437
' Français
Case 12
Session.Property("SPRNR") = 253
Session.Property("CPGNR") = 437
' Magyar
Case 14
Session.Property("SPRNR") = 248
Session.Property("CPGNR") = 852
' Italiano
Case 16
Session.Property("SPRNR") = 254
Session.Property("CPGNR") = 437
' Nederlands
Case 19
Session.Property("SPRNR") = 252
Session.Property("CPGNR") = 437
' Polski
Case 21
Session.Property("SPRNR") = 244
Session.Property("CPGNR") = 852
' Português
Case 22
Session.Property("SPRNR") = 243
Session.Property("CPGNR") = 850
' Românã
Case 24
Session.Property("SPRNR") = 236
Session.Property("CPGNR") = 437
' Pyccknñ
Case 25
Session.Property("SPRNR") = 247
Session.Property("CPGNR") = 866
' Slovenscina
Case 27
Session.Property("SPRNR") = 237
Session.Property("CPGNR") = 852
' Default Language is English
Case Else
Session.Property("SPRNR") = 250
Session.Property("CPGNR") = 437
End Select
End Function