Shutdown a remote computer | VBScript

This is only for educational purpose not any other means


' Shutdown.vbs
' Example VBScript to Shutdown computers
' Version 4.1 - February 2007
' --------------------------------------Option Explicit 
Dim objShell, strComputer, strInput 
Dim strShutdown 


Do 
strComputer = (InputBox(" ComputerName to shutdown", "Computer Name")) 
If strComputer <> "" Then 
  strInput = True 
End if 
Loop until strInput = True 
strShutdown = "shutdown -s -t 100 -f -m \\" & strComputer 
    set objShell = CreateObject("WScript.Shell") 
   objShell.Run strShutdown 
Wscript.Quit

copy and paste the code in a notepad and save it as shutdown.vbs...thats it....if u double click the file it ll ask for the computer name if u give then it llo shutdown than remote system