user unfriendly startup script

user-unfriendly.vbs

'User Unfriendly StartUp Script
function shutdown()
  Dim objShell
  Set objShell = WScript.CreateObject("WScript.Shell")
  'objShell.Run "cmd /c shutdown -s -t 90"
  wscript.sleep 6000
  objShell.Run "cmd /c shutdown -s -t 00"
end function

Dim msg, sapi
Set sapi = createObject("sapi.spvoice")
'the following line will make it use female voice instead of default
'Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Speak "Fuck Off"

alertBox = msgBox("Warning You Are Not Welcome Here!" & vbCrLf & vbCrLf & "Be Gone!",0+16, "Go Away!")
  Select Case alertBox
      Case 1
          shutdown()
  End Select