¿ crear .bat ?
Peter
Tengo un servidor web y cada vez que tengo que instalar
alguna actualizacion de windows y reiniciar Tengo que
mirar si hay algun cliente conectado mediante un netstat.
¿hay alguna opcion de crear un .Bat para que cuando lo
ejecute me diga si hay conexiones y en caso de que haya,
me pregunte si quiero "matarla" (la conexion)?
Seria de gran ayuda si alguien me puede ayudar.
Muchas gracias
Peter
Fernando Rubio [MS]
www.microsoft.com/scripting
Saludos
--
Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.
"Peter" <Peter.s...@discussions.microsoft.com> wrote in message
news:07c801c398b1$22de8e70$a001...@phx.gbl...
Vincent Fanchini [MS]
Hice un pequeño VBS utilizando WMI :
Confirmame que te funciona o si falta algo !
Espero que eso te ayude.
Un saludo.
PS : Funciona con IIS 5.0 (win2000), 5.1 (XP).
Los contadores de performance han cambiado un poco en la version 6.0 :
332155 Changes to Performance Monitor Web Service Counters in IIS 6.0 :
http://support.microsoft.com/?id=332155
Option Explicit
Dim WebPerf, n, wShell
Set WebPerf =
GetObject("winmgmts:root/CIMV2:Win32_PerfRawData_W3SVC_WebService.Name='_Tot
al'")
n = WebPerf.CurrentAnonymousUsers + WebPerf.CurrentNonAnonymousUsers
wscript.echo "Current number of users on this server:" & n
If n=0 Then
Set wShell = WScript.CreateObject("WScript.Shell")
wShell.Run "net stop w3svc", 2
Set wShell = Nothing
WScript.echo "W3svc stopped"
End if
If n>0 then
WScript.Echo "Some users are connected, are you sure you want to restart
IIS (Y/N)"
Dim Input
Input = ""
Do While Not WScript.StdIn.AtEndOfLine
Input = Input & WScript.StdIn.Read(1)
Loop
If Ucase(Input)="Y" Then
'WScript.Echo Input
Set wShell = WScript.CreateObject("WScript.Shell")
wShell.Run "net stop w3svc", 2
Set wShell = Nothing
WScript.echo "W3svc stopped"
Else
WScript.Echo "IIS has not been restarted"
End if
End if
--
Vincent Fanchini
Microsoft Iberica
--------------------
"Peter" <Peter.s...@discussions.microsoft.com> wrote in message
news:07c801c398b1$22de8e70$a001...@phx.gbl...
Peter
He probado el Script y me ha fallado. Me da un error de
Sintaxis en la linea 4 caracter 14.
codigo 800A03EA
Error origen de compilacion de Microsoft VBscript
De todas formas muchas gracias. Intentare mejorarlo y si
consigo
Peter
>-----Mensaje original-----
>.
>
Peter
He probado el Script y me ha fallado. Me da un error de
Sintaxis en la linea 4 caracter 14.
codigo 800A03EA
Error origen de compilacion de Microsoft VBscript
De todas formas muchas gracias. Intentare mejorarlo y si
consigo que funcione, lo colgare por aki
Peter
>-----Mensaje original-----
>Hola Peter,
>
>Hice un pequeño VBS utilizando WMI :
>Confirmame que te funciona o si falta algo !
>
>Espero que eso te ayude.
>
>Un saludo.
>
>PS : Funciona con IIS 5.0 (win2000), 5.1 (XP).
>Los contadores de performance han cambiado un poco en la
version 6.0 :
>332155 Changes to Performance Monitor Web Service
Counters in IIS 6.0 :
>http://support.microsoft.com/?id=332155
>
>
>Option Explicit
>
>Dim WebPerf, n, wShell
>Set WebPerf =
>GetObject
("winmgmts:root/CIMV2:Win32_PerfRawData_W3SVC_WebService.Na
>.
>
Peter
Ante todo Muchas gracias por tu ayuda.
Me asegure de poner cada instrucion en la misma linea pero
sigue fallando. Seguramente fallan parametros dentro de mi
servidor porque no concuerdan. Asi que me lo mirare con la
maxima precision y si encuentro la solucion colgare el
script para que haya mas opciones.
Peter
>-----Mensaje original-----
>Hola Peter,
>
>
>Asegurate poner cada instrucion en la misma linea : (el
formato del
>newsgroup ha cambiado el texto original)
>Set WebPerf
>=GetObject
("winmgmts:root/CIMV2:Win32_PerfRawData_W3SVC_WebService.Na
me='_To
>tal'")
>
>Te incluyo el ZIP conteniendo el VBS formateado.
>
>Un saludo
>--
>Vincent Fanchini
>Microsoft Iberica.
>
>
>"Peter" <anon...@discussions.microsoft.com> wrote in
message
>news:09e001c39a33$36386120$a501...@phx.gbl...
Peter
Ante todo Muchas gracias por tu ayuda.
Me asegure de poner cada instrucion en la misma linea pero
sigue fallando. Seguramente fallan parametros dentro de mi
servidor porque no concuerdan. Asi que me lo mirare con la
maxima precision y si encuentro la solucion colgare el
script para que haya mas opciones.
Peter
>-----Mensaje original-----
>Hola Peter,
>
>
>Asegurate poner cada instrucion en la misma linea : (el
formato del
>newsgroup ha cambiado el texto original)
>Set WebPerf
>=GetObject
("winmgmts:root/CIMV2:Win32_PerfRawData_W3SVC_WebService.Na
me='_To
>tal'")
>
>Te incluyo el ZIP conteniendo el VBS formateado.
>
>Un saludo
>--
>Vincent Fanchini
>Microsoft Iberica.
>
>
>"Peter" <anon...@discussions.microsoft.com> wrote in
message
>news:09e001c39a33$36386120$a501...@phx.gbl...