oneil8888

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
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 111849

Url: https://administrator.de/forum/per-vbs-desktopverknuepfung-erstellen-111849.html

Ausgedruckt am: 08.07.2025 um 21:07 Uhr

AndreasHoster
AndreasHoster 19.03.2009 um 11:38:49 Uhr
sc.IconLocation = "Pfad zur Datei,Index des Icons"
Siehe auch msdn.microsoft.com/en-us/library/3s9bx7at(VS.85).aspx
ONEIL8888
ONEIL8888 19.03.2009 um 15:52:40 Uhr
Vielen Dank, pfeift!

/gelöst