Hallo zusammen,
ich habe folgende Frage zu meinem Programm ich möchte gerne den Pfad (unten in meinem Script zu sehen) als Parameter übergeben, wird vllt. für euch eine einfache Lösung sein. Aber für mich leider in erster Linie nicht
Desweiteren würde ich gerne die Funktion (oben) in meinem Script aufrufen, wie mache ich dies am besten?
Ich hoffe man kann mir helfen
LG Sabrina
Spoiler anzeigen
ich habe folgende Frage zu meinem Programm ich möchte gerne den Pfad (unten in meinem Script zu sehen) als Parameter übergeben, wird vllt. für euch eine einfache Lösung sein. Aber für mich leider in erster Linie nicht
Desweiteren würde ich gerne die Funktion (oben) in meinem Script aufrufen, wie mache ich dies am besten?
Ich hoffe man kann mir helfen
LG Sabrina
Visual Basic-Quellcode
- Function RestartScriptIn32BitMode() 'DIESE FUNKTION UNTEN AUFRUFEN
- ' Check if script is running in 32 bit mode
- Dim ScriptHost : ScriptHost = Mid(WScript.FullName, InStrRev(WScript.FullName, "\") + 1, Len(WScript.FullName))
- Dim oWs : Set oWs = CreateObject("WScript.Shell")
- Dim oProcEnv : Set oProcEnv = oWs.Environment("Process")
- ' Am I running 64-bit version of WScript.exe/Cscript.exe? So, call script again in x86 script host and then exit.
- If InStr(LCase(WScript.FullName), LCase(oProcEnv("windir") & "\System32\")) And oProcEnv("PROCESSOR_ARCHITECTURE") = "AMD64" Then
- ' rebuild arguments
- If Not WScript.Arguments.Count = 0 Then
- Dim sArg, Arg
- sArg = ""
- For Each Arg In Wscript.Arguments
- sArg = sArg & " " & """" & Arg & """"
- Next
- End If
- Dim sCmd : sCmd = """" & oProcEnv("windir") & "\SysWOW64\" & ScriptHost & """" & " """ & WScript.ScriptFullName & """" & sArg
- oWs.Run sCmd
- WScript.Quit
- End If
- End Function
- Set Project = CreateObject("IswiAuto20.ISWiProject")
- strFile = "C:\InstallShield 2013 Projects\test.ism" 'DIESER PFAD SOLL ALS PARAMETER ÜBERGEBEN WERDEN
- 'Öffnen des Projekts
- project.OpenProject strFile
- 'ProductVersion wird verändert
- project.ProductVersion = IncVersion(project.ProductVersion)
- 'Speichern des Projekts
- project.SaveProject
- 'Schliessen des Projekts
- project.CloseProject