#RequireAdmin ;-------------------------------------------------- DEBUT DU PROGRAMME -------------------------------------------------- ;Démarrage du programme. $Start = MsgBox (65, "POW10", "Ce soft va vous permettre de Paramétrer et d'Optimiser Windows 10" & @CRLF & @CRLF & "(Pour les utilisateurs avancés)") If $Start = 2 Then Sleep (200) MsgBox (64, "Annulation", "Vous avez annulé le programme de paramétrage et d'optimisation de Windows 10" & @CRLF & "Aucun changement n'a été apporté") Exit EndIf ;-------------------------------------------------- REGISTRE DIVERS -------------------------------------------------- ;Changement du nom de l'ordinateur. Sleep (200) $ChangePCname = Msgbox (36, "1/56 - Nom de l'ordinateur", "Voulez-vous changer le nom de l'ordinateur ?") If $ChangePCname = 6 Then Sleep (200) $NewPCname = InputBox ("Nom de l'ordinateur", "Saisissez le nouveau nom de l'ordinateur." & @CRLF & @CRLF & _ "(""aA"" à ""zZ"", ""0"" à ""9"", ""-"" ou ""_"", ne doit pas contenir que des chiffres. <63 caractères)" & @CRLF & @CRLF & _ "(Cancel pour ne rien changer)") If @error = 1 Then Sleep (200) MsgBox (64, "Aucune modification", "Le nom de l'ordinateur n'a pas été modifié") Sleep (200) EndIf Sleep (200) ShellExecuteWait ("Powershell.exe", "Rename-Computer -ComputerName $env:computername -NewName "& $NewPCname, "", "", @SW_HIDE) EndIf ;Changement du nom du groupe de travail. Sleep (200) $ChangeWGname = Msgbox (36, "2/56 - Nom du groupe de travail", "Voulez-vous changer le nom du groupe de travail ?") If $ChangeWGname = 6 Then Sleep (200) $NewWGname = InputBox ("Nom du groupe de travail", "Saisissez votre nouveau nom de groupe." & @CRLF & @CRLF & _ "(""aA"" à ""zZ"", ""0"" à ""9"", ""-"" ou ""_"". <15 caractères)" & @CRLF & @CRLF & _ "(Cancel pour ne rien changer)") If @error = 1 Then Sleep (200) MsgBox (64, "Aucune modification", "Le nom du groupe de travail n'a pas été modifié") Sleep (200) EndIf Sleep (200) ShellExecuteWait ("Powershell.exe", "Add-Computer -WorkGroupName " & $NewWGname, "", "", @SW_HIDE) Endif ;Réduction du niveau de l'UAC à 0. Sleep (200) $UAC = MsgBox (36, "3/56 - Contôle de compte utilisateur", "Voulez-vous réduire à 0 le niveau du contrôle du compte utilisateur (UAC) ?") If $UAC = 6 Then Sleep (200) RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "ConsentPromptBehaviorAdmin", "REG_DWORD", 0x00000000) Sleep (200) RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "PromptOnSecureDesktop", "REG_DWORD", 0x00000000) EndIf ;Modification de la bande passante réservée à Windows de 20% a 0%. Sleep (200) $Bandewidth = MsgBox (36, "4/56 - Bande passante", "Voulez-vous réduire la bande passante réservée à Windows ?") If $Bandewidth = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Psched", "NonBestEffortLimit", "REG_DWORD", 0x00000000) EndIf ;Activation du pavé numérique au démarrage. Sleep (200) $Numpad = MsgBox (36, "5/56 - Pavé numérique", "Voulez-vous activer le pavé numérique au démarrage ?" & @CRLF & @CRLF & _ "(Pensez à l'activer sur le clavier avant d'accepter)") If $Numpad = 6 Then Sleep (200) RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Keyboard", "InitialKeyboardIndicators", "REG_SZ", "2") Sleep (200) RegWrite("HKEY_CURRENT_USER\Control Panel\Keyboard", "InitialKeyboardIndicators", "REG_SZ", "2") EndIf ;Désactivation des partages administratifs. Sleep (200) $Share = MsgBox (36, "6/56 - Partages administratifs", "Voulez-vous désactiver les partages administratifs ?") If $Share = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "AutoShareWks", "REG_DWORD", 0x00000000) Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "AutoShareServer", "REG_DWORD", 0x00000000) EndIf ;Se rendre invisible sur le réseau. Sleep (200) $Hidden = MsgBox (36, "7/56 - Invisible sur le réseau", "Voulez-vous vous rendre invisible sur le réseau local ?") If $Hidden = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters", "Hidden", "REG_QWORD", 0x00000001) EndIf ;Désactivation de l'historique de l'explorateur Windows. Sleep (200) $History = MsgBox (36, "8/56 - Historique de recherche", "Voulez-vous désactiver l'historique de recherche de l'explorateur ?") If $History = 6 Then Sleep (200) RegWrite("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Explorer", "DisableSearchBoxSuggestions", "REG_DWORD", 0x00000001) EndIf ;Désactivation des espions du registre Windows. Sleep (200) $Spy = MsgBox (36, "9/56 - Espions du registre", "Voulez-vous désactiver les espions du registre ?") If $Spy = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\dmwappushservice", "Start", "REG_DWORD", 0x00000004) Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\DataCollection", "AllowTelemetry", "REG_DWORD", 0x00000000) EndIf ;Désactivation de l'assistance à distance de Windows. Sleep (200) $Gethelp = MsgBox (36, "10/56 - Assistance à distance", "Voulez-vous désactiver l'assistance à distance de Windows ?") If $Gethelp = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Remote Assistance", "fAllowToGetHelp", "REG_DWORD", 0x00000000) EndIf ;Optimisation pour les jeux. Sleep (200) $Games = MsgBox (36, "11/56 - Optimisation jeux", "Voulez-vous optimiser Windows pour les jeux ?") If $Games = 6 Then Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Multimedia\SystemProfile", "NetworkThrottlingIndex", "REG_DWORD", 0x0fffffff) Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Multimedia\SystemProfile", "SystemResponsiveness", "REG_DWORD", 0x00000000) Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Multimedia\SystemProfile\Tasks\Games", "GPU Priority", "REG_DWORD", 0x00000008) Sleep (200) RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Multimedia\SystemProfile\Tasks\Games", "Priority", "REG_DWORD", 0x00000006) EndIf ;Activation du thème sombre de Windows 10. Sleep (200) $Theme = MsgBox (36, "12/56 - Thème sombre", "Voulez-vous utiliser le thème sombre de Windows ?") If $Theme = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize", "AppsUseLightTheme", "REG_DWORD", 0x00000000) Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize", "SystemUsesLightTheme", "REG_DWORD", 0x00000000) EndIf ;Affichage de la confirmation de suppresion des fichiers vers la corbeille. Sleep (200) $Trash = MsgBox (36, "13/56 - Confirmation de suppression", "Voulez-vous afficher le message de confirmation de suppression de fichier à destination de la corbeille ?") If $Trash = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "ConfirmFileDelete", "REG_DWORD", 0x00000001) ;RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "ShellState", "REG_BINARY", Binary("0x240000003328000000000000000000000000000001000000130000000000000062000000")) EndIf ;Modification de la page d'accueil de l'explorateur Windows. Sleep (200) $Openexplorer = MsgBox (36, "14/56 - Accueil de l'explorateur", "Voulez-vous définir ""Ce PC"" comme page d'accueil par défaut de l'explorateur ?") If $Openexplorer = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "LaunchTo", "REG_DWORD", 0x00000001) EndIf ;Affichage du ruban d'options de l'explorateur. Sleep (200) $Ribbon = MsgBox (36, "15/56 - Ruban de l'explorateur", "Voulez-vous afficher le ruban d'options de l'explorateur ?") If $Ribbon = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Ribbon", "MinimizedStateTabletModeOff", "REG_DWORD", 0x00000000) EndIf ;Affichage des fichiers cachés. Sleep (200) $Hidefiles = MsgBox (36, "16/56 - Fichiers cachés", "Voulez-vous afficher les fichiers cachés ?") If $Hidefiles = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", 0x00000001) EndIf ;Affichage des extensions de fichiers. Sleep (200) $Ext = MsgBox (36, "17/56 - Extensions de fichiers", "Voulez-vous afficher les extensions de fichiers ?") If $Ext = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", 0x00000000) EndIf ;Désactivation de l'amélioration de la précision du pointeur de la souris. Sleep (200) $Mouse = MsgBox (36, "18/56 - Précision du pointeur", "Voulez-vous désactiver l'amélioration de précision du pointeur de la souris ?" & @CRLF & @CRLF & _ "(A désactiver dans le cadre des jeux type FPS)") If $Mouse = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Control Panel\Mouse", "MouseSpeed", "REG_SZ", "0") Sleep (200) RegWrite ("HKEY_CURRENT_USER\Control Panel\Mouse", "MouseThreshold1", "REG_SZ", "0") Sleep (200) RegWrite ("HKEY_CURRENT_USER\Control Panel\Mouse", "MouseThreshold2", "REG_SZ", "0") EndIf ;Désactivation de Cortana. Sleep (200) $Cortana = MsgBox (36, "19/56 - Cortana", "Voulez-vous désactiver Cortana ?") If $Cortana = 6 Then Sleep (200) RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Windows Search", "AllowCortana", "REG_DWORD", 0x00000000) EndIf ;Zone de notification toujours visible. Sleep (200) $Icontray = MsgBox (36, "20/56 - Zone de notification", "Voulez-vous afficher toutes les icônes de la zone de notification ?") If $Icontray = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", "EnableAutoTray", "REG_DWORD", 0x00000000) EndIf ;Utilisation des petits boutons dans la barre des tâches. Sleep (200) $Smalltaskbar = MsgBox (36, "21/56 - Petits boutons", "Voulez-vous utiliser des petits boutons dans la barre des tâches ?") If $Smalltaskbar = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "TaskbarSmallIcons", "REG_DWORD", 0x00000001) EndIf ;Ajout de l'icône de recherche dans la barre des tâches à la place de la barre. Sleep (200) $Searchbox = MsgBox (36, "22/56 - Icône de recherche", "Voulez-vous afficher l'icône de recherche dans la barre des tâches à la place de la barre ?") If $Searchbox = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Search", "SearchboxTaskbarMode", "REG_DWORD", 0x00000001) Endif ;Retrait de l'icône "affichage des tâches" de la barre des tâches. Sleep (200) $Taskview = MsgBox (36, "23/56 - Affichage des tâches", "Voulez-vous désactiver le bouton ""Affichage des tâches"" de la barre des tâches ?") If $Taskview = 6 Then Sleep (200) RegWrite ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowTaskViewButton", "REG_DWORD", 0x00000000) EndIf ;-------------------------------------------------- P.SHELL DIVERS -------------------------------------------------- ;Suppression des espions du planificateur de tâches. Sleep (200) $Plannedspy = MsgBox (36, "38/56 - Planificateur de tâches", "Voulez-vous supprimer les espions du planificateur" & @CRLF & "de tâches ?") If $Plannedspy = 6 Then Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Customer Experience Improvement Program\Consolidator""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Customer Experience Improvement Program\UsbCeip""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Customer Experience Improvement Program\Uploader""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Customer Experience Improvement Program\KernelCeipTask""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Application Experience\AitAgent""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Application Experience\Microsoft Compatibility Appraiser""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Application Experience\ProgramDataUpdater""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\DiskDiagnostic\Microsoft-Windows-DiskDiagnosticDataCollector""") Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\WDP\SqmUpload_S-1-5-21-3244633361-4016055161-2943779436-1000""") ;Uniquement sur LapTop Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Windows\Feedback\Siuf\DmClient""") Sleep (200) ;Les tâches suivantes sont pour les espions de Microsoft Office si celui-ci est déjà installé) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Office Genuine Advantage\OGAlogon""") ;(Office 2003\2007\2010) Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Office\Office ClickToRun Service monitor""") ;(Office 2013\2016) Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Office\Office TelemetryAgentFallBack2016""") ;(Office 2013\2016) Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\Microsoft\Office\Office TelemetryAgentLogOn2016""") ;(Office 2013\2016) Sleep (200) ShellExecuteWait ("SCHTASKS", "/delete /F /TN ""\OfficeSoftwareProtectionPlatform\SvcRestartTask""") ;(Office 2010) EndIf ;Amélioration du procédé TCP. Sleep (200) $TCP = MsgBox (36, "24/56 - TCP", "Voulez-vous améliorer le procédé TCP ?") If $TCP = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "netsh interface tcp set global autotuninglevel=disabled") EndIf ;-------------------------------------------------- P.SHELL UNINSTALL -------------------------------------------------- ;Désinstallation de "One Drive". Sleep (200) $Unonedrive = MsgBox (36, "25/56 - Désintallation d'App", "Voulez-vous désinstaller ""One Drive"" ?") If $Unonedrive = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "taskkill /f /im OneDrive.exe") Sleep (200) ShellExecuteWait ("Powershell.exe", "" & @WindowsDir & "\SysWOW64\OneDriveSetup.exe /uninstall") EndIf ;Désinstallation de l'app "Astuces". Sleep (200) $Ungetstarted = MsgBox (36, "26/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Astuces"" ?") If $Ungetstarted = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.Getstarted | Remove-AppxPackage") EndIf ;Désinstallation de l'app ""Courrier". Sleep (200) $Uncommunications = MsgBox (36, "27/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Courrier"" ?") If $Uncommunications = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.Windowscommunicationsapps | Remove-AppxPackage") EndIf ;Désinstallation de l'app "Films et TV". Sleep (200) $Unzunevideo = MsgBox (36, "28/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Films et TV"" ?") If $Unzunevideo = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.ZuneVideo | Remove-AppxPackage") EndIf ;Désinstallation de l'app "Groove Musique". Sleep (200) $Unzunemusic = MsgBox (36, "29/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Groove Musique"" ?") If $Unzunemusic = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.ZuneMusic | Remove-AppxPackage") EndIf ;Désinstallation de l'app "Hub de commentaires". Sleep (200) $Unfeedback = MsgBox (36, "30/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Hub de commentaires"" ?") If $Unfeedback = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.WindowsFeedbackHub | Remove-AppxPackage") EndIf ;Désinstallation de l'app "Météo". Sleep (200) $Unweather = MsgBox (36, "31/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Météo"" ?") If $Unweather = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.BingWeather | Remove-AppxPackage") EndIf ;Désintallation de l'app "Office". Sleep (200) $Unoffice = MsgBox (36, "32/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Office"" ?") If $Unoffice = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.MicrosoftOfficeHub | Remove-AppxPackage") EndIf ;Désinstallation de l'app "One Note". Sleep (200) $Unonenote = MsgBox (36, "33/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""One Note"" ?") If $Unonenote = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.Office.OneNote | Remove-AppxPackage") EndIf ;Désintallation de l'app "Portail de réalité mixte". Sleep (200) $Unmixedreality = MsgBox (36, "34/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Portail de réalité mixte"" ?") If $Unmixedreality = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.MixedReality.Portal | Remove-AppxPackage") EndIf ;Désinstallation de l'app "Skype". Sleep (200) $Unskype = MsgBox (36, "35/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Skype"" ?") If $Unskype = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.SkypeApp | Remove-AppxPackage") EndIf ;Désintallation de l'app "Visionneuse 3D". Sleep (200) $Un3dviewer = MsgBox (36, "36/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""Visionneuse 3D"" ?") If $Un3dviewer = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.Microsoft3DViewer | Remove-AppxPackage") EndIf ;Désintallation de l'app "XBOX". Sleep (200) $Unxbox = MsgBox (36, "37/56 - Désintallation d'App", "Voulez-vous désinstaller l'app ""XBOX"" ?") If $Unxbox = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Get-AppxPackage Microsoft.XboxApp | Remove-AppxPackage") EndIf ;-------------------------------------------------- P.SHELL UNSVC -------------------------------------------------- ;Désactivation du service Windows "Client de suivi de lien distribué". Sleep (200) $TrkWks = MsgBox (36, "39/56 - Service Windows", "Voulez-vous désactiver le service ""Client de suivi de lien distribué""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas les dossiers partagés)") If $TrkWks = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service TrkWks -StartupType Disabled") EndIf ;Désactivation du service Windows "Service de démo du magasin". Sleep (200) $RetailDemo = MsgBox (36, "40/56 - Service Windows", "Voulez-vous désactiver le service ""Service de démo du magasin""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas la fonctionnalité mode démo pour les magasins)") If $RetailDemo = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service RetailDemo -StartupType Disabled") EndIf ;Désactivation du service Windows "Configuration des services Bureau à distance". Sleep (200) $SessionEnv = MsgBox (36, "41/56 - Service Windows", "Voulez-vous désactiver le service ""Configuration des services Bureau à distance""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas la fonctionnalité Bureau à distance)") If $SessionEnv = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service SessionEnv -StartupType Disabled") EndIf ;Désactivation du service Windows "Services Bureau à distance". Sleep (200) $TermService = MsgBox (36, "42/56 - Service Windows", "Voulez-vous désactiver le service ""Services Bureau à distance""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas la fonctionnalité Bureau à distance)") If $TermService = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service TermService -StartupType Disabled") EndIf ;Désactivation du service Windows "Contrôle parental". Sleep (200) $WpcMonSvc = MsgBox (36, "43/56 - Service Windows", "Voulez-vous désactiver le service ""Contrôle parental""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas la fonctionnalité Contrôle parental)") If $WpcMonSvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service WpcMonSvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Service de capteur". Sleep (200) $SensorService = MsgBox (36, "44/56 - Service Windows", "Voulez-vous désactiver le service ""Service de capteur""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas de capteur de position (portrait / paysage))") If $SensorService = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service SensorService -StartupType Disabled") EndIf ;Désactivation du service Windows "Service téléphonique". Sleep (200) $PhoneSvc = MsgBox (36, "45/56 - Service Windows", "Voulez-vous désactiver le service ""Service téléphonique""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas d’emplacement pour carte SIM)") If $PhoneSvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service PhoneSvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Carte à puce". Sleep (200) $SCardSvr = MsgBox (36, "46/56 - Service Windows", "Voulez-vous désactiver le service ""Carte à puce""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas de lecteur de carte à puce)") If $SCardSvr = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service SCardSvr -StartupType Disabled") EndIf ;Désactivation du service Windows "Service d’énumération de périphériques de carte à puce". Sleep (200) $ScDeviceEnum = MsgBox (36, "47/56 - Service Windows", "Voulez-vous désactiver le service ""Service d’énumération de périphériques de carte à puce""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas de lecteur de carte à puce)") If $ScDeviceEnum = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service ScDeviceEnum -StartupType Disabled") EndIf ;Désactivation du service Windows "Stratégie de retrait de la carte à puce". Sleep (200) $SCPolicySvc = MsgBox (36, "48/56 - Service Windows", "Voulez-vous désactiver le service ""Stratégie de retrait de la carte à puce""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas de lecteur de carte à puce)") If $SCPolicySvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service SCPolicySvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Service de biométrie Windows". Sleep (200) $WbioSrvc = MsgBox (36, "49/56 - Service Windows", "Voulez-vous désactiver le service ""Service de biométrie Windows""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’a pas de lecteur d’empreintes)") If $WbioSrvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service WbioSrvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Netlogon". Sleep (200) $Netlogon = MsgBox (36, "50/56 - Service Windows", "Voulez-vous désactiver le service ""Netlogon""" & @CRLF & @CRLF & _ "(Désactivez si votre ordinateur n’est pas connecté à un contrôleur de domaine)") If $Netlogon = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service Netlogon -StartupType Disabled") EndIf ;Désactivation du service Windows "Service du clavier tactile et du volet d’écriture manuscrite". Sleep (200) $TabletInputService = MsgBox (36, "51/56 - Service Windows", "Voulez-vous désactiver le service ""Service du clavier tactile et du volet d’écriture manuscrite""" & @CRLF & @CRLF & _ "(Désactivez si votre écran n'est pas tactile)") If $TabletInputService = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service TabletInputService -StartupType Disabled") EndIf ;Désactivation du service Windows "Service Partage réseau du Lecteur Windows Media". Sleep (200) $WMPNetworkSvc = MsgBox (36, "52/56 - Service Windows", "Voulez-vous désactiver le service ""Service Partage réseau du Lecteur Windows Media""" & @CRLF & @CRLF & _ "(Désactivez si ne voulez pas partager les bibliothèques du lecteur Windows Media)") If $WMPNetworkSvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service WMPNetworkSvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Service Windows Insider". Sleep (200) $wisvc = MsgBox (36, "53/56 - Service Windows", "Voulez-vous désactiver le service ""Service Windows Insider""" & @CRLF & @CRLF & _ "(Désactivez si vous ne faites pas partie du programme Windows Insider)") If $wisvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service wisvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Service de géolocalisation". Sleep (200) $lfsvc = MsgBox (36, "54/56 - Service Windows", "Voulez-vous désactiver le service ""Service de géolocalisation""" & @CRLF & @CRLF & _ "(Désactivez si vous ne comptez pas utiliser la géolocalisation)") If $lfsvc = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service lfsvc -StartupType Disabled") EndIf ;Désactivation du service Windows "Service de prise en charge Bluetooth". Sleep (200) $bthserv = MsgBox (36, "55/56 - Service Windows", "Voulez-vous désactiver le service ""Service de prise en charge Bluetooth""" & @CRLF & @CRLF & _ "(Désactivez si vous n’utilisez pas de périphérique Bluetooth)") If $bthserv = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service bthserv -StartupType Disabled") EndIf ;Désactivation du service Windows "Registre à distance". Sleep (200) $RemoteRegistry = MsgBox (36, "56/56 - Service Windows", "Voulez-vous désactiver le service ""Registre à distance""" & @CRLF & @CRLF & _ "(Désactivez si vous ne modifiez pas le registre à distance)") If $RemoteRegistry = 6 Then Sleep (200) ShellExecuteWait ("Powershell.exe", "Set-Service RemoteRegistry -StartupType Disabled") EndIf ;-------------------------------------------------- FIN DU PROGRAMME-------------------------------------------------- ;Demande de redémarrage de fin. Sleep (200) $Restart = MsgBox (68, "Terminé", "Le paramétrage et l'optimisation de Windows 10 sont maintenant terminés." & @CRLF & "Un redémarrage est nécéssaire." & @CRLF & @CRLF & _ "Voulez-vous redémarrer maintenant ?") If $Restart = 6 Then Sleep (500) Shutdown (6) EndIf