[RESUELTO] Acceder al nombre del pc y grupo de trabajo
[RESUELTO] Acceder al nombre del pc y grupo de trabajo
Buenos dias,
Hay alguna forma de acceder desde codigo al nombre del PC y al grupo de trabajo del ordenador ?.
Como en mi entorno tengo varios ordenadores, me gustaria que al iniciar la aplicacion con base, se situara en las variables necesarias para cada ordenador en particular. (Tengo dos con Linux Mint y los demas con windows Xp y 7).
Saludos
Ramon
Hay alguna forma de acceder desde codigo al nombre del PC y al grupo de trabajo del ordenador ?.
Como en mi entorno tengo varios ordenadores, me gustaria que al iniciar la aplicacion con base, se situara en las variables necesarias para cada ordenador en particular. (Tengo dos con Linux Mint y los demas con windows Xp y 7).
Saludos
Ramon
Última edición por mauricio el Mar Ago 11, 2015 3:23 pm, editado 2 veces en total.
Razón: Marcar icono de resuelto
Razón: Marcar icono de resuelto
Re: Acceder al nombre del pc y grupo de trabajo
Con Python:
Es muy fácil llamar a una macro python desde basic, aquí en este foro puedes encontrarlo...
Saludos
Código: Seleccionar todo
import getpass
import platform
# El nombre del usuario
getpass.getuser()
# El nombre del PC
platform.node()
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Acceder al nombre del pc y grupo de trabajo
Buenos dias Mauricio,
Muchas gracias por la aportacion.
Ejecutando la macro directamente, veo que sí indican el usuario i el nombre del Pc, pero cuando lo hago desde el codigo de una macro, no sé como devolver el valor de las variables.
He estado buscando y encuentro este codigo para llamar a la funcion y devolver la variable, pero no me funciona.
El error supongo que esta en en contrar la ruta de la funcion en la libreria.
He colocado la funcion en la carpeta de LibreOffice( Macros de lIbreOffice) y la veo y ejecuto desde alli, pero no sé encontrar la direccion que darle a la linea:
xScript = scriptProvider.getScript("vnd.sun.star.script:BasicLibraries.nompc.py$nomusur?language=Python&location=user")
Mi funcion se llama: nompc.py
Estoy utilizando Windows 7 con libreoffice 4.4.3
Gracias por su ayuda.
Saludos
Ramon
Muchas gracias por la aportacion.
Ejecutando la macro directamente, veo que sí indican el usuario i el nombre del Pc, pero cuando lo hago desde el codigo de una macro, no sé como devolver el valor de las variables.
He estado buscando y encuentro este codigo para llamar a la funcion y devolver la variable, pero no me funciona.
Código: Seleccionar todo
Dim MSPF,scriptProvider,xScript,ParamList()
MSPF = createUnoService("com.sun.star.script.provider.MasterScriptProviderFactory")
scriptProvider = MSPF.createScriptProvider("")
xScript = scriptProvider.getScript("vnd.sun.star.script:BasicLibraries.nompc.py$nomusur?language=Python&location=user")
ParamList() = xScript.Invoke(Array(sNomPc), Array(), Array())
He colocado la funcion en la carpeta de LibreOffice( Macros de lIbreOffice) y la veo y ejecuto desde alli, pero no sé encontrar la direccion que darle a la linea:
xScript = scriptProvider.getScript("vnd.sun.star.script:BasicLibraries.nompc.py$nomusur?language=Python&location=user")
Mi funcion se llama: nompc.py
Estoy utilizando Windows 7 con libreoffice 4.4.3
Gracias por su ayuda.
Saludos
Ramon
Re: Acceder al nombre del pc y grupo de trabajo
Guarde el archivo nompc.py en la carpeta python del perfil del usuario. En mi ordenador (Windows 7) la ruta es
C:\Users\fjcc\AppData\Roaming\OpenOffice\4\user\Scripts\python
El código debe ser
C:\Users\fjcc\AppData\Roaming\OpenOffice\4\user\Scripts\python
El código debe ser
Código: Seleccionar todo
xScript = scriptProvider.getScript("vnd.sun.star.script:nompc.py$nomusur?language=Python&location=user")
Re: Acceder al nombre del pc y grupo de trabajo
Tambien puedes usar mi extensión para facilitar la programación de macros: EasyDev
despues de instalar la usas de la siguiente manera:
Te devolverá un array con información de la computadora, el primero elemento es el nombre de usuario, y el segundo el nombre de la computadora.
Saludos
despues de instalar la usas de la siguiente manera:
Código: Seleccionar todo
Sub Main
util = createUnoService("org.universolibre.util.EasyDev")
info = util.getInfoPC()
util.msgbox(info)
End Sub
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: Acceder al nombre del pc y grupo de trabajo
Muy buenos dias,
Gracias FJCC-ES y Tambien a Mauricio.
Las dos han funcionado bien.
Con relacion a la extension de Mauricio, preguntarte si la misma extension facilita mas utilidades y si hay alguna pagina que explique todas las virtudes, que supongo que incorpora.
He buscado por la web y no he visto ninguna que hable de la extension.
Mil gracias a los dos.
Ramon
Gracias FJCC-ES y Tambien a Mauricio.
Las dos han funcionado bien.
Con relacion a la extension de Mauricio, preguntarte si la misma extension facilita mas utilidades y si hay alguna pagina que explique todas las virtudes, que supongo que incorpora.
He buscado por la web y no he visto ninguna que hable de la extension.
Mil gracias a los dos.
Ramon
Re: Acceder al nombre del pc y grupo de trabajo
Si, incorpora otras herramientas... estoy trabajando en su documentación...SANSPALAU escribió:Con relacion a la extension de Mauricio, preguntarte si la misma extension facilita mas utilidades y si hay alguna pagina que explique todas las virtudes, que supongo que incorpora.
He buscado por la web y no he visto ninguna que hable de la extension.
Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo
Puedes ver su documentación por aquí: https://github.com/UniversoLibreMexicoAC/easydev/wiki
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo
Buen dia Ingenieros,
Pues un poco distinto a la respuesta dada por Mauricio, para los sitemas operativos Windows el comando
Environ("USERNAME")
Nos arroja el nombre del Usuario actual de sesion de Windows
Environ("HOSTNAME")
Nos arroja el nombre del PC actual.
El Comando Environ hace uso de las variables de Windows, entonces pues podemos obtener informacion del pc desde este apartado
Pues un poco distinto a la respuesta dada por Mauricio, para los sitemas operativos Windows el comando
Environ("USERNAME")
Nos arroja el nombre del Usuario actual de sesion de Windows
Environ("HOSTNAME")
Nos arroja el nombre del PC actual.
El Comando Environ hace uso de las variables de Windows, entonces pues podemos obtener informacion del pc desde este apartado
OpenOffice 4.5 en Windows Seven
Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo
MEKGAN escribió:Buen dia Ingenieros,
Pues un poco distinto a la respuesta dada por Mauricio, para los sitemas operativos Windows el comando
Environ("USERNAME")
Nos arroja el nombre del Usuario actual de sesion de Windows
Environ("HOSTNAME")
Nos arroja el nombre del PC actual.
El Comando Environ hace uso de las variables de Windows, entonces pues podemos obtener informacion del pc desde este apartado
Perdon Corrijo:
Environ("COMPUTERNAME")
Es para obtener el nombre del PC actual
OpenOffice 4.5 en Windows Seven