VBScript für Desktopshortcut

[Atwyl 10]

Hallo zusammen.

 

ich habe eine interne Telefonliste zusammengestellt und sie auf meinen Server abgelegt. Nun möchte ich den Usern einen Eintrag in Ihren Favoritenordner und eine Desktopverknüpfung für diese Seite erstellen.

Mit diesen PDF (http://mypage.bluewin.ch/eaglesoft/download/vbs/deployshortcuts.pdf) habe ich mir mein Script zusammengestellt.

 

Script

------------------------------------------------------

 

[Definition]

'Shortcut für Telefonverzeichnis auf DC

UID=Telefonlist01

Action=Deploy

DisplayName=Telefonverzeichnis

Description="Internes Telefonverzeichnis"

Type=URL

Command=http://dc/telefonverzeichnis.html

Icon=\\dc\viewer\modem.ico

Target=AllUserDesktop+QuickLaunch

TargetSubDir=none

[Definition]

[END]

 

------------------------------------------------------

 

Wenn ich das Script starte bekomme ich den Fehler das eine Anweisung in Zeile 7 Zeichen 1 erwartet wird. Fehlercode 800A0400.

 

Hat jemand eine Idee was die Ursache sein könnte.

 

 

Gruß Atwyl

[Das Urmel 10]

Das was du da präsentiert hast ist kein Script.

[Atwyl 10]

Wie kann ich der Verknüpfung ein bestimmtes Symbol zuordnen? Entweder eine .ico Datei oder ein Symbol aus der %SystemRoot%\system32\SHELL32.dll ?

 

Script sieht so aus:

 

Dim WSHShell, fs

Set WSHShell = WScript.CreateObject("WScript.Shell")

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

Function MakeDesktopShortcut( name, target )

Dim Shortcut,DesktopPath,StartupPath

DesktopPath = WSHShell.SpecialFolders("Desktop")

Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" &name & ".lnk")

Shortcut.TargetPath = target

StartupPath = fs.GetParentFolderName( target )

If fs.FolderExists( StartupPath ) then

Shortcut.WorkingDirectory = StartupPath

End If

Shortcut.Save

End Function

MakeDesktopShortcut "Telefon", "http:\\Dc\telefon\Telefonverzeichnis RZW.html"

[sonnenbb 10]

hi

 

wenn mich ncihts täuscht, dann sollte der fehler in dieser zeile liegen.

Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" &name & ".lnk")

 

 

setze mal ganz oben, bei DIm noch Shortcut hinzu.

ist ähnlich c++ oder so wo man die variablen deklarieren muss. was aber nicht zwingend ist.

 

also DIM Shortcut

 

hoffe das es damit erledigt ist

WSH und VB Script, tolle Sache sage ich nur ;)

 

grüße

[Operator 10]

Hi,

 

du hättest die PDF ganz lesen sollen :)

Das was Du hier abgedruckt hast ist eine Definitionsdatei für ein VBScript, daß man sich bestimmt auch dort herunterladen kann. Die Datei, die Du dann erstellst, dient als Input für das VBScript, um Verknüpfungen zu erstellen.

 

Gruß

Andre