Ein ehemaliger Arbeitskollege hat das mal geschrieben.

Ich denke er hat nichts dagegen, wenn es mehr leuten zu nütze wird.

View source
  1. #Create Shortcut PS V1.1
  2. #M. Kuschel 14.11.2012
  3.  
  4. $wshell = New-Object -comObject WScript.Shell
  5. $AllUsersProgramsPath = $wshell.SpecialFolders.Item('AllUsersPrograms')
  6.  
  7. #Set Shortcut Folder
  8. $spath = $AllUsersProgramsPath + "\OCP"
  9.  
  10. if (!(Test-Path -path $spath))
  11. {
  12.     New-Item $spath -type directory
  13. }
  14.  
  15. $link = $wshell.CreateShortcut("$spath\OCP.lnk")        
  16. $link.TargetPath = 'C:\Sisban\SisBan.exe'        
  17. $link.Description = 'starts OCP'        
  18. $link.WorkingDirectory = 'C:\Sisban'            
  19. $link.IconLocation = 'C:\Sisban\SisBan.exe'        
  20. $link.Save()