Leer un txt con nombre del equipo
Necesito hacer mi sistema un poco seguro... Primero crear un archivo ini que guarde el nombre del equipo.. ¿luego cada vez que se ejecute el sistema compruebe ese archivo ini y valide el nombre del equipo con el que fue ddo de alta la primera vez que se instalo en sistema en dicha maquina... Por favor necesito una orientación o bien si ya tiene algo armado podrían compartirlo?
Gracias.
Gracias.
Respuesta de ikz0f7
1
Te recomiendo usar algo como lo siguiente:
** Obtener el nombre del equipo
oScript = CREATEOBJECT("WScript.Network")
cNombreEq = oScript.ComputerName
cIni = "F:\Tmp\Te\EjeIni.ini"
** Para escribir ini
EscribirIni(cIni, "Inst", "NombreEquipo", cNombreEq)
** Para leer ini
cResult = LeerIni(cIni, "Inst", "NombreEquipo", cNombreEq)
? cResult
** Funciones para manipular archivos "ini"
FUNCTION EscribirIni(cArchivo, cSeccion, cLlave, cValor)
DECLARE integer WritePrivateProfileString in Kernel32 ;
string, string, string, string
nResult = WritePrivateProfileString(cSeccion, cLlave, cValor, cArchivo)
RETURN nResult
ENDFUNC
FUNCTION LeerIni(cArchivo, cSeccion, cLlave, cValor)
Declare Integer GetPrivateProfileString in Kernel32 ;
string, string, string, string @, integer, string
cBuffer = SPACE(255)
nResult = GetPrivateProfileString(cSeccion, cLlave, "", @cBuffer, LEN(cBuffer), cArchivo)
cBuffer = ALLTRIM(STRTRAN(cBuffer, chr(0), ""))
RETURN cBuffer
Endfunc
** Obtener el nombre del equipo
oScript = CREATEOBJECT("WScript.Network")
cNombreEq = oScript.ComputerName
cIni = "F:\Tmp\Te\EjeIni.ini"
** Para escribir ini
EscribirIni(cIni, "Inst", "NombreEquipo", cNombreEq)
** Para leer ini
cResult = LeerIni(cIni, "Inst", "NombreEquipo", cNombreEq)
? cResult
** Funciones para manipular archivos "ini"
FUNCTION EscribirIni(cArchivo, cSeccion, cLlave, cValor)
DECLARE integer WritePrivateProfileString in Kernel32 ;
string, string, string, string
nResult = WritePrivateProfileString(cSeccion, cLlave, cValor, cArchivo)
RETURN nResult
ENDFUNC
FUNCTION LeerIni(cArchivo, cSeccion, cLlave, cValor)
Declare Integer GetPrivateProfileString in Kernel32 ;
string, string, string, string @, integer, string
cBuffer = SPACE(255)
nResult = GetPrivateProfileString(cSeccion, cLlave, "", @cBuffer, LEN(cBuffer), cArchivo)
cBuffer = ALLTRIM(STRTRAN(cBuffer, chr(0), ""))
RETURN cBuffer
Endfunc
