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

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

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

Notapor SANSPALAU » Sab Ago 08, 2015 5:46 pm

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
SANSPALAU
 
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

Re: Acceder al nombre del pc y grupo de trabajo

Notapor mauricio » Sab Ago 08, 2015 8:36 pm

Con Python:
Código: Seleccionar todo   Expandir vistaContraer vista
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
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5645
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Acceder al nombre del pc y grupo de trabajo

Notapor SANSPALAU » Dom Ago 09, 2015 8:58 pm

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   Expandir vistaContraer vista
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
SANSPALAU
 
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

Re: Acceder al nombre del pc y grupo de trabajo

Notapor FJCC-ES » Lun Ago 10, 2015 3:12 am

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   Expandir vistaContraer vista
xScript = scriptProvider.getScript("vnd.sun.star.script:nompc.py$nomusur?language=Python&location=user")
FJCC-ES
 
Mensajes: 641
Registrado: Mié Mar 25, 2009 1:19 am
Ubicación: Colorado, USA

Re: Acceder al nombre del pc y grupo de trabajo

Notapor mauricio » Mar Ago 11, 2015 6:20 am

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   Expandir vistaContraer vista
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
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5645
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

Re: Acceder al nombre del pc y grupo de trabajo

Notapor SANSPALAU » Mar Ago 11, 2015 3:04 pm

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
SANSPALAU
 
Mensajes: 7
Registrado: Jue May 21, 2009 5:49 pm

Re: Acceder al nombre del pc y grupo de trabajo

Notapor mauricio » Mar Ago 11, 2015 3:11 pm

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
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5645
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

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

Notapor mauricio » Mar Ago 18, 2015 4:31 am

Puedes ver su documentación por aquí: https://github.com/UniversoLibreMexicoAC/easydev/wiki
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
AOO 4.1 | LibO 5.4 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Avatar de Usuario
mauricio
 
Mensajes: 5645
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: México, D.F.

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

Notapor MEKGAN » Lun May 07, 2018 4:25 am

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

Notapor MEKGAN » Lun May 07, 2018 5:03 am

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


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados