Para apagar una pc necesitas usar apis (en el servidor x supuesto). Esta es la famosa exitwindows
Private Declare Function ExitWindowsEx Lib "user32" Alias
"ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Y para llamarla desde tu programa:
Private Sub main(codigoapagado as integer)
dim returnc as string
returnc = ExitWindowsEx(codigoapagado, 0)
End Sub
Codigoapagado es un numero:
- 0 para cerrar la sesion de la computadora.
- 1 para apagar la computadora.
- 2 para reiniciar.
- 5 para apagar y forzar el cierre de todas las aplicaciones
- 6 para reiniciar y forzar el cierre de todas las aplicaciones
- 8 seria el equivalente a desenchufarla (no todas las mothers soportan esta opcion).