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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 111849
Url: https://administrator.de/forum/per-vbs-desktopverknuepfung-erstellen-111849.html
Ausgedruckt am: 08.07.2025 um 21:07 Uhr
2 Kommentare
Neuester Kommentar
sc.IconLocation = "Pfad zur Datei,Index des Icons"
Siehe auch msdn.microsoft.com/en-us/library/3s9bx7at(VS.85).aspx
Siehe auch msdn.microsoft.com/en-us/library/3s9bx7at(VS.85).aspx