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
5 Antworten
- LÖSUNG 60730 schreibt am 10.10.2011 um 13:28:18 Uhr
- LÖSUNG Thom001 schreibt am 10.10.2011 um 13:49:29 Uhr
- LÖSUNG 60730 schreibt am 10.10.2011 um 14:23:22 Uhr
- LÖSUNG Thom001 schreibt am 10.10.2011 um 13:49:29 Uhr
- LÖSUNG bastla schreibt am 10.10.2011 um 20:36:48 Uhr
- LÖSUNG Thom001 schreibt am 11.10.2011 um 10:54:25 Uhr
LÖSUNG 10.10.2011 um 13:28 Uhr
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 If
LÖSUNG 10.10.2011 um 13:49 Uhr
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
LÖSUNG 10.10.2011 um 14:23 Uhr
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)
LÖSUNG 10.10.2011 um 20:36 Uhr
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