Windows 8 : créer des boutons Redémarrer et Eteindre

Ouvrez le bloc-notes de Windows et copiez-y le code indiqué dans l’encadré ci-dessous. Déroulez ensuite le menu Fichier, Enregistrer Sous, puis dans Type, sélectionnez Tous les Fichiers. Saisissez comme nom du fichier ICONES.VBS et placez-le sur le Bureau. Double-cliquez ensuite sur le fichier. Le tour est joué ! Il n’y a plus qu’à placer les boutons où l’on veut sur l’écran Démarrer de Windows 8.

Script d’ajout de deux boutons Redémarrer/Eteindre dans l’écran démarrer

r = MsgBox(“Voulez-vous installer les boutons dans l’écran Démarrer”,1,”Windows 8″)

if r = 1 then

set WShell = WScript.CreateObject(“WScript.Shell”)

StartMenuPath = WShell.SpecialFolders(“StartMenu”)

set oLink = WShell.CreateShortcut(StartMenuPath & “Redémarrer PC.lnk”)

oLink.TargetPath = “%systemroot%System32shutdown.exe”

oLink.Arguments = “-r -t 0”

oLink.WindowStyle = 1

oLink.WorkingDirectory = “%systemroot%System32”

oLink.IconLocation = “%systemroot%System32shell32.dll,238”

oLink.Description = “Redémarrer PC”

oLink.Save

Set oLink = Nothing

set oLink = WShell.CreateShortcut(StartMenuPath & “Éteindre PC.lnk”)

oLink.TargetPath = “%systemroot%System32shutdown.exe”

oLink.Arguments = “-s -t 0”

oLink.WorkingDirectory = “%systemroot%System32”

oLink.IconLocation = “%systemroot%System32shell32.dll,27”

oLink.Description = “Eteindre PC”

oLink.WindowStyle = 1

oLink.Save

MsgBox “Les raccourcis ont été créés dans le répertoire…” + vbcrlf + StartMenuPath

Else

MsgBox “Les raccourcis n’ont pas été créés…”

End If

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.

Opera One - Navigateur web boosté à l’IA

Par : Opera

Télécharger gratuitement

Loïc Duval