It's a fake shutdown prank XD
run it to see for yourself.

Option Explicit
Dim IntCounter
Dim objWshShl : Set objWshShl = WScript.CreateObject("wscript.shell")
Dim objVoice : Set objVoice = WScript.CreateObject("sapi.spvoice")

ShutdownWarning()
TimedMessageBox()
ShutdownComputer()

Function ShutdownWarning
objVoice.Speak "You should really not run random programs, you will regret it sooner or later."
WScript.Sleep 5000
End Function

Function ShutdownWarning
objVoice.Speak "But hahahahahahahaha this is a prank, you computer will now self destruct."
WScript.Sleep 5000
End Function

Function TimedMessageBox
For IntCounter = 5 To 1 Step -1
objWshShl.Popup "Computer will self destruct in " _
& IntCounter & " seconds",1,"This is a prank bro!", 0+48
Next
End Function

Function ShutdownComputer
objWshShl.Run "Shutdown /s /f /t 0",0
End Function

my brain is somewhere ekse. i think it has exploded

oh shit