Cómo conocer los Datos de mi PC en VFP

Cómo conocer los Datos de mi PC en VFP .En ocasiones quisiéramos poder conocer los datos de mi PC y nos resulta un poco engorroso ya que tenemos que recurrir a ciertas aplicaciones en Windows para poder conocer esos detalles que en ocasiones requerimos para nuestros sistemas en cual estemos desarrollando. Mediante estos sencillos olecontrol podremos conseguir toda la información necesaria que necesitamos para poder obtener los datos de mi pc.

Con la utilización de estos controles podemos obtener los requerimientos necesarios de nuestro equipo, tal es el caso como se muestra en la imagen inferior. Acá puedes ver como obtenemos el nombre del Dominio, usuario y el nombre nombre del equipo respectivamente, del mismo modo nos indica el tiempo de vida de la batería de nuestro equipo , el porcentaje, la dirección IP local y el puerto remoto.

Por otra parte también nos indica los puertos existentes en nuestro equipo, las impresoras instaladas, las unidades existentes y los recursos. Todo esto y mucho más podrás conseguirlo mediante el uso de estos controles.

En el evento load de tu formulario deberás crear el objeto 'Wscript.Network' en donde podrás extraer las informaciones sobre el Dominio, el usuario y el nombre del equipo.

Del mismo modo podremos conseguir la información requerida de nuestro PC sobre los distintos puertos existentes en nuestro equipo, así como, los nombres de las impresoras instaladas en nuestra computadora.

Además de estas informaciones, este programa te permite saber el tiempo de vida y porcentaje  de la batería de tu equipo, la IP local y el puerto remoto.

En la figura podrás notar como de manera automática aparecen los datos de tu PC.

En el Evento del init de tu formulario deberás colocar el siguiente código :

PUBLIC xdominio,xusuario,xnombrepc,op,od

CLEAR

thisform.Load 

thisform.text1.value =xdominio

thisform.text2.value =xusuario

thisform.text3.value =xnombrepc

thisform.list1.RowSource ="tempo.puerto,impre"

thisform.list1.RowSourceType =6

thisform.list1.Requery 

thisform.list2.RowSource ="tempo2.unidad,recurso"

thisform.list2.RowSourceType =6

thisform.list2.Requery 

thisform.text4.Value =thisform.olecontrol1.BatteryStatus

thisform.text5.Value =thisform.olecontrol1.BatteryLifePercent

thisform.text6.Value =thisform.olecontrol2.LocalIP

thisform.text7.Value =thisform.olecontrol2.RemotePort

thisform.Refresh 

En el evento Load debes indicar las siguientes instrucciones :

Set Mouse On

Set Sticky Off

Set Bell On

Set Talk Off

Set Scor Off

Set Escape Off

Set Date To british

Set Safety Off

Set Confirm On

Set Sysmenu Off

Set Mouse On

Set Sticky Off

o = CREATEOBJECT('Wscript.Network')

xdominio=o.UserDomain

xusuario=o.UserName

xnombrepc=o.ComputerName

oP = o.EnumPrinterConnections

CREATE TABLE tempo  free(puerto c(25),impre c(25))

FOR i = 0 TO oP.COUNT-1 STEP 2

  p1=oP.ITEM(i)

  imp=oP.ITEM(i+1)

  INSERT INTO tempo(puerto,impre) values(p1,imp)

ENDFOR

CREATE TABLE tempo2 free(unidad c(25),recurso c(25))

*Unidades de Red

oD = o.EnumNetworkDrives

FOR i = 0 TO oD.COUNT-1 STEP 2

  uni=oP.ITEM(i)

  rec=oP.ITEM(i+1)

  INSERT INTO tempo2(unidad,recurso) values(uni,rec)

ENDFOR

thisform.refresh

En la parte inferior de la imagen estará el Link de Descarga del programa