Script para seguridad

01/06/2005 - 01:12 por mailbox | Informe spam
Team,

Podrían ayudarme, requiero un script que me permita activar el screen saver
de las workstations con Windows XP y Windows 98 (Si es posible), y la forma
como debo configurarlo para que corra autométicamente.

Si se requieren mayores descripciones, por favor comentarme al mail:
mailbox@etb.net.co

Gracias de antemano,

Preguntas similare

Leer las respuestas

#1 Rafael T
01/06/2005 - 02:55 | Informe spam
normalment el screen saver se puede configurar para que se active luego de X
minutos sin actividad.


si deseas un script seria mejor que pongas esto en el newsgroup de scripts.
y podrias describir un poco mas que necesitas...



RT
"" @discussions.microsoft.com> wrote in
message news:
Team,

Podrían ayudarme, requiero un script que me permita activar el screen
saver
de las workstations con Windows XP y Windows 98 (Si es posible), y la
forma
como debo configurarlo para que corra autométicamente.

Si se requieren mayores descripciones, por favor comentarme al mail:


Gracias de antemano,

Respuesta Responder a este mensaje
#2 Rafael T
03/06/2005 - 03:47 | Informe spam
De lo que me explicaste:

aqui te doy dos maneras:
- facil, usa un "Policy"
Abre una ventana de MMC que va aparecer en blanco.
vas al menu archivo (file) y bajas hasta añadir (add)
en la nueva ventana presionas nuevamente añadir (add)
en esta nueva ventana busca poliza de comptuadora local (local comptuer
policy)

y presionas en OK.
Cuando vuelves al MMCm vas a encontrar que ahora tienes la configuracion
para la comptudora y para el usuario.
Abre folde de usuario, anda a administration, luego panel de control y de
ahi a monitor.
ahi esta todo lo que necesitas sin necesidad de hacer un script.


- si se puede hacer con un script pero te va a resultar algo complicado. Si
quieres puedes rcperimentar con esto:

On Error Resume Next

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_Desktop")
text=""
For Each objItem in colItems
text= text & vbcrlf & "Screen Saver Active: " &
objItem.ScreenSaverActive
text= text & vbcrlf & "Screen Saver Executable: " & _
objItem.ScreenSaverExecutable
text= text & vbcrlf & "Screen Saver Secure: " &
objItem.ScreenSaverSecure
text=text & vbcrlf & "Screen Saver Timeout: " &
objItem.ScreenSaverTimeout

Next
Wscript.Echo trim(text)

**********
espero te sirva,
RT

"Rafael T" wrote in message
news:
normalment el screen saver se puede configurar para que se active luego de
X minutos sin actividad.


si deseas un script seria mejor que pongas esto en el newsgroup de
scripts. y podrias describir un poco mas que necesitas...



RT
"" @discussions.microsoft.com> wrote
in message news:
Team,

Podrían ayudarme, requiero un script que me permita activar el screen
saver
de las workstations con Windows XP y Windows 98 (Si es posible), y la
forma
como debo configurarlo para que corra autométicamente.

Si se requieren mayores descripciones, por favor comentarme al mail:


Gracias de antemano,





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