Una cuestión "caprichosa" con el apagado

Supongo que programando un script que monitorizase si hay una conexión a Internet, se podría hacer. Yo tenía en su día un script que miraba si se ejecutaba un programa y en caso contrario, apagaba la máquina. Debería buscarlo (o programarlo de nuevo) ya que no recuerdo tenerlo en el PC


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Isaac" escribió en el mensaje news:%

Hola a todos.

Verán, despues de preguntar como podia programas una tarea para que se me
desconectara internet de acceso telefónico a una hora determinada, quisiera
hacerles al grupo una nueva pregunta que dudo se pueda hacer.

¿Es posible hacer algo para que el equipo se me apague cuando me
desconectado solo de internet y ha estado inactivo durante un tiempo
determinado, es decir, sin ningún uso el equipo?

Gracias de antemano.

Pues gracias de todas formas, y si tienes tiempo y ganas para buscarlo o
programarlo Marc, pues lo indicas aqui o a mi correo.

Gracias


"Marc [MVP Windows]" escribió en el mensaje
news:
Supongo que programando un script que monitorizase si hay una conexión a
Internet, se podría hacer. Yo tenía en su día un script que miraba si se
ejecutaba un programa y en caso contrario, apagaba la máquina. Debería
buscarlo (o programarlo de nuevo) ya que no recuerdo tenerlo en el PC


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Isaac" escribió en el mensaje
news:%

Hola a todos.

Verán, despues de preguntar como podia programas una tarea para que se me
desconectara internet de acceso telefónico a una hora determinada,
quisiera
hacerles al grupo una nueva pregunta que dudo se pueda hacer.

¿Es posible hacer algo para que el equipo se me apague cuando me
desconectado solo de internet y ha estado inactivo durante un tiempo
determinado, es decir, sin ningún uso el equipo?

Gracias de antemano.

A ver, iría algo así

If NO processo se ejecuta then apagar sistema.

Por tanto, podría quedar como

<script>
'****************************************************
' Author: Marc [MVP Windows]
' Version: 0.1 Beta
' Revision: N/A
' Date: 12/03/2005
' Sintaxis: closeSystemConditional.vbs
' Versión "demo", sin provar si realmente funciona'****************************************************strComputer = "."' Preguntamos accedemos a la WMISet objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
' Preguntamos al sistema por un proceso que se esté ejecutando, en este caso, el "Bloc de notas"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
' Si NO se ejecuta, apagamos la máquinaIf colProcessList.Count = 0 Then
' Apagamos al sistema, *sin guardar* datos Set WMI = GetObject("winmgmts:{(Shutdown)}") set objSet = WMI.instancesof("win32_operatingsystem") for each obj in objSet set os = obj : exit for next os.win32shutdown (8)End If</script>


La parte de apagar el sistema se puede hacer, también, como

<script>
set objshell = Server.CreateObject("Wscript.Shell")
objshell.run "shutdown -s -t 10"

</script>


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Isaac" wrote in message news:

Pues gracias de todas formas, y si tienes tiempo y ganas para buscarlo o
programarlo Marc, pues lo indicas aqui o a mi correo.

Gracias


"Marc [MVP Windows]" escribió en el mensaje
news:
Supongo que programando un script que monitorizase si hay una conexión a
Internet, se podría hacer. Yo tenía en su día un script que miraba si se
ejecutaba un programa y en caso contrario, apagaba la máquina. Debería
buscarlo (o programarlo de nuevo) ya que no recuerdo tenerlo en el PC


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Isaac" escribió en el mensaje
news:%
> Hola a todos.
>
> Verán, despues de preguntar como podia programas una tarea para que se me
> desconectara internet de acceso telefónico a una hora determinada,
> quisiera
> hacerles al grupo una nueva pregunta que dudo se pueda hacer.
>
> ¿Es posible hacer algo para que el equipo se me apague cuando me
> desconectado solo de internet y ha estado inactivo durante un tiempo
> determinado, es decir, sin ningún uso el equipo?
>
> Gracias de antemano.
>
>

