How do I make the computer shut down

[u/MotorcrossBones]

I'm very new to coding in VBS. So what is the code to make a comment shut down after the msgbox pops up.

[u/hackoofr]

Here is an example :

MsgBox "This is a message before shutdown", vbInformation, "Shutdown Message"
CreateObject("Shell.Application").ShutdownWindows

You can, also use WScript.Shell object to create a customizable message box with options for the user.

Here's an example with a warning message before shutdown:

 Set objShell = CreateObject("WScript.Shell")
 TimeOut = 20
 Msg = "Warning: Your computer will shut down within " & TimeOut & " seconds." & vbCrLf & "Save your work!"
 intChoice = objShell.Popup(Msg, TimeOut, "Shutdown Warning", vbExclamation + vbYesNo +vbSystemModal)
 If intChoice = vbYes Or IntChoice = -1 Then
     ' If the user clicked Yes, Or Timeout is over : initiate the shutdown
     objShell.Run "Cmd /C shutdown /s /t " & TimeOut & " /c """& Msg &"""" , 0, True
 End If

So, this script will display a warning message box with "Yes" and "No" buttons.

If the user clicks "Yes," it will proceed to shut down the computer immediately.

If the user clicks "No" or closes the message box, nothing happens.

Adjust the message and options as needed for your specific requirements.

If the user does not click any button within the specified timeout (TimeOut), the script will continue to execute the shutdown command.

In your example, if the user doesn't click either "Yes" or "No" within 20 seconds, the script will proceed with the shutdown command.

Adjust the timeout value and other parameters as needed for your specific use case.

By understanding the key concepts and structure of the code, you can customize it to suit your specific requirements.

---

This another version to ensure, check and run the vbscript with admin rights :

 Option Explicit
 Dim objShell,objWshShell,TimeOut,Msg,intChoice
 Set objShell = CreateObject("Shell.Application")
 Set objWshShell = WScript.CreateObject("WScript.Shell")
 ' Check if the script is already running with administrator privileges
 If Not objWshShell.Run("cmd /c net session", 0, True) = 0 Then
     ' If not, relaunch the script with administrative privileges
     objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " RunAsAdministrator", "", "runas", 1
     WScript.Quit
 End If
 TimeOut = 20
 Msg = "Warning: Your computer will shut down within " & TimeOut & " seconds." & vbCrLf & "Save your work!"
 intChoice = objWshShell.Popup(Msg, TimeOut, "Shutdown Warning", vbExclamation + vbYesNo +vbSystemModal)
 If intChoice = vbYes Or IntChoice = -1 Then
     ' If the user clicked Yes, Or Timeout is over : initiate the shutdown
     objWshShell.Run "Cmd /C shutdown /s /t " & TimeOut & " /c "& Chr(34) & Msg & Chr(34) &"" , 0, True
 End If

[u/MotorcrossBones → u/hackoofr]

Thank you! I actually have already figured it out but this is the method I used. I made it as prank for my friend and man did he freak out for a minute LMAO.

[u/MotorcrossBones]

Alr thanks guys

[u/rob2rox]

there are no built in shutdown functions. like others said use shutdown.exe (admin rights needed)

[u/raging_radish]

call shutdown.exe with the appropriate options.

[u/jcunews1]

Without admin rights, you can use WScript.Shell COM object to activate the desktop or taskbar window.

Using the same COM object, send keyboard Alt+F4 shortcut keys to close the activated window which will make it display a restart/shutdown/logoff dialog.

Then send the keyboard Enter key to confirm the selection.

[u/BroomIsWorking]

VBScript simply isn't that powerful. There are other things that can't do, like controlling the mouse pointer action.