Programa para ver Características de mi PC

Características de mi Equipo

En muchas ocasiones no requerimos del los conocimientos a nivel de software y hardware que tenga cada usuario, algunas personas  tendrán el intelecto más claro que otros en cuanto a todas las características de su sistema operativo y de todos los recursos a nivel de hardware, mientras que otros muchos no sabrán ni qué versión de Windows tienen instalada en el PC. Tanto para unos como para otros, puede ser bastante útil conocer todo lo referente a su equipo.

Podemos utilizar Microsoft ® Windows Script Host para mostrar información de nuestra PC, como por ejemplo: Dominio, Usuario, Nombre de PC, Unidades de red e Impresoras como se muestra en el siguiente ejemplo:

En el Evento Init de tu formulario deberás colocar las siguientes instrucciones:

thisform.Caption ="Información del Equipo"

thisform.AutoCenter =.t.

thisform.BackColor = RGB(201,192,143)

o = Createobject('Wscript.Network')

Thisform.label1.Caption = "Dominio: " + o.UserDomain

Thisform.label2.Caption = "Usuario: " + o.UserName

Thisform.label3.Caption = "Computadora: " + o.ComputerName

Thisform.label4.Caption= "Unidades de red:"

thisform.edit1.BackColor = RGB(201,192,143)

thisform.edit1.ForeColor = RGB(0,0,0)

thisform.edit2.BackColor = RGB(201,192,143)

thisform.edit2.ForeColor = RGB(0,0,0)

oD = o.EnumNetworkDrives

If oD.Count-1 >0

For i = 0 To oD.Count-1 Step 2

Thisform.edit1.Value = "Unidad: " + oD.Item(i) + " - Recurso: " + oD.Item(i+1)

Endfor

Else

Thisform.edit1.Value ="No hay Información"

Endif

Thisform.label5.Caption = "Impresoras:"

oP = o.EnumPrinterConnections

If oP.Count-1 !=0

For i = 0 To oP.Count-1 Step 2

Thisform.edit2.Value = "Puerto: " + oP.Item(i) +  " - Impresora: " + oP.Item(i+1)

Endfor

Else

Thisform.edit2.Value ="No Hay Información"

Endif

RELEASE oD

RELEASE oP

RELEASE o