Hallo Ihr Profis!
Wir steigen demnächst von Windows 7 auf Windows 10 um und ich möchte meinen Lieben die wichtigsten Links in eine Mappe auf den Desktop legen. Dazu habe ich folgendes Script angefangen, was auch pauschal schon funktioniert, nur leider fehlen mir die Icons.
Hier mein Code:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.15.0 (Beta)
Author: Mike
Script Function:
- Erzeugt wichtige Links in einer Mappe auf dem Desktop
#ce ----------------------------------------------------------------------------
Opt("MustDeclareVars", 1)
; Mappe auf dem Desktop anlegen
Global $Mappe = @DesktopDir & "\wichtige Progamme\"
If Not FileExists($Mappe) Then
If Not DirCreate($Mappe) Then
MsgBox(16 + 262144, "Fehler:", "Mappe/Verzeichnis" & @CRLF & " " & $Mappe & @CRLF & "konnte nicht erzeugt werden!")
EndIf
EndIf
; FileCreateShortcut ( "file", "lnk" [, "workdir" [, "args" [, "desc" [, "icon" [, "hotkey" [, icon number [, state]]]]]]] )
; Windows Defender - alt
If Not FileCreateShortcut("C:\Program Files\Windows Defender\MSASCui.exe", $Mappe & "Windows Defender (alt)" & ".lnk", @UserProfileDir, "", "Windows Defender mit alte GUI") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows Defender Alt")
EndIf
; Windows Defender - neu
If Not FileCreateShortcut("ms-settings:windowsdefender", $Mappe & "Windows Defender (neu)" & ".lnk", @UserProfileDir, "", "Windows Defender mit neuer GUI") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows Defender Neu")
EndIf
; Windows-Update - Hauptseite
If Not FileCreateShortcut("ms-settings:windowsupdate", $Mappe & "Windows-Update - Hauptseite" & ".lnk", @UserProfileDir, "", "Windows-Update Hauptseite") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows-Update Hauptseite")
EndIf
; Windows-Update - Nach Updates suchen
If Not FileCreateShortcut("ms-settings:windowsupdate-action", $Mappe & "Windows-Update - Nach Updates suchen" & ".lnk", @UserProfileDir, "", "Windows-Update - Nach Updates suchen") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows-Update - Nach Updates suchen")
EndIf
; Microsoft Store - Hauptseite
If Not FileCreateShortcut("ms-windows-store://home", $Mappe & "Microsoft Store - Hauptseite" & ".lnk", @UserProfileDir, "", "Microsoft Store Hauptseite") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Microsoft Store Hauptseite")
EndIf
; Microsoft Store - Download & Updates
If Not FileCreateShortcut("ms-windows-store://downloadsandupdates", $Mappe & "Microsoft Store - Download & Updates" & ".lnk", @UserProfileDir, "", "Microsoft Store - Download & Updates") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Microsoft Store - Download & Updates")
EndI
Alles anzeigen
Leider sind die neuen Aufrufe keine Exe mehr und somit fehlt jeweils ein passendes Icon. Ich weiß, daß ich FileCreateShortcut optional eine Icon-Datei angeben kann, aber leider finde ich die passende dll-Datei in Windows 10 zu den original Icons nicht.
Im Start-Menü gibt es ein "Microsoft Store". Diesen Link kann ich auf den Schreibtisch kopieren und der besitzt auch ein Icon, aber ich kann weder den Pfad zum Programm, noch zum Icon daraus ermitteln. Geht das irgendwie?
Ich würde mich um zielführende Hilfe sehr freuen!
Habt Dank!
Mike