5
VBS Shortcut Problem da in TargetPath Anführungszeichen verwendet werden.
Hallo,
ich habe ein VBSkript das bei den Benutzern eine Verknüpfung erstellt, sofern sie in der Programm Gruppe sind.
Nun habe ich ein Programm das Anführungszeichen in der Befehlszeile hat.
Die Befehlszeile lautet:
C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
Das Script sieht so aus:
If InStr(strGroup, lcase(ProgGroup)) Then
Set objShortcut =objShell.CreateShortcut("C:\Users\" & Logonuser & "\AppData\Roaming\Microsoft\Windows\Start menu\Programs\Special\Programm.lnk")
objShortcut.TargetPath = "C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 "" "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 193.187.246.210 0 """
objShortcut.Arguments = ""
objShortcut.Description = "Progname"
objShortcut.WorkingDirectory = "C:\pfad"
objShortcut.IconLocation = "C:\Pfad\Programm.exe "
objShortcut.Save
End If
VBScript gibt nun die "Fehlermeldung Kompilierungsfehler in Microsoft VBScript: Anweisungsende" erwartet aus.
Wie bekomme ich VB dazu diese Befehlszeile als Shortcut zu akzeptieren?
Gruß
Thomas
ich habe ein VBSkript das bei den Benutzern eine Verknüpfung erstellt, sofern sie in der Programm Gruppe sind.
Nun habe ich ein Programm das Anführungszeichen in der Befehlszeile hat.
Die Befehlszeile lautet:
C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
Das Script sieht so aus:
If InStr(strGroup, lcase(ProgGroup)) Then
Set objShortcut =objShell.CreateShortcut("C:\Users\" & Logonuser & "\AppData\Roaming\Microsoft\Windows\Start menu\Programs\Special\Programm.lnk")
objShortcut.TargetPath = "C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 "" "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 193.187.246.210 0 """
objShortcut.Arguments = ""
objShortcut.Description = "Progname"
objShortcut.WorkingDirectory = "C:\pfad"
objShortcut.IconLocation = "C:\Pfad\Programm.exe "
objShortcut.Save
End If
VBScript gibt nun die "Fehlermeldung Kompilierungsfehler in Microsoft VBScript: Anweisungsende" erwartet aus.
Wie bekomme ich VB dazu diese Befehlszeile als Shortcut zu akzeptieren?
Gruß
Thomas
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 174394
Url: https://administrator.de/forum/vbs-shortcut-problem-da-in-targetpath-anfuehrungszeichen-verwendet-werden-174394.html
Ausgedruckt am: 04.07.2025 um 05:07 Uhr
5 Kommentare
Neuester Kommentar
Servus,
Ähh fehlt da nicht ein führendes "?
edit - nee das ist mir auch mit Code Tags zu viel Arbeit...
- Benutze doch bitte Code Tags...
- vergleiche - Zeile 2 und Zeile 3
- " entspricht Chr(34)
Die Befehlszeile lautet:
C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
Ähh fehlt da nicht ein führendes "?
If InStr(strGroup, lcase(ProgGroup)) Then
Set objShortcut =objShell.CreateShortcut("C:\Users\" & Logonuser & "\AppData\Roaming\Microsoft\Windows\Start menu\Programs\Special\Programm.lnk")
objShortcut.TargetPath = "C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 " & Chr(34) & Chr(34) & " CTSDBOracleOciCursor -V "& Chr(34) & Chr(34) & "btw" & Chr(34) & Chr(34) & "1.00.001" "368" -T 111.111.111.111 0 "" "" CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 193.187.246.210 0 """
objShortcut.Arguments = ""
objShortcut.Description = "Progname"
objShortcut.WorkingDirectory = "C:\pfad"
objShortcut.IconLocation = "C:\Pfad\Programm.exe "
objShortcut.Save
End Ifedit - nee das ist mir auch mit Code Tags zu viel Arbeit...
Zitat von @60730:
> Die Befehlszeile lautet:
> C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 ""
CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
Ähh fehlt da nicht ein führendes "?
> Die Befehlszeile lautet:
> C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 ""
CTSDBOracleOciCursor -V "btw" "1.00.001" "368" -T 111.111.111.111 0 ""
Ähh fehlt da nicht ein führendes "?
Nein der Link nach der Installation sieht so aus.
Die Fehlermeldung kommt immer noch
Gruß
Thomas
Servus,
yupp...
Solange bis deine gewünschten Infos da angezeigt werden...
Die Fehlermeldung kommt immer noch
yupp...
edit - nee das ist mir auch mit Code Tags zu viel Arbeit...
msgbox Chr(34) & "C:\Pfad\Programm.exe -O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 " & Chr(34) & Chr(34) & " CTSDBOracleOciCursor -V " & Chr(34) & "btw" & Chr(34) & Chr(34) & "1.00.001" & Chr(34) & Chr(34) & "368" & Chr(34) & " -T 111.111.111.111 0 " & Chr(34) & Chr(34) Solange bis deine gewünschten Infos da angezeigt werden...
Hallo Thim001 und willkommen im Forum, hallo T-Mo!
Gelegentlich denken die bei MS sich sogar etwas dabei - etwa, wenn sie ein Property "Arguments" erfinden ...
... daher wäre vielleicht
einen Versuch wert (ich hab's jedenfalls nicht getestet).
Ach ja, bevor ich vergess' das zu erwähnen: Für Anführungszeichen unter Anführungszeichen gilt der alte Werbespruch "Nimm 2, dann klappt's auch mit dem Nachbarn", oder so ähnlich ...
Grüße
bastla
Gelegentlich denken die bei MS sich sogar etwas dabei - etwa, wenn sie ein Property "Arguments" erfinden ...
... daher wäre vielleicht
objShortcut.TargetPath = "C:\Pfad\Programm.exe"
objShortcut.Arguments = "-O CTSStartUp -R CTSStartUp -M 111.111.11.111 9988 -D 111.111.111.111 0 """" CTSDBOracleOciCursor -V ""btw"" ""1.00.001"" ""368"" -T 111.111.111.111 0 """" """" CTSDBOracleOciCursor -V ""btw"" ""1.00.001"" ""368"" -T 193.187.246.210 0 """"" Ach ja, bevor ich vergess' das zu erwähnen: Für Anführungszeichen unter Anführungszeichen gilt der alte Werbespruch "Nimm 2, dann klappt's auch mit dem Nachbarn", oder so ähnlich ...
Grüße
bastla
Hallo bastla,
Dein Tipp war die Lösung.
Danke
Thomas
Dein Tipp war die Lösung.
Danke
Thomas
