RE:Como apago una PC desde otra en una red
* Apagar una PC en red con API InitiateSystemShutdown
Ejemplo:
1. Declarar en Local External Fuctions:
function long FormatMessageA(ulong dwflags, long lpsource, long dwmessageid, &
long dwlanguageid, ref string lpbuffer, long nsize, long lparguments) &
library 'kernel32.dll'
function ulong GetLastError() library 'kernel32.dll'
function boolean InitiateSystemShutdownA(ref string lpMachineName, &
ref string lpMessage, long dwTimeout, boolean bForceAppsClosed, &
boolean bRebootAfterShutdown) library 'advapi32.dll'
2. Script:
long ll_errorid
string ls_errortext
string ls_null
string ls_restart_message
SetNull(ls_null) //null si es local, o "\\MYPC"
ls_restart_message='Su PC será reiniciado'
InitiateSystemShutdownA(ls_null,ls_restart_message,5,false,true)
ll_errorid=GetLastError()
ls_errortext=Space(2000)
FormatMessageA(4096,0,ll_errorid,0,ls_errortext,Len(ls_errortext),0)
MessageBox('',ls_errortext)
//-------------------------------
Nota: No funciona en Win 9x. Mejor ve su documentacion:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/initiatesystemshutdown.asp
ó tambien en:
http://www.telecable.es/personales/jrubi/index.htm?trucos/tip00333.htm
* Enviar mensajes de advertencia a cualquier PC:
//Con nombre equipo
RUN("NET SEND pc1 Hola ")
//O con IP
RUN("NET SEND 192.168.0.1 Mensaje")