Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst temporärer vbs-Script zur Linkerstellung

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

01.02.2008, aktualisiert 19:18 Uhr, 4399 Aufrufe, 10 Kommentare

Hallo liebe Geminde, ich habe den Script hier im Forum gefunden. Wollte fragen ob es möglich ist damit mehrere Links zu erstellt ohne das ich den Script dauernd wiederholen muss. Habe es mit for schleife versucht aber scheinbar irgendwas falsch gemacht.

01.
@echo off & setlocal
02.
:BEGINN
03.
for /r %PFAD% %%f in (*.*) do (
04.
set "DATEI=%%f"
05.
set "PFAD=%USERPROFILE%\Desktop\TEST"
06.
set "LINK=%USERPROFILE%\Desktop\TEST\%PFAD%.lnk"
07.
) 
08.
echo Set objShell=WScript.CreateObject("Wscript.Shell")>%temp%\MakeShortCut.vbs
09.
echo Set objShortcut=objShell.CreateShortcut("%LINK%")>>%temp%\MakeShortCut.vbs
10.
echo objShortcut.TargetPath="%PFAD%\%DATEI%">>%temp%\MakeShortCut.vbs
11.
echo objShortcut.WorkingDirectory="%PFAD%">>%temp%\MakeShortCut.vbs
12.
echo objShortcut.Save>>%temp%\MakeShortCut.vbs
13.
cscript //nologo %temp%\MakeShortCut.vbs
14.
del %temp%\MakeShortCut.vbs
15.
goto :BEGINN
Von vbs hab ich noch so gut wie überhaupt keine Ahnung, aber auch wenn den Teil mit in die Klammer packe wird nur eine Datei benannt und die Variable "DATEI" wird auch nicht gefunden.

Alternativ habe ich noch eine möglichkeit mit der rundll32 entdeckt:

01.
RunDLL32 AppWiz.Cpl,NewLinkHere %1
Aber hier weiss ich nicht wie es und ob es automatisch anblaufen kann. Habe versucht noch was anzuhängen aber auch nach langer suche keine Beispiele zum erweitern gefunden.

Gruß waldgnarf



[Edit Biber] Auf <code> formatiert.[/Edit]
Mitglied: miniversum
01.02.2008 um 14:14 Uhr
Versuchs mal so:
01.
@echo off & setlocal
02.
 
03.
set "PFAD=%USERPROFILE%\Desktop\TEST"
04.
 
05.
for /r %PFAD% %%f in (*.*) do call:MakeShortCut "%%f"
06.
)
07.
del %temp%\MakeShortCut.vbs
08.
goto:eof
09.
 
10.
:MakeShortCut 
11.
set "DATEI=%%~1"
12.
set "LINK=%USERPROFILE%\Desktop\TEST\%%~n1.lnk"
13.
 
14.
echo Set objShell=WScript.CreateObject("Wscript.Shell")>%temp%\MakeShortCut.vbs
15.
echo Set objShortcut=objShell.CreateShortcut("%LINK%")>>%temp%\MakeShortCut.vbs
16.
echo objShortcut.TargetPath="%PFAD%\%DATEI%">>%temp%\MakeShortCut.vbs
17.
echo objShortcut.WorkingDirectory="%PFAD%">>%temp%\MakeShortCut.vbs
18.
echo objShortcut.Save>>%temp%\MakeShortCut.vbs
19.
cscript //nologo %temp%\MakeShortCut.vbs
miniversum
Bitte warten ..
Mitglied: rubberduck
01.02.2008 um 14:15 Uhr
Bitte mach eine Trennung, von dem Teil den Du gemacht hast und dem Teil den Du gefunden hast (Ist etwas einfacher zum Analysieren).

Und schliess das CODE-Tag mit <> und nicht mit [] ein.

...ohne das ich den Script dauernd wiederholen muss. Habe es mit for schleife versucht...
Was ist eine Schleife anderes als ein Wiederholung?
Bitte warten ..
Mitglied: waldgnarf
01.02.2008 um 15:12 Uhr
Danke für die Hilfe aber es kommt die Meldung ("und" ist syntaktisch an dieser Stelle nicht verarbeitbar.) es kommt auch keine Link-Datei.

@rubberduck
sry werd das nächste mal machen.
Wenn ich den vbs-Script nicht jedesmal für insgesamt 20 Datein einzeln wiederholen muss sondern nur die Variable "DATEI" neu zuweisen, und das ist ja nur ein kleiner Teil meiner Batch das ganze wird wesendlich leichter auch in andere Ordner wenn ich nur die Variablen ändern muss.
Bitte warten ..
Mitglied: rubberduck
01.02.2008 um 15:52 Uhr
Ich bekomme gleich ein Kind...
Wie kommst Du auf einzeln wiederholen?

Der Batch muss eh ausgeführt werden, um das VBS zu erstellen.
Wieso nicht von Anfang an alles in einem VBS?
Du wirst es wahrscheinlich kaum glauben, aber mit VBScript kann man auch Variablen verwenden.

