Batch que levante el servicio.

24/07/2009 - 09:50 por Pedro Juan | Informe spam
Hola amigos,

Necesitaria hacer un archivo batch para un windows 2003 , que 1 me
compruebe si esta levantado el servicio y luego que lo levante y a parte me
deje un log.Se que se hace con el comando net..pero no se muy bien me podeis
ayudar a construirlo...?


Gracias amigos.

Preguntas similare

Leer las respuestas

#1 Marc [MVP Windows]
24/07/2009 - 16:13 | Informe spam
El comando que buscas es "net start <nombreServicio>"


Saludos,

Marc
MVP Windows Server System - Directory Services
MCSA/MCSE Windows Server 2003
MCTS: Exchange 2007 - Configuring
MCTS: Windows Server 2008 Active Directory / Network Infrastructure /
Applications Infrastructure
Citrix CCA PS 4.0
Oracle9i Certified Associate (OCA)

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

This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use.


"Pedro Juan" escribió en el mensaje de
noticias:
Hola amigos,

Necesitaria hacer un archivo batch para un windows 2003 , que 1 me
compruebe si esta levantado el servicio y luego que lo levante y a parte
me
deje un log.Se que se hace con el comando net..pero no se muy bien me
podeis
ayudar a construirlo...?


Gracias amigos.
Respuesta Responder a este mensaje
#2 Eduardo Ceh
25/07/2009 - 03:16 | Informe spam
Este es un .vbs script que checa cada 5 minutos si el servicio esta
corriendo, si no lo esta lo levanta.
Lo converti en .exe y lo puse como un servicio de windows, asi se ejecuta al
iniciar mi servidor.


' *****************************************************************
' This function checks if a process is running on a (remote) computer
' Requires WMI
' *****************************************************************
' Check out http://www.activxperts.com for more samples and components
'
****************************************************************************

Function IsProcessRunning( strServer, strProcess )
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strServer
For Each Process in GetObject( strObject ).InstancesOf(
"win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function

'
****************************************************************************
' Main
'
****************************************************************************
Dim strComputer, strProcess


set wshShell = Wscript.CreateObject("wscript.shell")

'Computadora a checar
strComputer = "."

'Proceso a checar
strProcess = "ntfrs.exe"

'inicializo la bandera
bandera = 0

IF bandera = 0 Then

do

tiempo = 5 * 60 * 1000
WScript.Sleep tiempo

If( IsProcessRunning( strComputer, strProcess ) = True ) Then
'Muestra mensaje si se encontró el proceso
'WScript.Echo "Process " & strProcess & " is running on computer " &
strComputer

Else
' No encontro corriendo el proceso por lo que lo inicia
'WScript.Echo "Process " & strProcess & " is NOT running on computer "
& strComputer
'Inicia el proceso
wshShell.Run "cmd /c net start ntfrs"

End If
loop while bandera = 0
END IF





"Marc [MVP Windows]" escribió en el mensaje de
noticias news:
El comando que buscas es "net start <nombreServicio>"


Saludos,

Marc
MVP Windows Server System - Directory Services
MCSA/MCSE Windows Server 2003
MCTS: Exchange 2007 - Configuring
MCTS: Windows Server 2008 Active Directory / Network Infrastructure /
Applications Infrastructure
Citrix CCA PS 4.0
Oracle9i Certified Associate (OCA)

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

This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use.


"Pedro Juan" escribió en el mensaje de
noticias:
Hola amigos,

Necesitaria hacer un archivo batch para un windows 2003 , que 1 me
compruebe si esta levantado el servicio y luego que lo levante y a parte
me
deje un log.Se que se hace con el comando net..pero no se muy bien me
podeis
ayudar a construirlo...?


Gracias amigos.
Respuesta Responder a este mensaje
#3 Pedro Juan
28/07/2009 - 11:01 | Informe spam
GRACIAS AMIGOS.


"Eduardo Ceh" wrote:

Este es un .vbs script que checa cada 5 minutos si el servicio esta
corriendo, si no lo esta lo levanta.
Lo converti en .exe y lo puse como un servicio de windows, asi se ejecuta al
iniciar mi servidor.


' *****************************************************************
' This function checks if a process is running on a (remote) computer
' Requires WMI
' *****************************************************************
' Check out http://www.activxperts.com for more samples and components
'
****************************************************************************

Function IsProcessRunning( strServer, strProcess )
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strServer
For Each Process in GetObject( strObject ).InstancesOf(
"win32_process" )
If UCase( Process.name ) = UCase( strProcess ) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function

'
****************************************************************************
' Main
'
****************************************************************************
Dim strComputer, strProcess


set wshShell = Wscript.CreateObject("wscript.shell")

'Computadora a checar
strComputer = "."

'Proceso a checar
strProcess = "ntfrs.exe"

'inicializo la bandera
bandera = 0

IF bandera = 0 Then

do

tiempo = 5 * 60 * 1000
WScript.Sleep tiempo

If( IsProcessRunning( strComputer, strProcess ) = True ) Then
'Muestra mensaje si se encontró el proceso
'WScript.Echo "Process " & strProcess & " is running on computer " &
strComputer

Else
' No encontro corriendo el proceso por lo que lo inicia
'WScript.Echo "Process " & strProcess & " is NOT running on computer "
& strComputer
'Inicia el proceso
wshShell.Run "cmd /c net start ntfrs"

End If
loop while bandera = 0
END IF





"Marc [MVP Windows]" escribió en el mensaje de
noticias news:
El comando que buscas es "net start <nombreServicio>"


Saludos,

Marc
MVP Windows Server System - Directory Services
MCSA/MCSE Windows Server 2003
MCTS: Exchange 2007 - Configuring
MCTS: Windows Server 2008 Active Directory / Network Infrastructure /
Applications Infrastructure
Citrix CCA PS 4.0
Oracle9i Certified Associate (OCA)

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

This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use.


"Pedro Juan" escribió en el mensaje de
noticias:
> Hola amigos,
>
> Necesitaria hacer un archivo batch para un windows 2003 , que 1 me
> compruebe si esta levantado el servicio y luego que lo levante y a parte
> me
> deje un log.Se que se hace con el comando net..pero no se muy bien me
> podeis
> ayudar a construirlo...?
>
>
> Gracias amigos.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida