Últimos mensajes - Powered by IBM

Palabras claves

Shutdown Automatico NO FUNCIONA

22/10/2003 - 22:31 por Carlos Monteza | Informe spam

Saludos a todos:

Tengo el siguiente script para apagar el sistema
automaticamente, pero no funciona bien por que al final
sale el mensaje ahora puede apagar el equipo, No es la
opcion de "Opciones de energia" la que me falta activar
por que cunado las apago manualmente SI se apagan.Yo deseo
que a las 22:00 hora las maquinas si se apagen de verdad.
Agradesco de antemano la ayuda que me puedan dar. Aqui
esta el script:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strComputer & "oot\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("SELECT * FROM Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Shoutdown()
Next

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Carlos Monteza

23/10/2003 - 02:17 | Informe spam

Prueba con este otro script:

<pego>
'Win32 OperatingSystem
'http://msdn.microsoft.com/library/p...dk/clasops

0h7x.htm

'Sugerencia de Michael Harris.Aplicación y comentarios:

Marcial Carlés.

'
'Atención: Este script cierra todas las tareas, el propio

sistema y finalmente apaga la máquina '(PowerOff).

'Si hay archivos de datos abiertos, NO serán salvados.
'Válido para sistemas que implementan WMI (Windows ME y

2000).

Set wmi = GetObject("winmgmts:{(Shutdown)}")
Set objSet = Wmi.InstancesOf("win32 operatingsystem")
For Each obj In objSet
set os = obj : exit for
Next

os.win32shutdown (12)
</pego>

Me gustaría que te fijaras en la última línea; es la que

ejecuta el shutdown. Como puedes ver, al
método .win32shutdown se le pasa un parámetro numérico; el
significado de ese parámetro es:

0 = Log Off
4 = Forced Log Off
1 = Shutdown
5 = Forced Shutdown
2 = Reboot
6 = Forced Reboot
8 = Power Off
12 = Forced Power Off

Amigo he probado tu script y no funciona me sale error en
la linea 3. Por favor Alguien me podria ayudar.

Responder a este mensaje

#2 Marc S. [MS MVP]

23/10/2003 - 10:07 | Informe spam

Qué error te da exactamente?

Saludos

Marc
MS MVP Windows - Shell/User
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Reglas de conducta de los grupos de noticias: http://support.microsoft.com/defaul...newsreglas

"Carlos Monteza" escribió en el mensaje news:05b701c398fb$1bf10760$

Prueba con este otro script:

<pego>
'Win32 OperatingSystem
'http://msdn.microsoft.com/library/p...dk/clasops

0h7x.htm

'Sugerencia de Michael Harris.Aplicación y comentarios:

Marcial Carlés.

'
'Atención: Este script cierra todas las tareas, el propio

sistema y finalmente apaga la máquina '(PowerOff).

'Si hay archivos de datos abiertos, NO serán salvados.
'Válido para sistemas que implementan WMI (Windows ME y

2000).

Set wmi = GetObject("winmgmts:{(Shutdown)}")
Set objSet = Wmi.InstancesOf("win32 operatingsystem")
For Each obj In objSet
set os = obj : exit for
Next

os.win32shutdown (12)
</pego>

Me gustaría que te fijaras en la última línea; es la que

ejecuta el shutdown. Como puedes ver, al
método .win32shutdown se le pasa un parámetro numérico; el
significado de ese parámetro es:

0 = Log Off
4 = Forced Log Off
1 = Shutdown
5 = Forced Shutdown
2 = Reboot
6 = Forced Reboot
8 = Power Off
12 = Forced Power Off

Amigo he probado tu script y no funciona me sale error en
la linea 3. Por favor Alguien me podria ayudar.

Responder a este mensaje

#3 Fernando Reyes [MS MVP]

23/10/2003 - 14:14 | Informe spam

¿No será que se te ha generado un salto de línea donde no debería? ¿las news
las recibes como sólo texto? Lo puse en html precísamente para que no
hubieran cortes de línea donde no debía.

Un saludo
Fernando Reyes [MS MVP]

(Déjame sin vacaciones si quieres escribirme)

Visita news://marcmcoll.net cortesía de Marc Martínez Coll

"Carlos Monteza" escribió en el
mensaje news:05b701c398fb$1bf10760$

Amigo he probado tu script y no funciona me sale error en
la linea 3. Por favor Alguien me podria ayudar.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida