Per Skript einen Link auf der Schnellstartleiste hinzufügen

Folgendes VBS-Skript erstellt einen Link auf der Schnellstartleiste:

On error resume next
Set objFSO = CreateObject(„Scripting.FileSystemObject“)
Set WshShell = WScript.CreateObject(„WScript.Shell“)
Set colEnvironmentVariables = WshShell.Environment(„Volatile“)
strQLFolder = colEnvironmentVariables.Item(„APPDATA“)
Set objURLShortcut = WshShell.CreateShortcut(strQLFolder & „\Microsoft\Internet Explorer\Quick Launch\holgerkoenig.com“ & „.lnk“)
objURLShortcut.TargetPath = http://www.holgerkoenig.com“
objURLShortcut.IconLocation = „c:\test\hk.ico“
objURLShortcut.Save

Hinterlasse eine Antwort