Una cuestión "caprichosa" con el apagado

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.
>> >
>> >
>>
>>
>
>
>
>