Visual Basic - Apagar remotamente

Life is soft - evento anual de software empresarial
 
Vista:

Apagar remotamente

Publicado por Packman (4 intervenciones) el 19/02/2003 00:32:58
Hola..
Necesito apagar un ordenador cliente desde un servidor pero no tengo no idea de como se hace ... alguien me lo podria explicar? o mejor aun tienen alguien un ejemplo pequeño... os agradezco la ayuda que me podais prestar....,

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Apagar remotamente

Publicado por Carlos Christian Molina Vega (10 intervenciones) el 19/02/2003 00:57:55
Bueno todo depende de que sistema operativo tenga el ordenadr cliente.
Si es Windows 2000, NT o XP , el unico detalle es los permisos de la app. Si es win 98, ME no hay problema.

Windows 98,ME

'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [email protected]
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

Aclaración:Este ejemplo los obtuve de www.allapi.net.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar