Ayuda

[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