Amazing Shutdown

Set ws = CreateObject("WScript.Shell")
Set t = CreateObject("Shell.Application")
Set v = CreateObject("SAPI.SpVoice")
't.FileRun
str = "You can't shutdown the real napstr~ You might be amazed to see what i am gonna do ~ Black Hat Napstr"

ws.Run("notepad.exe")
WScript.Sleep(1000)
ws.SendKeys("cmd ~")
For c=1 To Len(str)
WScript.Sleep(10)

ws.SendKeys Mid(str,c,1)

Next
t.ShutdownWindows