Per VB Script eine Webverknüpfung erstellen

Hallo,
ich möchte per Script eine Verknüpfung auf dem Desktop erstellen.
Die Verknüpfung wird auch erstellt nur das gewünschte Icon wird nicht verbunden.

Noch als Anmerkung, das sind meine ersten Gehversuche mit Scripten.


Set objShell = WScript.CreateObject("WScript.Shell")
Desktop = objShell.SpecialFolders("Desktop")
Set objShortCut = objShell.CreateShortcut(Desktop & "\test.url")
objShortCut.TargetPath = "http://dwapp1/test/"

objShortCut.IconLocation = "P:\Update\Test \Icon.ico"

objShortCut.Save


Grüße