TRegistry - Remoto
Publicado: Sab May 26, 2007 1:59 pm
Estoy queriendo conectarme al registro de un servidor con win2003 server, pero no logro hacer la conexion.
En tiempo atras me dieron un ejemplo y he checado la ayuda y no encuentro que haya puesto mal.
WITH OBJECT TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
If ( AppData:CONFIG_Terminal ) //aqui defino si la pc tomara datos de algun servidor.
cMachine := "ZeaServer" //AppData:DIR_Servidor
logdebug(cMachine, "SOFTWAREZeaSoftware" + AppData:Application)
If ( :Connect(cMachine, "SOFTWAREZeaSoftware" + AppData:Application) == 0 )
logdebug("key:", ckey)
If ( cKey == Nil )
cKey := :GetString( "Serial" )
Else
:SetString("Serial", cKey)
End
:Disconnect()
::::
::
continua con el mismo proceso, pero para una pc local, y esa si funciona excelente.
Gracias de antemano.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
visita mi "venta de garage"
--
En tiempo atras me dieron un ejemplo y he checado la ayuda y no encuentro que haya puesto mal.
WITH OBJECT TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
If ( AppData:CONFIG_Terminal ) //aqui defino si la pc tomara datos de algun servidor.
cMachine := "ZeaServer" //AppData:DIR_Servidor
logdebug(cMachine, "SOFTWAREZeaSoftware" + AppData:Application)
If ( :Connect(cMachine, "SOFTWAREZeaSoftware" + AppData:Application) == 0 )
logdebug("key:", ckey)
If ( cKey == Nil )
cKey := :GetString( "Serial" )
Else
:SetString("Serial", cKey)
End
:Disconnect()
::::
::
continua con el mismo proceso, pero para una pc local, y esa si funciona excelente.
Gracias de antemano.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
visita mi "venta de garage"
--