Jump to content

Startmenü - Verknüpfung - Target


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo gemeinde,

ich versuche unter Windows 7 im Startmenü eine Verknüpfung, Verlinkung zu erstellen, die auch im Startmenü sich öffnet und trotz Dem auf ein Verzeichnis im Intranet verweist.

 

Ort des Originals:

"\\server01\online\startmenu\serveranwendungen"

Das Verzeichnis "serveranwendungen" soll eben bei den Usern im Startmenü als Verknüfung unter

"C:\ProgramData\Microsoft\Windows\Start Menu"

erscheinen.

 

Doch verschiebe ich die Quelle in das Zielverzeichnis mit der rechten Maustaste und führe "Verknüpfung hier erstellen" aus, so wird diese Verknüpfung:

a) Im Datei Explorer richtig angezeigt und auch als Verknüpfung geöffnet. :thumb1:

b) :thumb2:Im Startmenü als Ordner geöffnet mit dem "target"-Ordner als Inhalt. Erst das ist die Verküpfung. UND dann geht noch ein Fenster auf beim betätigen von "target". Es soll aber alles im Startmenü angezeigt werden und das ohne dieses angezeigte "target".

 

Führe ich aber dieses VB-Script aus, das ich mir persönlich aus dem Internet geholt habe ;) dann:

a) Im Datei Explorer wird es richtig angezeigt und auch als Verknüpfung geöffnet. :thumb1:

b) :thumb2:Im Startmenü als Ordner geöffnet mit Inhalt"(Leer)".

Script:

Const CONST_HIDDEN = 2
Const CONST_SYSTEM = 4

Const Target = "\\server01\online\startmenu\serveranwendungen"
Const SName = "C:\ProgramData\Microsoft\Windows\Start Menu\serveranwendungen"

Dim oshshell
Dim newShortcut
Dim fsObject
Dim newFolder
Dim newINI

Set oshshell = WScript.CreateObject("Wscript.shell")
Set fsObject = CreateObject("Scripting.FileSystemObject")

fsObject.CreateFolder(SName)
Set newFolder = fsObject.GetFolder(SName)
newFolder.Attributes = CONST_SYSTEM

Set newINI = fsObject.CreateTextFile(SName & "\desktop.ini", True)
newINI.WriteLine "[.ShellClassInfo]"
newINI.WriteLine "CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}"
newINI.WriteLine "Flags=2"
newINI.WriteLine "ConfirmFileOp=0"
newINI.Close
Set newINI = fsObject.GetFile(SName & "\desktop.ini")
newINI.Attributes = (CONST_SYSTEM + CONST_HIDDEN)

Set newShortcut = oshshell.CreateShortcut(SName & "\target.lnk")
newShortcut.TargetPath = Target
newShortcut.Save
Set newShortcut = fsObject.GetFile(SName & "\target.lnk")
newShortcut.Attributes = (CONST_HIDDEN)

Set newShortcut = Nothing
Set oshshell = Nothing
Set fsObject = Nothing
Set newFolder = Nothing
Set newINI = Nothing

 

 

:suspect: :confused: Was tun sagte ich mir und erstellte diesen Beitrag :D

VG

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...