per VBS Desktopverknüpfung erstellen

Hi,

folgende Frage:

welchen vbs Befehl muss ich zu dem Script noch hinzufügen, dass ich ein bestimmtes Symbol für diese Verknüpfung bekomme?


Option explicit

dim objdomain
dim group
dim oGroups
dim oGroup
dim user
dim domain
dim WSHNetwork
dim fso
dim WshShell
dim sc

'on error resume next
set WSHNetwork = Wscript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")


user = WSHNetwork.UserName
domain = WSHNetwork.UserDomain

Set oGroups = GetObject("WinNT://" & domain & "/" & user)

For Each oGroup in oGroups.Groups

if oGroup.Name = "Gruppe DPW" then
set sc = WshShell.Createshortcut(WshShell.SpecialFolders("DESKTOP") & "\V8P DPW.lnk")
sc.arguments = "-ininame C:\dpw_v8p\dpw_data\dpwrun.ini -pf C:\dpw_v8p\dpw_data\dpwrun.pf -p p-a000.r"
sc.targetpath = "\\SDB02\dpw\progress\dlc101\bin\prowin32.exe"
sc.workingdirectory = "C:\dpw_v8p\work"
sc.save
end if
next

WScript.Quit


Vielen Dank für euren Rat im vorhinein
ONEIL