Comprobar clave registro

Desde XP en adelante existe el comando "reg" con varios modificadores para
realizar por ejemplo consultas a un registro local o remoto.
Revisa con "REG /?"
No recuerdo si se puede o no agregar en NT o 2000 por si tienes algún
cliente.
A través de este comando puedes leer la registry e incluirlo en un script.

Saludos
Darío.
"ZIDAC" wrote in message
news:

Hola a todos:

Tengo en mi empresa un dominio 2003 con clientes XPpro.

Para determinar quien tiene o quien no tiene internet lo controlo
quitándole
el proxy, por lo que en la rama correspondiente aparece el valor de la
clave
como EnableProxy=0

En el caso de que tenga internet el valor será EnableProxy=1

Ahora tengo que hacer un informe de qué equipos tienen internet en mi
dominio, por lo que me interesaría hacer un escaneo de esta clave. Mi idea
es
la siguiente:

1) Mediante un script de inicio de sesión leo la clave correspondiente y
su
valor
2) Si el valor de la clave EnableProxy=1 registro en un archivo txt (en
\etlogon, por ejemplo) el nombre del pc
3) Al cabo de unos días el archivo txt contendrá una relación de PC que
tienen el valor de la clave EnableProxy en 1

¿Cómo puedo hacer esto con un script?

Gracias,
ZIDAC

Hola, ya he conseguido leer el valor, pero no se como compararlo. Me explico:

Ya tengo el scritp que me lee el valor, ahora quiero que los Clientes que
ejecuten este script en el inicio de sesión actúen de la siguiente forma:

1) Los que tengan el valor a 1 registren su nombre en el archivo
internetSI.txt
2) Los que tengan el valor a 0 registren su nombre en el archivo
internetNO.txt

¿Cómo puedo hacer esta segunda parte?

Gracias,
ZIDAC

Ya estoy cerca, el script es el siguiente:

_____________________________________________________________

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "oot\default:StdRegProv")

strKeyPath = "software\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
oReg.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue

Const ForAppending = 8

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("\\server1egistro\InternetSI.txt", ForAppending, True)

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

objTextFile.WriteLine(WshNetwork.ComputerName & vbTab & _
dwValue)

objTextFile.Close
__________________________________________________________

Si lo ejecuto en local funciona bien pero si lo lanzo como script de inicio
de sesión me da error

¿Alguna sugerencia?

Gracias,
ZIDAC