' VB Script Document
' will create a link to the Desktop/Opt for shutdown, reboot, logoff and more
' created with windows 10'
' script written by NoBBi
' Version 20181215a
'
' Übersicht der SHELL-Icons: http://help4windows.com/windows_7_shell32_dll.shtml

Set objShell = CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")

Dim objFSO, newDIR
strDestination = strDesktop & "\OPT"
Set objFSO = CreateObject("Scripting.FileSystemObject")  
if objFSO.Folderexists(strDestination) = false then
  Set newDIR = objFSO.CreateFolder(strDestination)
end if

Set objShortcut = objShell.CreateShortcut(strDestination & "\Abmelden.lnk") 
objShortcut.Arguments = "/l " 
objShortcut.Description = "Abmelden des aktiven Benutzers."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 44"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\Herunterfahren.lnk") 
objShortcut.Arguments = "/f /s /t 7" 
objShortcut.Description = "Fährt den Computer herunter."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 27"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\Ausschalten.lnk") 
objShortcut.Arguments = "/f /sg /t 7" 
objShortcut.Description = "Fährt den Computer herunter. Beim nächsten Start werden alle registrierten Anwendungen neu gestartet."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 109"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"  
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\Neustart.lnk") 
objShortcut.Arguments = "/f /g /t 7" 
objShortcut.Description = "Startet den Rechner neu."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 238"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\erweiterter Neustart.lnk") 
objShortcut.Arguments = "/f /r /o /t 7" 
objShortcut.Description = "Ruft das Menü mit den erweiterten Startoptionen auf und startet den Computer neu."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 77"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\STOPP shutdown.lnk") 
objShortcut.Arguments = "/a" 
objShortcut.Description = "Bricht den aktuellen Vorgang von shutdown ab."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 131"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save

Set objShortcut = objShell.CreateShortcut(strDestination & "\Admin BIOS.lnk") 
objShortcut.Arguments = "/fw /g /t 7" 
objShortcut.Description = "Bewirkt in Kombination mit einer Option zum Herunterfahren den nächsten Start ins BIOS."
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 90"
objShortcut.TargetPath = "C:\Windows\System32\shutdown.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save
            
Set objShortcut = objShell.CreateShortcut(strDestination & "\GodMode.lnk") 
objShortcut.Arguments = "shell:::{ED7BA470-8E54-465E-825C-99712043E01C}" 
objShortcut.Description = "Master Control Panel - komplette Liste aller Aufgaben der Windows-Systemsteuerung "
objShortcut.IconLocation = "C:\Windows\System32\SHELL32.dll, 130"
objShortcut.TargetPath = "%WinDir%\explorer.exe"   
objShortcut.WorkingDirectory = "."
objShortcut.Save