Ayuda

[elboymayor15]

Buenos dias a todos.

necesito que alguien me ayude.

necesito apagar una PC que esta en mi red. Tengo una ventana en vb6 con un boton que dice apagar, un text box donde puedo escribir ya sea la ip de la pc remota o el nombre de equipo o la mac adress, y necesito que cuando presione el boton apagar se apague la pc que ponga en el textbox.


Gracias.

[pkj]

He encontrado esto, pero lo he probado con un Win2k que tengo en red y solo consigo cerrar windows, pero después se queda esperando que apagues a mano.
Si me acuerdo mas tarde lo probaré con win xp.
Aparte de eso, si el equipo que intentas apagar no está conectado el programa se queda bloqueado tras ejecutar esta orden.

Lo pongo en un par de subs para apagar y reiniciar para que lo entienda más gente.

Código :

Private Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long
 
Sub Apagar(Nombre_o_IP_Del_Equipo As String, MensajeAMostrar As String, TiempoDeEspera As Long, ForzarElCierreDeAplicaciones As Boolean)
  InitiateSystemShutdown Nombre_o_IP_Del_Equipo, MensajeAMostrar, TiempoDeEspera, ForzarElCierreDeAplicaciones, False
End Sub
 
Sub Reiniciar(Nombre_o_IP_Del_Equipo As String, MensajeAMostrar As String, TiempoDeEspera As Long, ForzarElCierreDeAplicaciones As Boolean)
  InitiateSystemShutdown Nombre_o_IP_Del_Equipo, MensajeAMostrar, TiempoDeEspera, ForzarElCierreDeAplicaciones, True
End Sub
 

Seguiremos investigando.

[elboymayor15]

Gracias pero no me ha funcionado

[elboymayor15]

el siguiente codigo reinicia la PC o la Apaga, pero solo localmente. Necesito aplicar eso a una maquina en la red (remota). Ayuda por favor.


'Declaración de la función ExitWindowsEx
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'Constanets para la función
Const cerrarWin = 1
Const reiniciarWin = 2
Private Sub Cmdaceptar_Click()
Dim retorno As Long
If Option1 Then retorno = ExitWindowsEx(reiniciar, 0)
If Option2 Then retorno = ExitWindowsEx(cerrar, 0)
End Sub