Hallo,
ich habe ein kleines Problem in VBS und sehe gerade den Wald vor lauter Bäumen nicht...
Die aufgerufene EXE erzeugt ein PopUp und gibt als Rückgabewert die entsprechende Reaktion des Users zurück. Diese muss ich nun mit dem Skript abfangen, bekomme aber leider eine Fehlermeldung, die sagt, dass in Zeile 13 ein "Zeilenende erwartet" werde.
Es gibt keine Möglichkeit auf eine andere Sprache auszuweichen, es MUSS so gehen...^^
Danke schonmal für eure Hilfe.
Mfg Kae
Ok, ich habe den Wald echt nicht vor lauter Bäumen gesehen...
Mfg Kae
ich habe ein kleines Problem in VBS und sehe gerade den Wald vor lauter Bäumen nicht...
Code:
Option Explicit
'################ Variablen ################
Dim oShell : Set oShell = CreateObject("WScript.Shell")
Dim iRC : iRC = 999
Dim sProgram
'################ Prozedur ################
sProgram = GetPath & "InsMsgB.exe " & Chr(34) & "Adobe_Reader install" & Chr(34)' & " " & Chr(34) & "INSTALL" & Chr(34)
'Das funktioniert nicht, wird aber gebraucht
iRC = oShell.Run Chr(34) & sProgram & Chr(34), 1, false
'Das funktioniert, bringt mir aber nichts...
oShell.Run Chr(34) & sProgram & Chr(34), 1, false
'WScript.Echo "Returncode: " & iRC
'################ Funktionen ################
Function GetPath 'Gibt den Pfad des Skriptes zurück. z.B. C:\Bombe\Boom\
Dim path
path = WScript.ScriptFullName
GetPath = Left(path, InStrRev(path, "\"))
Set path = Nothing
End FunctionEs gibt keine Möglichkeit auf eine andere Sprache auszuweichen, es MUSS so gehen...^^
Danke schonmal für eure Hilfe.
Mfg Kae
Ergänzung ()
Ok, ich habe den Wald echt nicht vor lauter Bäumen gesehen...
Code:
'falsch
iRC = oShell.Run Chr(34) & sProgram & Chr(34), 1, false
'richtig
iRC = oShell.Run(Chr(34) & sProgram & Chr(34), 1, false)