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 Anlegen von Verknüpfungen per Script

Mitglied: SarekHL

SarekHL (Level 3) - Jetzt verbinden

02.08.2009, aktualisiert 21:27 Uhr, 4625 Aufrufe, 3 Kommentare

Hallo zusammen,

ich möchte Verknüpfungen per Batch erstellen. Die Quellangaben habe ich in einer Excel-Tabelle, kann sie aber auch in eine Textdatei exportieren. Relevant sind drei Felder, nennen wir sie
Gruppe
Ziel
Klartextname

Nun nehmen wir an, ich habe einen Ordner C:\Links in den die Verknüpfungen geschrieben werden sollen, dann gilt: Es soll eine Verknüpfung mit dem Namen Klartextname angelegt werden, die zu Ziel führt. Gespeichert wird diese Verknüpfung in c:\Links\ Gruppe\

Wie kann das gehen? Es darf auch gerne VB6-Code sein ...



Danke,
André
Mitglied: WiSch
02.08.2009 um 12:24 Uhr
Hallo.

Vielleicht helfen dir das MS-Tool Shortcut? Infos Download
Bitte warten ..
Mitglied: LotPings
03.08.2009 um 14:53 Uhr
Zitat von WiSch:
Vielleicht helfen dir das MS-Tool Shortcut?
Infos
Download

Infos bezieht sich auf ein anderes Programm mit abweichenden Parametern.

@André
Im Titel schreibst du Script im Text Batch. Das ist nicht unbedingt das Gleiche

Für dich wäre ein Vbscript welches die Daten direkt aus der Excel-Datei liest die eleganteste Lösung.

Mit der Methode CreateShortCut kannst du zwar auch Verknüpfungen erzeugen, aber ich bin nicht sicher ob du URL Textdateien meinst. bei diesem nur teilweise getesteten Script sind beide Optionen enthalten
01.
02.
Dim xl_Datei, xl_Cells, MyLnk, MyBase, UrlFile, txf 
03.
xl_Datei = "C:\Test\Favoriten.xls" 
04.
xl_Cells = "[Tabelle1$A2:C3]" 
05.
MyBase = "C:\Test\" 
06.
 
07.
Dim oWSH :Set oWSH  = WScript.CreateObject("WScript.Shell") 
08.
Dim oFSys:Set oFSys = CreateObject("Scripting.FileSystemObject") 
09.
Dim oConn:Set oConn = CreateObject("ADODB.Connection") 
10.
Dim oRecS:Set oRecS = CreateObject("ADODB.Recordset") 
11.
 
12.
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0" & _ 
13.
  ";Data Source=" & xl_Datei & _ 
14.
  ";Extended Properties=""Excel 8.0;HDR=No;"";" 
15.
oRecS.Open "Select * from " & xl_Cells, oConn, 3, 3, 1 
16.
 
17.
' Spalte A Field 0 = Gruppe 
18.
' Spalte B Field 1 = Ziel 
19.
' Spalte C Field 2 = Klartextname 
20.
 
21.
Do Until oRecS.EOF 
22.
  CreateUrl oRecS.Fields(0).Value, oRecS.Fields(1).Value, oRecS.Fields(2).Value 
23.
' CreateLnk oRecS.Fields(0).Value, oRecS.Fields(1).Value, oRecS.Fields(2).Value 
24.
  oRecS.MoveNext 
25.
Loop 
26.
 
27.
oRecS.Close 
28.
oConn.Close 
29.
 
30.
Sub CreateUrl(Gruppe, Ziel, Klartextname) 
31.
  wscript.echo "URL:" & Gruppe & vbTab & Ziel & vbTab & Klartextname 
32.
  Set txf = oFSys.CreateTextFile(MyBase & Gruppe & "\" & Klartextname & ".url", True) 
33.
  txf.WriteLine "[DEFAULT]" 
34.
  txf.WriteLine "BASEURL=" & Ziel 
35.
  txf.WriteLine "[InternetShortcut]"  
36.
  txf.WriteLine "URL=" & Ziel 
37.
' txf.WriteLine "IconFile=" 
38.
' txf.WriteLine "IconIndex=1" 
39.
  txf.close 
40.
End Sub 
41.
 
42.
Sub CreateLnk(Gruppe, Ziel, Klartextname) 
43.
  wscript.echo "LNK:" & Gruppe & vbTab & Ziel & vbTab & Klartextname 
44.
  Set MyLnk = oWSH.CreateShortcut( _ 
45.
    MyBase & Gruppe &" \" & Klartextname & ".lnk") 
46.
  with MyLnk  
47.
    .TargetPath = Ziel 
48.
    .Description = KlartextName 
49.
'   .WindowStyle = 4 
50.
'   .Hotkey =  
51.
'   .IconLocation = 
52.
'   .WorkingDirectory = 
53.
'   .Arguments = 
54.
    .Save 
55.
  End with 
56.
  Set MyLnk = Nothing 
57.
End Sub
Gruß
LotPings
Bitte warten ..
Mitglied: SarekHL
03.08.2009 um 15:02 Uhr
Infos bezieht sich auf ein anderes Programm mit
abweichenden Parametern.

Habe ich auch festgestellt, aber bei dem Programm war eine README mit den richtigen Parametern bei.


Für dich wäre ein Vbscript welches die Daten direkt aus
der Excel-Datei liest die eleganteste Lösung.
...

Danke für die Mühe, aber ich habe inzwischen eine Lösung mit dem Shortcut-Programm gebastelt. Mit VB-Script kenne ich mich nicht so aus, ich bastle mit in der Regel Programme mit VB6. Habe ich in diesem Fall auch getan, ein kleines VB-Programm, welches die Infos aus einer CSV-Datei ausliest und jedesmal die Daten an das Shortcut-Programm übergibt. Hat super funktioniert.

Sicher ist Deine Lösung eleganter, aber da ich das Programm nur einmalig gebraucht habe, um 600 Shortcuts anzulegen, kommt es auf Eleganz nicht an.

Trotzdem Danke (natürlich auch an WiSch) ...
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Verknüpfungen auf einen Ordner mit Batch anlegen

gelöst Frage von ActaresBatch & Shell6 Kommentare

Neuer Tag - Neues Problem ;) Ausgangslage: Ich habe zwei Daten Server: Projektleitung und Finanzen / Vertrieb. Mit einer ...

Batch & Shell

In Windows eine Verknüpfung bis zum Zielordner an einem Android-Smartphone anlegen

Frage von evinbenBatch & Shell5 Kommentare

Hallo! Bei bestimmten Projekten muss ich häufig auf einen und denselben Ordner auf meinem Smartphone über USB zugreifen und ...

Batch & Shell

Script zum Kopieren einer Datei in mehren unterschiedlichen Ordner über eine Verknüpfung

gelöst Frage von KnuefiBatch & Shell12 Kommentare

Hallo zusammen, ich benötige mal wieder euren fachmännischen Rat. Ich benötige ein Script das mir eine Datei (unterschiedliche Namen, ...

Batch & Shell

Flache Ordnerstruktur : Verknüpfung zu allen Unterordnern anlegen mit dem gleichen Namen wie die Unterordner haben, wie macht man das?

Frage von mjimmyBatch & Shell3 Kommentare

Hallo an Alle und herzlichen Dank fürs Lesen Wir haben in unserer Firma das Problem, dass manche User dazu ...

Neue Wissensbeiträge
Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 45 MinutenAdministrator.de Feedback4 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 17 StundenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 1 TagSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...