Coña, ha quedado fatal. Te lo vuelvo a poner.

<script>
'****************************************************
' Author: Marc [MVP Windows]
' Version: 0.1 Beta
' Revision: N/A
' Date: 12/03/2005
' Sintaxis: closeSystemConditional.vbs
' Versión "demo", sin probar si realmente funciona

'****************************************************s
trComputer = "."

' Preguntamos accedemos a la WMI
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")

' Preguntamos al sistema por un proceso que se esté ejecutando, en este caso, el "Bloc de notas"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")

' Si NO se ejecuta, apagamos la máquina

If colProcessList.Count = 0 Then

' Apagamos al sistema, *sin guardar* datos
Set WMI = GetObject("winmgmts:{(Shutdown)}")
set objSet = WMI.instancesof("win32_operatingsystem")
for each obj in objSet
set os = obj : exit for
next
os.win32shutdown (8)

End If

</script>


La parte de apagar el sistema se puede hacer, también, como

<script>
set objshell = Server.CreateObject("Wscript.Shell")
objshell.run "shutdown -s -t 10"

</script>



Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Marc [MVP Windows]" wrote in message news:%
A ver, iría algo así

If NO processo se ejecuta then apagar sistema.

Por tanto, podría quedar como

<script>
'****************************************************
' Author: Marc [MVP Windows]
' Version: 0.1 Beta
' Revision: N/A
' Date: 12/03/2005
' Sintaxis: closeSystemConditional.vbs
' Versión "demo", sin provar si realmente funciona'****************************************************strComputer = "."' Preguntamos accedemos a la WMISet objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
' Preguntamos al sistema por un proceso que se esté ejecutando, en este caso, el "Bloc de notas"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
' Si NO se ejecuta, apagamos la máquinaIf colProcessList.Count = 0 Then
' Apagamos al sistema, *sin guardar* datos Set WMI = GetObject("winmgmts:{(Shutdown)}") set objSet = WMI.instancesof("win32_operatingsystem") for each obj in objSet set os = obj : exit for next os.win32shutdown (8)End If</script>


La parte de apagar el sistema se puede hacer, también, como

<script>
set objshell = Server.CreateObject("Wscript.Shell")
objshell.run "shutdown -s -t 10"

</script>


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

"Isaac" wrote in message news:

Pues gracias de todas formas, y si tienes tiempo y ganas para buscarlo o
programarlo Marc, pues lo indicas aqui o a mi correo.

Gracias


"Marc [MVP Windows]" escribió en el mensaje
news:
Supongo que programando un script que monitorizase si hay una conexión a
Internet, se podría hacer. Yo tenía en su día un script que miraba si se
ejecutaba un programa y en caso contrario, apagaba la máquina. Debería
buscarlo (o programarlo de nuevo) ya que no recuerdo tenerlo en el PC


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.

"Isaac" escribió en el mensaje
news:%
> Hola a todos.
>
> Verán, despues de preguntar como podia programas una tarea para que se me
> desconectara internet de acceso telefónico a una hora determinada,
> quisiera
> hacerles al grupo una nueva pregunta que dudo se pueda hacer.
>
> ¿Es posible hacer algo para que el equipo se me apague cuando me
> desconectado solo de internet y ha estado inactivo durante un tiempo
> determinado, es decir, sin ningún uso el equipo?
>
> Gracias de antemano.
>
>

Perdón, va perfecto, se me habia olvidado la s inicial de strComputer


"Isaac" escribió en el mensaje
news:

Eres un crack e Marc! joer
Al final he puesto esto:

trComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &

"oot\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
If colProcessList.Count = 0 Then
Set WMI = GetObject("winmgmts:{(Shutdown)}")
set objSet = WMI.instancesof("win32_operatingsystem")
for each obj in objSet
set os = obj : exit for
next
os.win32shutdown (8)

