herunterfahren auf 8

In Windows 8 Pro wusste ich zu anfangs nicht, wie man ihm den Shutdown erteilt. Eine schöne Übersicht aller möglichkeiten findet sich hier.

Windows 8 Pro Box Produkt

Die Box-Verpackung von Windows 8 Pro gibt es in unterschiedlichen Gestaltungen.

Praktisch finde ich diese Tastenkombination:
Windowstaste + i

oder man lässt dieses kleine .VBS script mit Administratorrechten von der CMD-Line ausführen:

' Mike Rinne, 20.11.2012 - Herunterfahren Kachel für Modern UI - Windows 8 - C:\ProgramData\Microsoft\Windows\Start Menu\Programs\

' ########Shortcuts neu anlegen##########


Option Explicit

Dim fs, WshShell, strTBDefaultbrowserflag, strText, ALLUSERSDESKTOP, MyShortcut, objFile, CheckNewLink, CheckNewLinkModifikationsdatum


Set fs = CreateObject("Scripting.FileSystemObject")	'Dateisystem
Set WshShell = WScript.CreateObject("WScript.Shell")
Const ForReading = 1, ForWriting = 2, ForAppending = 8



' ### Betriebsystem feststellen ###

Select Case (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%"))

Case "C:\ProgramData" :  ALLUSERSDESKTOP = (WSHShell.ExpandEnvironmentStrings("%ProgramData%")) & "\Microsoft\Windows\Start Menu\Programs"      ' Windows 8 - Metro Kachel
Case "C:\Dokumente und Einstellungen\All Users" :  ALLUSERSDESKTOP = (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")) & "\Desktop"      ' Windows-XP

Case "C:\Documents and Settings\All Users" :  ALLUSERSDESKTOP = (WSHShell.ExpandEnvironmentStrings("%ALLUSERSPROFILE%")) & "\Desktop"      ' Embedded POSReady 2009

Case "":  WScript.Quit

End Select


' Windows 8 - Metro Kachel
' ProgramData=C:\ProgramData
' C:\ProgramData\Microsoft\Windows\Start Menu\Programs\





' ### Metro Desktop ###


If fs.FileExists (ALLUSERSDESKTOP+"\Herunterfahren.lnk") then



Set CheckNewLink = fs.GetFile(ALLUSERSDESKTOP+"\Herunterfahren.lnk")

CheckNewLinkModifikationsdatum = CheckNewLinkModifikationsdatum & CheckNewLink.DateLastModified & vbTab

WshShell.Popup "Herunterfahren link wird gelöscht...", 3, CheckNewLink.DateLastModified


fs.DeleteFile (ALLUSERSDESKTOP+"\Herunterfahren.lnk")


WScript.Quit

Else




Set MyShortcut = WSHShell.CreateShortcut(ALLUSERSDESKTOP+"\Herunterfahren.lnk")

MyShortcut.TargetPath = ("%SystemRoot%\System32\shutdown.exe")
MyShortcut.Arguments = "-s -t 5 -f -d p:0:0 -c " & Chr(34) &  "Der Rechner %COMPUTERNAME% wird heruntergefahren!" & Chr(34)
MyShortcut.WorkingDirectory = ("%SystemRoot%")
MyShortcut.WindowStyle = 7
MyShortcut.Description = ("shutdown")
MyShortcut.IconLocation = ("%SystemRoot%\system32\SHELL32.dll, 27")
MyShortcut.Save





' ######### Die Markierung für dieses Script anlegen #########



Set CheckNewLink = fs.GetFile(ALLUSERSDESKTOP+"\Herunterfahren.lnk")
CheckNewLinkModifikationsdatum = CheckNewLinkModifikationsdatum & CheckNewLink.DateLastModified & vbTab


WshShell.Popup "Herunterfahren link wurde erstellt!", 3, CheckNewLink.DateLastModified

End IF


WScript.Quit

Noch ein bisschen Marketing hinterher:
Für alle Upgradewilligen gibt es bis Ende Januar noch die Download Variante für 29,99€. Am besten man registert sich kostenlos per E-mail für das bis Ende Januar zu installierende Windows Media Center.

Advertisements

Über Tartuffeln

I work as a systems administrator for a great library
Dieser Beitrag wurde unter Computer, FAQ, Windows 8 abgelegt und mit , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s