Here's a script to shutdown yours or other ppls computer, if you know wah yu doing you can build a program an embedd this script in it to shutdown their computer or more evil stuff...anyway naa get ina dat.

This will let you shutdown your computer, so be careful....replace strcomputer ="." with the name of a computer on yu network or the name of the pc yu waa shutdown.e.g..strcomputer ="mzja"..works on servers and windows pc's.



strComputer = "."
Set objWMIService = GetObject_
    ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
        strComputer & "
oot\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
 
For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(1)
Next