End If

Pero no funciona, hay algo mal hecho por ahí, me sale el error del archivo
adjunto.
Bueno sino se puede que se le va ha hacer, de todas formas gracias.






"Marc [MVP Windows]" escribió en el mensaje
news:
Coña, ha quedado fatal. Te lo vuelvo a poner.

<script>
'****************************************************
' Author: Marc [MVP Windows]
' Version: 0.1 Beta
' Revision: N/A
' Date: 12/03/2005
' Sintaxis: closeSystemConditional.vbs
' Versión "demo", sin probar si realmente funciona

'****************************************************s
trComputer = "."

' Preguntamos accedemos a la WMI
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")

' Preguntamos al sistema por un proceso que se esté ejecutando, en este
caso, el "Bloc de notas"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")

' Si NO se ejecuta, apagamos la máquina

If colProcessList.Count = 0 Then

' Apagamos al sistema, *sin guardar* datos
Set WMI = GetObject("winmgmts:{(Shutdown)}")
set objSet = WMI.instancesof("win32_operatingsystem")
for each obj in objSet
set os = obj : exit for
next
os.win32shutdown (8)

End If

</script>


La parte de apagar el sistema se puede hacer, también, como

<script>
set objshell = Server.CreateObject("Wscript.Shell")
objshell.run "shutdown -s -t 10"

</script>



Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y
no
otorga ningún derecho.

"Marc [MVP Windows]" wrote in message
news:%
A ver, iría algo así

If NO processo se ejecuta then apagar sistema.

Por tanto, podría quedar como

<script>
'****************************************************
' Author: Marc [MVP Windows]
' Version: 0.1 Beta
' Revision: N/A
' Date: 12/03/2005
' Sintaxis: closeSystemConditional.vbs
' Versión "demo", sin provar si realmente
funciona'****************************************************strComputer > "."' Preguntamos accedemos a la WMISet objWMIService =
GetObject("winmgmts:"
_
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
' Preguntamos al sistema por un proceso que se esté ejecutando, en este
caso, el "Bloc de notas"
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
' Si NO se ejecuta, apagamos la máquinaIf colProcessList.Count = 0 Then
' Apagamos al sistema, *sin guardar* datos Set WMI > GetObject("winmgmts:{(Shutdown)}") set objSet > WMI.instancesof("win32_operatingsystem") for each obj in objSet
set os = obj : exit for next os.win32shutdown (8)End
If</script>


La parte de apagar el sistema se puede hacer, también, como

<script>
set objshell = Server.CreateObject("Wscript.Shell")
objshell.run "shutdown -s -t 10"

</script>


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y
no
otorga ningún derecho.

"Isaac" wrote in message
news:

Pues gracias de todas formas, y si tienes tiempo y ganas para buscarlo o
programarlo Marc, pues lo indicas aqui o a mi correo.

Gracias


"Marc [MVP Windows]" escribió en el mensaje
news:
Supongo que programando un script que monitorizase si hay una conexión a
Internet, se podría hacer. Yo tenía en su día un script que miraba si se
ejecutaba un programa y en caso contrario, apagaba la máquina. Debería
buscarlo (o programarlo de nuevo) ya que no recuerdo tenerlo en el PC


Saludos

Marc
MCP - MVP Windows Shell/User
Oracle9i Certified Associate (OCA)
NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y
no
otorga ningún derecho.

"Isaac" escribió en el mensaje
news:%
> Hola a todos.
>
> Verán, despues de preguntar como podia programas una tarea para que se
> me
> desconectara internet de acceso telefónico a una hora determinada,
> quisiera
> hacerles al grupo una nueva pregunta que dudo se pueda hacer.
>
> ¿Es posible hacer algo para que el equipo se me apague cuando me
> desconectado solo de internet y ha estado inactivo durante un tiempo
> determinado, es decir, sin ningún uso el equipo?
>
> Gracias de antemano.
>
>