Hallo beste mensen,

Ik ben nu een tijdje bezig om op het bureaublad snelkoppelingen te krijgen en van programma's is het me gelukt maar het wilt niet lukken om de snelkoppeling van uit de configuratiescherm en printers via VBS op het bureaublad te krijgen.
Ik hoop dat iemand mij hierbij zou kunnen helpen.
alvast bedankt.


Set oWS = WScript.CreateObject("WScript.Shell")
UsrDesktop = Ows.SpecialFolders("Desktop")
sLinkFile = (UsrDesktop & "\Apparaten en printers.lnk")
Set oLink = oWS.CreateShortcut(sLinkFile)
    oLink.TargetPath = "control.exe"
   ' oLink.Arguments = ""
    'oLink.Description = "Printers en Apparaten | Hier kun je adruktaken van een printer verwijderen"   
    'oLink.HotKey = ""
   ' oLink.IconLocation = "%SystemRoot%\system32\shell32.dll, 34"
  '  oLink.WindowStyle = "3"   
  ' oLink.WorkingDirectory = "printers"
oLink.Save