Rif: Windows 8 Tricks
arresta, riavvia, disconnetti nello Start Screen
per avere i collegamenti di spegnimento, riavvio e disconnessione [quest'ultima opzione manca] alla Start Screen
-> rendere visibili le estensioni -> aprire il Blocco Note -> incollare il codice seguente
set WshShell = WScript.CreateObject("WScript.Shell")
strStartMenu = WshShell.SpecialFolders("StartMenu")
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\Shutdown.lnk")
oShellLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oShellLink.Arguments = "-s -t 0"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%systemroot%\System32\shell32.dll,27"
oShellLink.Description = "Shutdown Computer (Power Off)"
oShellLink.WorkingDirectory = "%systemroot%\System32\"
oShellLink.Save
Set oShellLink = Nothing
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\Log Off.lnk")
oShellLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oShellLink.Arguments = "-l"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%systemroot%\System32\shell32.dll,44"
oShellLink.Description = "Log Off (Switch User)"
oShellLink.WorkingDirectory = "%systemroot%\System32\"
oShellLink.Save
Set oShellLink = Nothing
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\Restart.lnk")
oShellLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oShellLink.Arguments = "-r -t 0"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%systemroot%\System32\shell32.dll,176"
oShellLink.Description = "Restart Computer (Reboot)"
oShellLink.WorkingDirectory = "%systemroot%\System32\"
oShellLink.Save
Set oShellLink = Nothing
Wscript.Echo "Created Shutdown, Restart and Log Off buttons"
-> salvare il documento creato con un nome -> cambiare l'estensione .txt con L'estensione .vbs
-> fare click/doppio click sul documento creato -> nello Start Screen compariranno i 3 collegamenti di spegnimento, riavvio e disconnessione -> per comodità si possono aggiungere alla barra delle applicazioni
___________________________________
il pessimista vede le difficoltà in ogni opportunità,l’ottimista vede le opportunità in ogni difficoltà
|