Statt ein ErstellMirEinenLink.BAT zu machen der ein MachIchChef.VBS erstellt, ausführt und am Schluss wieder löscht kannst Du ja ein IchMacheAllesChef.VBS machen (mit Variablen )
Bitte warten ..
Mitglied: bastla
01.02.2008 um 16:02 Uhr
Hallo waldgnarf!

Bei der folgenden (ungetesteten) Variante wird das VBScript nur einmal erstellt und verwendet dann die beim Aufruf übergebenen Parameter:
01.
@echo off & setlocal
02.
set "PFAD=%USERPROFILE%\Desktop\TEST"
03.
 
04.
set M=%temp%\MakeShortCut.vbs
05.
echo Set objArgs=WScript.Arguments>%M%
06.
echo Set objShell=WScript.CreateObject("WScript.Shell")>>%M%
07.
echo Set objShortcut=objShell.CreateShortcut(objArgs(1))>>%M%
08.
echo objShortcut.TargetPath=objArgs(2)^&"\"^&objArgs(0)>>%M%
09.
echo objShortcut.WorkingDirectory=objArgs(2)>>%M%
10.
echo objShortcut.Save>>%M%
11.
 
12.
for /r %PFAD% %%f in (*.*) do call:MakeShortCut "%%f"
13.
 
14.
del %M%
15.
goto:eof
16.
 
17.
:MakeShortCut 
18.
set "DATEI=%%~1"
19.
set "LINK=%USERPROFILE%\Desktop\TEST\%%~n1.lnk"
20.
cscript //nologo  %M% "%DATEI%" "%LINK%" "%PFAD%"
Zum Thema "vbs-Script nicht jedesmal für insgesamt 20 Datein einzeln wiederholen": Ich nehme an, dass damit das wiederholte Erstellen des Scripts gemeint war, denn ausführen musst Du es natürlich für jede einzelne Datei.

Grüße
bastla
Bitte warten ..
Mitglied: waldgnarf
01.02.2008 um 17:08 Uhr
Dann müsste ich ja die ganze Batch die schon zu 70% fertig ist in vbs (von was ich noch 0plan habe) umschreiben. Der Teil mit dem Links erstellen ist ja nur ein Schnipsel.

Ich dachte mir auch das es nicht anders geht aber dann wollt ich wenigstens den vbs-temp teil nur einmal rein setzen, darum das mit "for".
Habe keinen schimmer warum und was versuchen kann aber es kommt immer noch ("und" ist syntaktisch an dieser Stelle nicht verarbeitbar.)

Gruß waldgnarf
Bitte warten ..
Mitglied: bastla
01.02.2008 um 17:21 Uhr
Hallo waldgnarf!

Hinsichtlich des Fehler sollte es helfen, wenn Du in der Zeile
01.
for /r %PFAD% %%f in (*.*) do call:MakeShortCut "%%f"
auch die Variable %PFAD% unter Anführungszeichen setzt, also:
01.
for /r "%PFAD%" %%f in (*.*) do call:MakeShortCut "%%f"
Dann müsste ich ja die ganze Batch die schon zu 70% fertig ist in vbs (von was ich noch 0plan habe) umschreiben.
Keineswegs - der VBS-Teil ist ja in den Batch integriert.

Grüße
bastla
Bitte warten ..
Mitglied: waldgnarf
01.02.2008 um 18:10 Uhr
Ist mir enfallen sry, das hilft mir jetzt schon sehr weiter.
Noch eine letzte Frage: ist es möglich den Dateinamen ohne Endung auch automatisch mit zu übernehmen?
Bitte warten ..
Mitglied: bastla
01.02.2008 um 18:50 Uhr
Hallo waldgnarf!

... Dateinamen ohne Endung auch automatisch mit zu übernehmen?
Wohin willst Du ihn übernehmen? In eine Variable schreiben kannst Du ihn im Programmteil ":MakeShortCut" mit
01.
set "Dateiname=%%~n1"
Grüße
bastla
Bitte warten ..
Mitglied: waldgnarf
01.02.2008 um 19:18 Uhr
Ok, Danke

Gruß waldgnarf
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Vbs Script Hilfe
gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

Entwicklung
VBS Script in Powershell aufrufen
gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Neue Wissensbeiträge
iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 11 StundeniOS2 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 2 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 2 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Sicherheit

MikroTik: Sicherheitslücke wird ausgenutzt obwohl ein Update seit langem verfügbar ist

Information von sabines vor 3 TagenSicherheit

Obwohl ein Update, dass die nun massenhaft ausgenutzte Lücke schließt, seit langem (März 2018) verfügbar ist, wird es offensichtlich ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
Frage von gabeBUExchange Server16 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Rechtliche Fragen
Systemhaus auf Abwegen
Frage von rocco61Rechtliche Fragen15 Kommentare

Hallo zusammen, bin derzeit ratlos bei dem folgenden Scenario: In einen Seniorenheim wurde beschlossen, die IT an eine andere ...

Server
Server in zwei verschiedene Netzwerke einbinden
Frage von BennyFServer10 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Outlook & Mail
Kalendersync mit Android und Outlook
Frage von Stefan007Outlook & Mail9 Kommentare

Hi Leute, kennt jemand eine Möglichkeit um Termine zwischen installiertem Outlook auf dem PC und dem Kalender auf einem ...