Bueno amigos el siguiente Scrip funciona para Windows 95/98/me y supuestamente tambien en XP con la linea que indica Metallik (aun no lo he probado en XP)
<%
Dim WshShell
Set WshShell = Server.CreateObject ("WScript.Shell")
'Apager Equipo
Response.Write("APAGANDO PC!!!!")
WshShell.Run "C:\windows\rundll32.exe user,ExitWindows"
%>
Con windows 2000 no he podido hacerlo aun pero cualquier novedad les estare comunicando, aunque si alguien logra hacerlo avisen asi me ahorran un poco de trabajo ;)