VBA - Salir de Windows

¿Dices qué no tienes shutdown?

Es decir, ¿lo intentaste ejecutar desde DOS y qué te dice?

Según esta página en windows 2000 si existe

http://elpajardigital.wordpress.com/2007/12/06/herramienta-shutdown-para-windows-xp2000-versiones-mejoradas-de-win95/

El código VBa sería este:

Option Explicit
Declare Function ExitWindowsEx& Lib "user32" _
(ByVal uFlags&, ByVal wReserved&)
'//constants needed to exit Windows
Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4
'*******************SHUT DOWN*********************
Sub TurnOffXP()
'//shut down the computer
Shell "shutdown -s", vbHide
End Sub

Hola, gracias por la respuesta. Efectivamente no tengo shutdown (tengo windows NT) no tengo un directorio windows sino Winnt. Cuando lo quiero abrir desde el DOS me dice que no se encuentra el archivo shutdown.exe. Lo busque con el explorador y tampoco. Tendrás otra solución?. Gracias y Saludos

Tienes que descargar de la red el shutdown, es lo que dice la página de Microsoft
http://support.microsoft.com/kb/317371/es
En la página comenta que viene en el CD original de instalación, si no lo tienes, vas a tener que buscar en la red quién lo tiene para que lo descargues o comprar el disco o comprar el shutdown para winNT en alguna página.
Saludos. Dante Amor

Hola Dante,

Muchas gracias por la respuesta ha sido de mucha utilidad.

Una última por tu gentileza: tengo el CD de instalación, sabes como bajo el archivo shutdown.exe?

Gracias y Saludos

Ricardo

Revisa esta liga

http://technet.microsoft.com/es-es/library/bb727120.aspx

Si revisas en la primer imagen, verás que hay unas carpetas, una de ellas llamada "Componentes" tiene un archivo que dice "shutdonw", revisa en tu disco si tienes esos archivos.

He revisado en esas carpetas. Está "shutdown".

No obstante el Shell "shutdown -s", vbHide da error de archivo no encontrado. Lo busque con el explorador y no está el .exe

Saludos

¿Y puedes copiarlo a tu servidor?

Copia el archivo shutdown.exe a C:\

Y pon esto en la macro

Shell "C:\shutdown -s", vbHide

de donde lo copio?