[RESUELTO] Acceder al nombre del pc y grupo de trabajo

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
SANSPALAU
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

[RESUELTO] Acceder al nombre del pc y grupo de trabajo

Mensaje por SANSPALAU »

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
Última edición por mauricio el Mar Ago 11, 2015 3:23 pm, editado 2 veces en total.
Razón: Marcar icono de resuelto
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por mauricio »

Con Python:

Código: Seleccionar todo

import getpass
import platform

# El nombre del usuario
getpass.getuser()

# El nombre del PC
platform.node()
Es muy fácil llamar a una macro python desde basic, aquí en este foro puedes encontrarlo...

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
SANSPALAU
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por SANSPALAU »

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.

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()) 
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
FJCC-ES
Mensajes: 873
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por FJCC-ES »

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ódigo: Seleccionar todo

xScript = scriptProvider.getScript("vnd.sun.star.script:nompc.py$nomusur?language=Python&location=user") 
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por mauricio »

Tambien puedes usar mi extensión para facilitar la programación de macros: EasyDev

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
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
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
SANSPALAU
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por SANSPALAU »

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
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Acceder al nombre del pc y grupo de trabajo

Mensaje por mauricio »

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.
Si, incorpora otras herramientas... estoy trabajando en su documentación...

Saludos
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo

Mensaje por mauricio »

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
Avatar de Usuario
MEKGAN
Mensajes: 7
Registrado: Mar Mar 27, 2018 12:46 am

Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo

Mensaje por MEKGAN »

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.

:bravo: :bravo:

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
Avatar de Usuario
MEKGAN
Mensajes: 7
Registrado: Mar Mar 27, 2018 12:46 am

Re: [RESUELTO] Acceder al nombre del pc y grupo de trabajo

Mensaje por MEKGAN »

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.

:bravo: :bravo:

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

:knock: :knock: :knock: :knock:
OpenOffice 4.5 en Windows Seven
Responder