Apagar una PC en red

[delphi.com.ar]

Lós últimos SO de M$ traen una utilidad llamada "ShutDown" que permite entre tantas cosas apagar un equipo remoto, solo si tienes permisos para hacerlo:

NET USE \\Equipo /USER:Usuario contraseña
shutdown -s -m \\Equipo

Desde código podrías utilizar algo como:

Código Delphi [-]
Win32Check(InitiateSystemShutdown('Equipo', nil, 0, True, False));

No sin antes haber obtenido los privilegios.

Saludos!

[metalfox6383]

¡Un momento! No me quedó claro. ¿Si yo escribo ese código en un programa hecho en Delphi puedo apagar el ordenador? ¿Y a qué se refiere eso de permisos?

[delphi.com.ar]

Empezado por metalfox6383

¿Y a qué se refiere eso de permisos?

Si pudieras apagar cualquier PC conectada a la red, sin necesidad de tener permiso sobre esta, esto sería un descontrol. Fíjate que en el ejemplo de la línea de comandos, me he acreditado previamente para poder enviar la petición de apagado!

[metalfox6383]

Entiendo, pero ¿cómo se pide ese permiso utilizando Delphi? ¿El código que escribes es Delphi?

[delphi.com.ar]

No lo he probado, pero supongo que creando una conexión con alguna de las Windows Networking Functions (por ejemplo WNetAddConnection2), pero obviamente es necesario conocer un usuario con privilegio de ShutDown de la terminal remota.

[metalfox6383]

Ah, ya veo. Bueno, había pensado también en algo alternativo es lo siguiente:

Puedo instalar un programa en mi PC y en la PC que quiero apagar, luego por red le envío un mensaje dentro de un archivo utilizando el programa, cuando el otro programa lo lee, apaga el ordenador. Ahora, lo que me faltaría saber para poder hacer algo así es:

* ¿Cómo envío un archivo por red utilizando mi programa?
* ¿Cómo apago un ordenador por código Delphi?

[delphi.com.ar]

Al igual que lo hace este programita mío hecho totalmente en delphi, puedes crear un servidor con algun componente como el TIdTCPServer de la Indy, que interprete algún comando y realice un ExitWindowsEx. Obviamente vas a tener que tener un cliente para conectarte y enviarle el comando!

Saludos!